| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ПОЧЕМУ НЕ ХЧЕТ РИСОВАТЬ????? [D5, D6, WinME]

Anton Tsvilikh ©   (2003-02-01 21:35:00) 

procedure TForm1.Button1Click(Sender: TObject);
var
canvas: tcanvas;
begin
canvas:= tcanvas.Create;
canvas.Handle:= getdc(0);
canvas.brush.Color:= clred;
lineto(12,422,333);;
end;
end.
почему не рисует линию, или эллипс, или чего еще??? как нарисовать????

---

i-C3H7OH   (2003-02-02 05:27:00) [1]

где рисовать? на рабочем столе? зачем канвас (ему размер неплохо было бы задать)?

мож так?

procedure TForm1.Button1Click(Sender: TObject);
var
dc:HDC;
pen,op:HPEN;
begin
dc:= getdc(0);
pen := CreatePen(PS_SOLID, $00ff0000);
op := SelectObject(dc,pen);

Ellipse(dc, 0,100,0,200);

SelectObject(dc,op);
DeleteObject(pen);
ReleaseDC(0, dc);
end;



---

Наверх