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

Вниз

<<<Вопрос по canvas>>>   Найти похожие ветки 

 
Nox ©   (2002-07-26 19:28) [0]

Люди, у меня замкнуло: как через canvas нарисовать на десктопе сетку? Причём с выделенными жирным осями X и Y.


 
AlexSV ©   (2002-07-26 20:56) [1]

Простой пример, думаю дальше разберешся:

Исходное - на форме TPanel и TButton.

Объявим, чтобы добраться до Canvas"a

type
pMy = class(TPanel);

У кнопки на Click:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
with pMy(Panel1).Canvas do begin
Pen.Color := clBlack;
Pen.Width := 3;
MoveTo(100, 10);
LineTo(100, 320);
LineTo(520, 320);
Pen.Width := 1;
for i := 2 to 5 do begin
MoveTo(100*i, 20);
LineTo(100*i, 320);
end;
for i := 0 to 2 do begin
MoveTo(100, 100*i + 20);
LineTo(500, 100*i + 20);
end;
end;
end;


 
Nox ©   (2002-07-26 22:14) [2]

Спасибо, AlexSV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
14-24175
Sour
2002-07-11 14:15
2002.08.08
Почтовый ящик


4-24275
Baz
2002-05-31 10:50
2002.08.08
Как правильно обрабатывать сообщение WM_PAINT?


7-24240
Евгений!
2002-03-06 19:44
2002.08.08
Как добавить свой пункт в контекстное меню IE и ...


14-24234
Alx2
2002-07-12 10:39
2002.08.08
Справочная система из html


1-24023
KPY
2002-07-29 05:38
2002.08.08
Как остановить программу и посмотреть значение переменных