Registriert seit: 6. Nov 2007
668 Beiträge
Delphi 7 Personal
|
Bild in eine Buttonkomponente??
17. Feb 2008, 12:37
hi
bin gerade dabei eine Buttonkomponente zu erstellen, ich will allerdings (falls dies möglich ist) ein Bild statt zb. im Anhang einen Kreis als Button verwenden.
mit loadfromFile und LoadBitmap funktioniert es nicht, muss ich da einen eigenen Dateityp verwenden oder funktionieren solche Sachen grundsätzlich nicht?
hier ist einmal ein Auszug aus dem Kreisbutton
Delphi-Quellcode:
procedure TOButton.Paint;
var i: Integer;
begin
// Position für Anzeige von Caption
x := (Width - Canvas.TextWidth(Caption)) div 2;
y := (Height- Canvas.TextHeight(Caption)) div 2;
// OButton gedrückt
if Pressed then
for i := 1 to 3 do
begin
// Canvas.Pen.Color := OColor[4-i];
Canvas.Pen.Color := OColor[(i+1) div 2]; //statt den paar zeilen ein Bild einfügen
Canvas.Arc (i, i, Width-i, Height-i, i, i, i, i);
Canvas.Ellipse (3, 3, Width-3, Height-3);
Canvas.TextOut (x+1,y+1, Caption+' ');
end
// OButton nicht gedrückt
else
for i := 1 to 3 do
begin
Canvas.Pen.Color := OColor[i];
Canvas.Arc (i, i, Width-i, Height-i, i, i, i, i);//hier genau so
Canvas.Ellipse (3, 3, Width-3, Height-3);
Canvas.TextOut (x,y, Caption+' ');
end;
end;
Sebastian
ölpölp
Linux will rule the universe!!
|
|
Zitat
|