<font size=2 face="Courier New"><font color="#000000">Bekomme hiermit einen&nb sp;Rahmen um mein Bild,
größer kriege ich den&nb sp;Rahmen immer, nur nicht meh r kleiner.
Muss ich vorher Brush.Style :& nbsp;=0? setzen,únd wenn ja& nbsp;wie mach ich das?
<b>procedure </b>TForm1.ComboBox1Change(Sender: TObject);
<b>begin</b><
Image1.Canvas.Brush.Style :=  ;<b>override</b>;
Image1.Canvas.Brush.Style :=  ;bsClear;
Image1.Canvas.Pen.Width &nb sp;:= StrToInt(combobox1.Text);
Image1.Canvas.Rectangle(Image1.ClientR ect);
<b>end</b>;
</font>
größer kriege ich den&nb sp;Rahmen immer, nur nicht meh r kleiner.
Muss ich vorher Brush.Style :& nbsp;=0? setzen,únd wenn ja& nbsp;wie mach ich das?
<b>procedure </b>TForm1.ComboBox1Change(Sender: TObject);
<b>begin</b><
Image1.Canvas.Brush.Style :=  ;<b>override</b>;
Image1.Canvas.Brush.Style :=  ;bsClear;
Image1.Canvas.Pen.Width &nb sp;:= StrToInt(combobox1.Text);
Image1.Canvas.Rectangle(Image1.ClientR ect);
<b>end</b>;
</font>