Рисование

← →
dubolom © (2006-03-30 18:47) [0]

Как нарисовать что бы то ни было непосредственно на форме?
Код подобный этому ничего не рисует:
dc:=GetDC(Form1.Handle);
//Дальше рисование, например
Rectangle(dc,100,100,200,200);
ReleaseDC(Form1.Handle, dc);

← →
Cash © (2006-03-30 18:55) [1]

Бр-р-р-р-р.... Ето зачем такой изврат??? :)
У формы есть Canvas, на ней и рисуй! ;)

← →
Чародей © (2006-03-30 20:07) [2]

> dc:=GetDC(Form1.Handle);

Логично, что ничего не рисует контекст содержит установки контекста формы. Что будет если ты на белом фоне нарисуешь белый квадрат?

← →
dubolom © (2006-03-30 23:10) [3]

>Бр-р-р-р-р.... Ето зачем такой изврат??? :)
Подобное извращение нужно было для рисования собственных кнопок, которое производилось с помощью функции StretchBlt()

>У формы есть Canvas, на ней и рисуй! ;)
Возможно я чего-то не понимаю, но Canvas не помогает. Может быть пример?

>Логично, что ничего не рисует контекст содержит установки контекста >формы. Что будет если ты на белом фоне нарисуешь белый квадрат?
Предварительная загрузка в контекст ручки и кисти ничего не изменяла.

Операции по прорисовке необходимо поместить в обработчик собития формы OnPaint.

Либо:

procedure TFrom1.Paint; Var ps:TPaintStruct; begin Windows.BeginPaint(Handle,ps); //Здесь рисуешь что- нибудь. //С использование любых средств (но форме, чей Handle указал). Windows.EndPaint(Handle,ps); end;

>dc:=GetDC(Form1.Handle);
>//Дальше рисование, например
>Rectangle(dc,100,100,200,200);
> ReleaseDC(Form1.Handle, dc);

Это абсолютно рабочий пример, который все прекрасно рисует.
Если у тебя не рисует, то по каким-то другим причинам

Рисование Найти похожие ветки