So, hab heut mah versucht datt eh bissl umzusetzen mit dem canvas, aber irgenwie will nix so recht.
Irgendwie is datt rote bild immer vor dem Text
Delphi-Quellcode:
iTag := IntToStr(i);
(FindComponent('Images'+(iTag)) as TImage).Picture.Assign(Rot);
(FindComponent('Images'+((iTag))) as TImage).Canvas.TextOut(16, 16, '100');
Klappt nich wirklich, sieht sch... aus.(Siehe Bild links oben der Button)
Delphi-Quellcode:
procedure TForm1.AllMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
itag:wideString;
begin
iTag := IntToStr((Sender as TControl).Tag);
//(FindComponent('Image'+(iTag)) as TImage).Picture.Assign(Buttonunten[(Sender as TImage).Tag]);
ImageList1.Draw((FindComponent('Image'+(iTag)) as TImage).Canvas, 0, 0, 0);
end;
Klappt so halb, durch die auflösungsveränderung wills nich wirklich.(siehe Bild)
Gibt es da einen Befehl?Noch einmal neuzeichnen oder so?
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Canvas.Draw(0, 0, MainBitmap);
end;