Вниз
Скачать: CL | DM;

timage1 timage2 один на другим прозрачный, как это сделать?   Найти похожие ветки 

 
vilfred   (2002-12-24 02:17) [0]

есть имадж1, в нем показываю картинку, и над неи хочу сделать прозрачный второй timage2 на котором бы чтоннить рисовать можно было бы... лишьбы прозрачный был бы

код, которым гружу картинку в имадж1 такой:


BitMap1 := TBitMap.Create;
BitMap1.LoadFromFile("/home/vilfred/images/imgaimage.200212140408.bmp");
Image1.Canvas.Draw(0,0,BitMap1);


thanks!!

p.s. на самом деле это киликс. но пока никакой разницымежду дельфяими и киликсом не замечал... т.е. как дельфи шестой...


 
vilfred   (2002-12-24 03:22) [1]

дальше над timage1 ставлю timage2 и пишу

with Image2 do begin
canvas.Pen.Color:=clWhite;
canvas.Brush.color:=clWhite;
TransParent:=True;
TransParentMode:=tmAuto;
TransparentColor:=canvas.brush.color;
canvas.RectAngle(0, 0, Width,Height);
canvas.Pen.Color:=clBlue;

ну и далее что-то рисую в image2 с помощью ellipse, lineto, moveto(т.е. поверх картинки).

Вобщем оно ругается на то что и TransParentMode и TransParentColor undeclared identified...
на Transparen ругалось, исправли тем что вместо with Image2.canvas do begin написал with Image2 do begin но оно дальше ругается :(



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c
14-15289
zavdim
2002-12-17 10:57
2003.01.06
Форматирование текста программ


1-14972
LORD
2002-12-23 23:16
2003.01.06
как задействовать процедуру объявленную в другом модуле


1-15144
Fantom
2002-12-23 15:54
2003.01.06
проблемы с rich edit


3-14918
Vick
2002-12-02 16:26
2003.01.06
Сортировка в TClientDataSet


1-15134
DenK_vrtz
2002-12-23 13:17
2003.01.06
Сменить системную дату в NT




   Наверх