Рисую внизу формы прямоугольник. При резайзинге формы предыдущий отрисованный прямоугольник не стирается, а если добавляю 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;
|
|