Einzelnen Beitrag anzeigen

Benutzerbild von Fussball-Robby
Fussball-Robby

Registriert seit: 22. Okt 2007
Ort: Nähe Köln
1.063 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Bitmap mit einer farbe erstellen

  Alt 26. Jan 2009, 23:35
Du kannst einfach mittels FillRect die ganze Bitmap "ausmalen":
Delphi-Quellcode:
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.Width := Image1.Width;
    Bmp.Height := Image1.Height;
    Bmp.Canvas.FillRect(Image1.ClientRect); //oder Bmp.Canvas.FillRect(Rect(0, 0, Bmp.Width, Bmp.Height));
    Image1.Picture.Bitmap.Assign(Bmp);
  finally
    Bmp.Free;
  end;
end;
[Edit]Schutzblock hinzugefügt
Robert L.
Der folgende Satz ist richtig!
Der vorherige Satz ist falsch!

Paradox
  Mit Zitat antworten Zitat