Hallo,
Hat irgendwer eine Idee, wie man in einem TEdit-Feld Zeichnen kann. Ich möchte in einem TEdit Feld ein kleines Dreieck an der rechten oberen Ecke einfügen.
Der untenstehende Code funktioniert eigentlich recht passabel, aber leider nur beim ersten Mal. Wenn sicht die Größe des Edit-Feldes ändert, bleibt das Dreieck unverändert stehen.
Hat jemand eine Idee warum das so ist, oder evtl. einen Vorschlag wie man es besser machen kann ?
Gruss Markus
Code :
<pre>
with Image1 do
begin
Top := 80;
Left := 464;
Picture.Bitmap.Width := Edit1.Width - 4;
Picture.Bitmap.Height := Edit1.Height - 4;
with Canvas do
begin
Brush.Color := clWindow;
pen.Color := clWindow ;
Rectangle(0,0,Image1.Width, Image1.Height);
end;
Width := Picture.Bitmap.Width;
Height := Picture.Bitmap.Height;
end;
// Zeichne schwarzes Viereck in die rechte obere Ecke;
x:= 10;
for z:= 0 to 10 do
begin
for i := Image1.Picture.Bitmap.Width - x to Image1.Picture.Bitmap.Width do
begin
Image1.Picture.Bitmap.Canvas.Pixels[i,z] := clBlack;
end;
end;
</PRE>
Hat irgendwer eine Idee, wie man in einem TEdit-Feld Zeichnen kann. Ich möchte in einem TEdit Feld ein kleines Dreieck an der rechten oberen Ecke einfügen.
Der untenstehende Code funktioniert eigentlich recht passabel, aber leider nur beim ersten Mal. Wenn sicht die Größe des Edit-Feldes ändert, bleibt das Dreieck unverändert stehen.
Hat jemand eine Idee warum das so ist, oder evtl. einen Vorschlag wie man es besser machen kann ?
Gruss Markus
Code :
<pre>
with Image1 do
begin
Top := 80;
Left := 464;
Picture.Bitmap.Width := Edit1.Width - 4;
Picture.Bitmap.Height := Edit1.Height - 4;
with Canvas do
begin
Brush.Color := clWindow;
pen.Color := clWindow ;
Rectangle(0,0,Image1.Width, Image1.Height);
end;
Width := Picture.Bitmap.Width;
Height := Picture.Bitmap.Height;
end;
// Zeichne schwarzes Viereck in die rechte obere Ecke;
x:= 10;
for z:= 0 to 10 do
begin
for i := Image1.Picture.Bitmap.Width - x to Image1.Picture.Bitmap.Width do
begin
Image1.Picture.Bitmap.Canvas.Pixels[i,z] := clBlack;
end;
end;
</PRE>