Очистить канву PaintBox а

← →
dDan (2005-08-10 16:11) [0]

Вот собственно сталкнулся с такой проблемой. Мой пайнтбокс должен быть прозрачным на нем я отрисовываю нужные мне фигуры а под ним имэйдж должен оставаться виден. Пробовал PaintBox.Canvas.Assign(nil) не пашет. Просто заливать тоже нельзя т.к картинка в имэйдже просто станет невидимой.

← →
Antonn © (2005-08-10 16:12) [1]

canvas.brush.style:=bsclear;
а потом залить.

сам не пробывал:)

← →
dDan (2005-08-10 16:33) [2]

Нет я таким способом рисую не прокатит вроде

← →
Gydvin © (2005-08-10 16:51) [3]

А если создать tmetafilecanvas или tcanvasmetafile - точно непомню.

Там фон прозрачный.

← →
Antonn © (2005-08-10 16:59) [4]

dDan (10.08.05 16:33) [2]
точно? а попробывать? вот, для очистки:

PaintBox1.Canvas.Brush.Style:=bsclear;
PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);
PaintBox1.Canvas.Brush.Style:=bssolid;

← →
dDan (2005-08-10 18:58) [5]

нет так тоже не хочет :(

← →
dDan (2005-08-11 16:26) [6]

Не у кого никаких идей? Mbo товарисч могет ты чего предложишь?

← →
Antonn © (2005-08-11 16:45) [7]

dDan (11.08.05 16:26) [6]
покажи код рисования.
у меня работает [4]

← →
Eraser © (2005-08-11 18:23) [8]

dDan (10.08.05 16:11)

Какой эффект наблюдается при выполнении [4]? Почему не работает?

← →
Магнитон Борыч (2005-08-11 20:27) [9]

PatBlt(PaintBox.Canvas.Handle, 0, 0, PaintBox.Width, PaintBox.Height, WHITENESS);

← →
Магнитон Борыч (2005-08-11 20:32) [10]

Опс. Не въехал сразу. [9] - не подходит.
Чтобы рисовать фигуры на картинке, не нужно класть ПаинтБокс на имейдж!
Это полный изврат.

← →
dDan (2005-08-11 20:33) [11]

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin PaintBox1.Canvas.Brush.Style:=bsclear; PaintBox1.Canvas.FillRect(PaintBox1.ClientRect); PaintBox1.Canvas.Rectangle(x-tw,y-th,x+tw,y+th); end;

← →
Магнитон Борыч (2005-08-11 21:06) [12]

Посмотри пример рисования на подобие паинта http://fenik.nm.ru/DrawPanel.zip
Возможно, это то, что тебе нужно.

← →
dDan (2005-08-11 21:36) [13]

В том то и загвоздка что у меня та м не просто Image а ImageEn вот а нам незя же вроде рисовать или я тупица

← →
Магнитон Борыч (2005-08-12 00:16) [14]

Рисовать можно на чем угодно!
Что касается ImageEn, то он для рисования и создан :)

TIEView = class(TCustomControl)
TImageEnView = class(TIEView)

Свойство Canvas должно быть. Исходники-то есть?
TImageEnVect - такая вещь присутствует?

← →
Antonn © (2005-08-12 05:36) [15]

dDan (11.08.05 20:33) [11]
это твой код рисования? Тебе как показали?

>PaintBox1.Canvas.Brush.Style:=bsclear;
>PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);
> PaintBox1.Canvas.Brush.Style:=bssolid;

← →
dDan (2005-08-12 12:02) [16]

2 Магнитон Борыч
//TImageEnVect - такая вещь присутствует?
Угу присудствует

← →
Магнитон Борыч (2005-08-12 23:55) [17]

TImageEnVect - я, честно говоря, этим не пользовался :))
Но название наводит на мысль, что это для вывода векторных фигур.
Если я прав, может быть этим и воспользоваться?
И в чем вообще задача? Граф. редактор?

← →
dDan (2005-08-13 08:16) [18]

Нет намного проще в техническом плане но и намного интереснее. У тебя есть ICQ для контакта с тобой?

← →
Магнитон Борыч (2005-08-13 19:01) [19]

ICQ нет. Пиши на ящик fenik@nm.ru

← →
забыл (2005-08-13 20:12) [20]

ImageEN рулит не подеЦЦки, имхо. читай справку.

← →
dDan (2005-08-13 21:10) [21]

На нем можно рисовать без ImageEnVec?

Очистить канву PaintBox а Найти похожие ветки