На ум приходит такое:
1) Использовать свойство TransparentColor / TransparentColorValue
Это самый правильный способ будет, и самый простой, но работать будет только начиная с Win2k (вроде)...
Для этого установи свойство TransparentColor в True, выставь TransparentColorValue, например, в clWhite.
В OnPaint будет так:
| Код | begin
bitmap:=tbitmap.Create;
bitmap.loadfromfile('BMP&ICO\Image.bmp');
bitmap.transparent:=true;
bitmap.transparentcolor:=clwhite;
Canvas.Brush.Color := TransparentColorValue;
Canvas.FillRect(ClientRect);
Canvas.Draw(0,0,bitmap);
bitmap.Free;
end; |
В OnCreate надо оставить строчку brush.Style:=bsclear; DoubleBuffered должен быть False (если мало ли выставил в True)
Если подумать, то можно упростить так (OnPaint):
| Код | begin
bitmap:=tbitmap.Create;
bitmap.loadfromfile('BMP&ICO\Image.bmp');
Canvas.Draw(0,0,bitmap);
bitmap.Free;
end; |
Только в инспекторе должно быть выставлено у формы: TransparentColorValue := clWhite (это тот цвет, который пишешь в Bitmap.TransparentColor)
2) Способ немного посложнее. Не совсем правильный, но работать будет везде. Для этого запоминай то, что нарисовано на экране на том месте, куда будет выведена форма. А потом рисуй на форме это в качестве фона, и поверх этого выводи картинку...
Будет криво смотреться, если под твоей формой что-нибудь шевелится (кино например смотрится) - оно в пределах формы будет неподвижным...
Делается так:
В OnCreate ставишь:| Код |
begin
DoubleBuffered := True;
b:=tbitmap.Create;
b.LoadFromFile('BMP&ICO\Image.bmp');
clientwidth:=b.Width;
clientheight:=b.Height;
b.Free;
bb := Tbitmap.Create; // bb - глобальная переменная типа TBitmap
bb.Width := clientwidth;
bb.height := clientheight;
BitBlt (bb.Canvas.Handle, 0, 0, clientWidth, clientheight,
getdc(0), left, top, SRCCOPY); // копируем с экрана
end; |
(заметь, строки brush.Style:=bsclear; не надо)
В OnPaint будет так:| Код | procedure TTitleForm.FormPaint(Sender: TObject);
var
bitmap:tbitmap;
begin
canvas.Draw(0, 0, bb); // вот, что добавилось!
bitmap:=tbitmap.Create;
bitmap.loadfromfile('BMP&ICO\Image.bmp');
bitmap.transparent:=true;
bitmap.transparentcolor:=clwhite;
canvas.Draw(0,0,bitmap);
bitmap.Free;
end; |
PS: совет: 1- грузи картинку лучше один раз и потом её отображай.
2- освобождай память, а то у тебя нет ниодного bitmap.Free (хотя может ты это специально не написал, чтоб меньше кода было тут ?...)
Добавлено @ 15:53
3) Использовать регионы - в FAQ поищи статью по этому поводу...
|
