hey, danke! Das mit dem selbsterstellen gefällt mir schon mal ziemlich gut.
Ich versuch grad das ganze etz aber in ne Statuspanel von einer Statusbar reinzubringen.
Leider hab ich oben immer ne weißen Rand. Der mir nicht so gut gefällt und das Bild stiecht auch ne bissel über das Statuspanel hinaus. Ne idee wie man den wegbekommt, bzw. es sauber in die Statusbar einfügen kann?
Aktueller Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
rec : TRect;
begin
Image1.Parent := Statusbar1;
Statusbar1.Perform(SB_GETRECT, 0, Integer(@rec));
Image1.Top := rec.Top;
Image1.Left := rec.Left;
Image1.Width := rec.Right - rec.Left;
Image1.Height := rec.Bottom - rec.Top;
Image1.Canvas.Brush.Color := $0000FAFA;
Image1.Canvas.Brush.Style := bsSolid;
Image1.Canvas.FillRect(rec);
Image1.Canvas.Brush.Style := bsClear;
Image1.Canvas.TextOut(Image1.Width DIV 2,Image1.Height DIV 2,'blubb');
end;
grüße janos