TBitmap im Borland Builder

[Alex D. (Firma: Home) (needhelp)]

Hi ich will auf eine TImage Komponent ein weißes Bitmap Legen, nur wie?

Gruß Alex

[spess53 (Gast)]

HI

Wie meinst du das? Mit TImage ein weisses Rechteck erzeugen, oder noch 
ein TBitMap darüberlegen.

Ersteres mit: TImage.Picture.Bitmap.Canvas.FillRect....
Vorher Pen und Brush setzen.

MfG Spess

[Frank Z. (frankovic)]

Graphics::TBitmap *BMP = new Graphics::TBitmap();
BMP->Width = Image1->  Width;
BMP->Height = Image1->  Height;
BMP->Canvas->Brush->Color = clWhite;
BMP->Canvas->FillRect(Rect(0,0,BMP->Width,BMP->Height));

Image1->Picture->Bitmap->Assign(BMP);

delete BMP;