Вниз
Скачать: 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.969 c
1-41716
Гость
2003-11-03 16:37
2003.11.13
Что за компонента? Меню как в OutLook


1-41451
WondeRu
2003-10-23 09:43
2003.11.13
Плагины и СОМ


3-40869
denmin
2003-10-21 10:08
2003.11.13
можно ли соединить две таблицы в разных базах


14-41883
Думкин
2003-10-22 04:28
2003.11.13
С днем рождения! 22 октября.


3-41086
Брат
2003-10-23 11:24
2003.11.13
функция Sum в SQL




   Наверх