Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

ПОЧЕМУ НЕ ХЧЕТ РИСОВАТЬ?????   Найти похожие ветки 

 
Anton Tsvilikh ©   (2003-02-01 21:35) [0]

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) [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;




Страницы: 1 вся ветка

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.03 c
1-28860
Юный_программер
2003-01-30 13:26
2003.02.10
Вопрос про Аски-код клавиши BaskCape, типа


1-28904
Explorer
2003-01-30 08:42
2003.02.10
Градиент фона


7-29120
Safonov
2002-12-05 16:41
2003.02.10
программирование Com порта на asm е


7-29128
Lipa
2002-12-02 16:39
2003.02.10
Как работать с COM портами в DELPHI


6-28952
Nord-Ost
2002-12-15 15:18
2003.02.10
Отправка всплывающего сообщения на другой компьютер