Bitmap mit einer farbe erstellen

[thomas2009]

Hallo

ich möchte keine weiße Bitmap erstellen sondern mit einer bestimten farbe:

Delphi-Quellcode:

var
  bmp: TBitmap;
begin
bmp:=TBitmap.Create;
bmp.Width:=Image1.Width;
bmp.Height:=Image1.Height;
// hier möchte ich zuerst eine farbe für Füllung zuweisen
Image1.Picture.Bitmap.Assign(bmp);
bmp-free;
end;

wie kann ich eine Farbe zuweisen ?

[Fussball-Robby]

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

[thomas2009]

Wo kommt die Farbe ?

[Fussball-Robby]

Oh klar, habe ich vergessen Vor dem FillRect musst du noch Bmp.Canvas.Brush.Color auf die gewünschte Farbe setzen, aber das müsst doch eigentlich klar sein

[thomas2009]

St immt

[Sunlight7]

Delphi-Quellcode:

   bmp:=TBitmap.Create;
   bmp.Canvas.Brush.Color:=Random(16777216);
   bmp.Width:=Image1.Width;
   bmp.Height:=Image1.Height;

Kommt ohne FillRect aus