Code: Alles auswählen
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('project1.ico');
Image1.Picture.Bitmap.Canvas.Brush.Style := bsClear;
Image1.Picture.Bitmap.Canvas.TextOut(10, 10, 'Hello world');
Image1.Picture.Bitmap.Canvas.Rectangle(15, 15, 40, 40); // ominöse Zeile
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.SaveToFile('test.png');
end;
Entferne ich aber das Rechteck, dann wird komischerweise auch keinen Text ausgegeben.
Drücke ich aber den Button, und öffne die Test.png, ist dort der Text vorhanden.
Warum ?