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

Pen Mode и методы рисования   Найти похожие ветки 

 
Urvin ©   (2003-07-05 22:38) [0]

Люди! Помогите! Либо у меня, лтбо у моих дельфей потихоньку едет крыша!
frmMain.TempVirt.LoadFromFile(ExtractFilePath(ParamStr(0))+ "IOI0.inf");
frmMain.TempVirt.Canvas.Pen.Mode:= pmMask;
frmMain.TempVirt.Canvas.Brush.Color:= frmMain.ColorUsing;
frmMain.TempVirt.Canvas.Rectangle(rect(-1,-1,33,33));
frmMain.TempVirt.Canvas.Pen.Mode:=pmWhite;
frmMAin.TempVirt.Canvas.Brush.Style:=bsClear;
frmMAin.TempVirt.Canvas.BrushCopy(rect(0,0,32,32),frmMAin.TempVirt2,rect(0,0,32,32),clBlack);

frmMain.TempVirt.Width:=32; frmMain.TempVirt.Height:=32;

( rect(100, 100, 132,132)
Люди! Помогите! Либо у меня, лтбо у моих дельфей потихоньку едет крыша!
frmMain.TempVirt.LoadFromFile(ExtractFilePath(ParamStr(0))+ "IOI0.inf");
frmMain.TempVirt.Canvas.Pen.Mode:= pmMask;
frmMain.TempVirt.Canvas.Brush.Color:= frmMain.ColorUsing;
frmMain.TempVirt.Canvas.Rectangle(rect(-1,-1,33,33));
frmMain.TempVirt.Canvas.Pen.Mode:=pmWhite;
frmMAin.TempVirt.Canvas.Brush.Style:=bsClear;
frmMAin.TempVirt.Canvas.BrushCopy(rect(0,0,32,32),frmMAin.TempVirt2,rect(0,0,32,32),clBlack);

frmMain.TempVirt.Width:=32; frmMain.TempVirt.Height:=32;

frmMain.imgPattern.Picture.Bitmap.Canvas.StretchDraw(rect(100, 100, 132,132),frmMain.TempVirt);

По идее, TempVirt2 - это маска, где черное - там должен остаться предыдущий рисунок, где белое - TempVirt покрасить белым. Беда в том, что слишком хорошо проходит рисование прямоугольника - т.е. правильно, но маску из другого битмапа я наложить уже не могу. Никак.


 
Urvin ©   (2003-07-10 16:32) [1]

Алло! Есть здесь кто?


 
Fenik ©   (2003-07-10 18:40) [2]

Развивай в себе экспериментатора! Когда у меня что-то не выходит, я пытаюсь всяко менять условаия и смотрю результат...


Подозрение вызывает:
frmMain.TempVirt.Canvas.Pen.Mode:=pmWhite;
Хотя я не знаю, не проверял. Попробуй взять pmCopy..


 
Urvin ©   (2003-07-12 23:55) [3]

Да млин! Чего только не брал! Думал, что копи не проходит. Ради дискретности ответа использовал дентал вайт! Ответ отрицательный



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

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



Память: 0.45 MB
Время: 0.021 c
1-41228
ИМХО
2003-11-01 02:06
2003.11.13
Строковая функция


1-41613
Floppy
2003-10-25 10:14
2003.11.13
QuickReport


9-40775
SdlWin
2003-05-01 15:49
2003.11.13
Вопрос про Terrain...


1-41502
ghg
2003-10-28 14:20
2003.11.13
TStringgrid


7-42198
Programmers88
2003-08-18 15:37
2003.11.13
POWER и RESET




   Наверх