timage1 timage2 один на другим прозрачный, как это сделать? [D6]
vilfred © (2002-12-24 02:17:00)
есть имадж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:00) [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 но оно дальше
ругается :(
Наверх 
ЧАТ |
Орешник |
|
