Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.01.2009, 15:14   #1
NieL
Форумчанин
 
Регистрация: 17.11.2008
Сообщений: 116
По умолчанию рисовать в design-time (Paint)

Пишу класс-наследник от TForm. Возникла необходимость рисовать в design-time (P.S. рисовал в WM_PAINT). Решил попробывать рисовать в методе Paint, но ничего не получилось.

Вот к примеру код не рисует в design-time:
Код:
procedure TForm1.Paint;
var
  DC: HDC;
  B: HBRUSH;
begin
  inherited Paint;
  if (csDesigning in ComponentState) then
  begin
    DC := GetDC(Handle);
    if DC <> 0 then
      try
        B := GetSysColorBrush(GetSysColorBrush(COLOR_BTNSHADOW));
        try
          FillRect(DC, Rect(0, 0, ClientWidth, 50), B);
        finally
          DeleteObject(B);
        end;
      finally
        ReleaseDC(Handle, DC);
      end;
  end;
end;
Вопрос: А возможно ли вообще рисовать в design-time при помощи метода Paint, или же он позволяет рисовать только в Run-Time?
NieL вне форума Ответить с цитированием
Старый 15.01.2009, 16:55   #2
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Не пробовал, но судя по коду:

Код:
procedure TCustomForm.PaintWindow(DC: HDC);
begin
    //....
      if FDesigner <> nil then FDesigner.PaintGrid else Paint;
    //...
end;
Paint в Design-time не вызывается. Вот, кстати, еще одна возможность - перекрыть PaintWindow
alexBlack вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с Paint devi409 Win Api 9 18.12.2008 18:51
tCheckListBox-Как отметить некотрые item-ы в design time? Altera Компоненты Delphi 9 17.12.2008 07:19
Paint Артэс Win Api 4 30.11.2008 02:09
Типа Paint Neba Общие вопросы Delphi 1 26.11.2008 23:41
paint ben95 Общие вопросы Delphi 1 30.03.2008 09:27