Вниз
Скачать: 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
3-14914
old_mole
2002-12-12 11:52
2003.01.06
Помогите с Report`ом


14-15307
pavelsinicinv
2002-12-18 10:02
2003.01.06
Server


8-15163
Pavel_s
2002-09-19 09:08
2003.01.06
TImage


3-14900
denary
2002-12-13 02:53
2003.01.06
Как записать символы (греческие буквы) в БД?


1-15052
Separator
2002-12-25 07:53
2003.01.06
Работа с реестром




   Наверх