Announcement

Collapse
No announcement yet.

Brush.Style : =0?

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Brush.Style : =0?

    <font size=2 face="Courier New"><font color="#000000">Bekomme&nbsp;hiermit&nbsp;einen&nb sp;Rahmen&nbsp;um&nbsp;mein&nbsp;Bild,
    gr&ouml;&szlig;er&nbsp;kriege&nbsp;ich&nbsp;den&nb sp;Rahmen&nbsp;immer,&nbsp;nur&nbsp;nicht&nbsp;meh r&nbsp;kleiner.
    Muss&nbsp;ich&nbsp;vorher&nbsp;Brush.Style&nbsp;:& nbsp;=0?&nbsp;setzen,&uacute;nd&nbsp;wenn&nbsp;ja& nbsp;wie&nbsp;mach&nbsp;ich&nbsp;das?

    <b>procedure&nbsp;</b>TForm1.ComboBox1Change(Sender:&nbsp;TObject);
    <b>begin</b>&lt;
    &nbsp;&nbsp;Image1.Canvas.Brush.Style&nbsp;:=&nbsp ;<b>override</b>;
    &nbsp;&nbsp;Image1.Canvas.Brush.Style&nbsp;:=&nbsp ;bsClear;
    &nbsp;&nbsp;Image1.Canvas.Pen.Width&nbsp;&nbsp;&nb sp;:=&nbsp;StrToInt(combobox1.Text);
    &nbsp;&nbsp;Image1.Canvas.Rectangle(Image1.ClientR ect);
    <b>end</b>;
    </font>
Working...
X