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..

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

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