VPF::Canvas.LineTo - Форум программистов

asdf

Дата 23.9.2004, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 144
Регистрация: 27.8.2004
Где: Кишинёвъ

Репутация: 1
Всего: 11

типа на клик исполняется этот код

Цитата

with drawgrid1 do
begin
point1.x:=x*(DefaultColWidth+GridLineWidth);
point1.y:=y*(DefaultRowHeight+GridLineWidth);
Canvas.Penpos:=point1;
Canvas.pen.Color:=clPurple;
Canvas.LineTo((x+1)*(DefaultColWidth+GridLineWidth), (y+1)*(DefaultRowHeight+GridLineWidth));
point1.x:=(x+1)*(DefaultColWidth+GridLineWidth);
point1.y:=y*(DefaultRowHeight+GridLineWidth);
Canvas.PenPos:=point1;
Canvas.LineTo(x*(DefaultColWidth+GridLineWidth), (y+1)*(DefaultRowHeight+GridLineWidth));
end;

при следующем клике предыдущий рисунок исчезает.
ну, наверна, как сохранять рисунок дольше?

--------------------

...

Illusion Dolphin

Дата 23.9.2004, 23:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

shurick
Рисовать на виртуальном битмапе и при onpaint прорисовывать его (как и после onclick).

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

asdf

Дата 24.9.2004, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 144
Регистрация: 27.8.2004
Где: Кишинёвъ

Репутация: 1
Всего: 11

Цитата

Рисовать на виртуальном битмапе и при onpaint прорисовывать его (как и после onclick).

--------------------

...

Атос

Дата 24.9.2004, 19:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 11.9.2004
Где: Екатеринбург

Репутация: нет
Всего: нет

Код


TMyForm =...
   ....
   FBmp: TBitmap;
   procedure OnCreate(...);
   procedure OnClick(...);
   procedure OnDrawGridDrawCell(...); // атач на драугрид или что там у тебя еще
end;

procedure OnCreate(...);
begin
  FBmp := TBitmap.Create;
  with FBmp do begin
     ...
     Canvas.FillRect(...);
  end;
end;

procedure OnClick(...);
begin
  with FBmp do begin
     Canvas.LineTo(...); ...  // рисуем то что ты хотел
  end;
  DrawGrid.Invalidate; // или как там у тя называется комп :) для того, чтобы сработало DrawGridDrawCell
end;

procedure DrawGridDrawCell(...);
begin
   DrawGrid.Canvas.Draw(rect.left, rect.top, FBmp);
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »