Servus,

ist es irgendwie möglich mit Hilfe eines Canvas auf einen SpeedButton zu zeichnen?

Danke schonmal!

SpeedButton.Canvas.CopyRect(Rect, Canvas);

Du kannst dir eine temporäre Bitmap erzeugen, darauf herumzeichnen und diese dann dem SpeedButton als Glyph zuordnen.

zusammenfalten · markieren

Delphi-Quellcode:

var
  bmp: TBitmap;
begin
  try
    bmp := TBitmap.Create;

    { Hier kannst Du nun auf dem Bitmap herumzeichnen... }

    SpeedButton1.Glyph.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

Danke erstmal!
Ein weiteres Problem: Warum funktioniert das hier nicht?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
  var
  bmp: TBitmap;
begin
  try
    bmp := TBitmap.Create;

    bmp.Canvas.Rectangle(0, 0, 20, 20);
    { Hier kannst Du nun auf dem Bitmap herumzeichnen... }

    SpeedButton1.Glyph.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

Welche .Width und .Height hat BMP ?

Zitat von negaH:

Welche .Width und .Height hat BMP ?

Du solltest das Bitmap ca. 16x16 Pixel gross machen...

Is das nötig?

Zitat von FriFra:

Du solltest das Bitmap ca. 16x16 Pixel gross machen...

Würde ich so generell nicht sagen. Was ist wenn sein Button 20x46 Pixel groß ist?

Also im obigen Code wird Rectangle(0, 0, 20, 20), das rechteck soll also 20x20 Pixel groß werden .

Nun frage ich dich nochmal wie groß der Canvas der BMP ist ?

Da du das im Source nicht festgelegt hast ist die Bitmap BMP 0 Pixel breit und 0 Pixel hoch. Wie soll darin ein Rechteck mit 20x20 reinpassen. Das nichts angezeigt wird ist also logsich. Änders ab in

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
  var
  bmp: TBitmap;
begin
  try
    bmp := TBitmap.Create;
    bmp.Width := SpeedButton1.Width -2;
    bmp.Height := SpeedButton1.Height -2;
    
    bmp.Canvas.Rectangle(0, 0, 20, 20);
    { Hier kannst Du nun auf dem Bitmap herumzeichnen... }

    SpeedButton1.Glyph.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

-2 für den 1 Pixel breiten Rahmen des Speedbuttons.

Gruß Hagen