VPF::Paint - Форум программистов

NieL

Дата 15.1.2009, 10:58 (ссылка)

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

Загрузка ...

Бывалый

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

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

Рисую внизу формы прямоугольник. При резайзинге формы предыдущий отрисованный прямоугольник не стирается, а если добавляю Invalidate то форма начинает мерцать. Помогите исправить ошибку.

Код


procedure TForm1.Paint;
var
  t: Integer;
  DC: HDC;
  s: string;
  R: TRect;
begin
  inherited;
  if not (csDesigning in ComponentState)  then
  begin
    DC := GetDC(Handle);
    try
     // Invalidate;
      t := ClientHeight - (2 * const_default_Top + const_default_Height);
      FillRect(DC, Rect(0, t, ClientWidth, ClientHeight), GetSysColor(COLOR_BTNSHADOW));
      s := IntToStr(t);
      R := Rect(const_default_Left, t + const_default_Top,
        const_default_Left + Canvas.TextWidth(S) * Length(S),
        t + const_default_Top + Canvas.TextHeight(s));
      DrawText(DC, PChar(s), Length(s), R, 0);
    finally
      ReleaseDC(Handle, DC);
    end;
  end;
end;

Frees

Дата 15.1.2009, 12:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

если побыстрому то

Код


procedure TForm1.FormResize(Sender: TObject);
begin
      Invalidate;
end;

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

Кольцов Виктор Владимирович

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