Как запретить перерисовку отдельному компоненту?

← →
Gear (2004-11-16 19:27) [0]

На форме имею ListBox у которого на методе OnDraw куча формул которые формируют вывод строчек с картинками и т. п. При изменении размеров формы перерисовка листбокса дико тормозит естественно из-за своей нагруженности. Как отключить перерисовку листбокса именно на период изменения размеров формы?

← →
Defunct © (2004-11-16 19:34) [1]

WM_SETREDRAW

← →
novice_man © (2004-11-16 19:35) [2]

Блокировка перерисовки:
SendMessage(TWinControl.Handle, WM_SETREDRAW, 0, 0)
Разблокировка:
SendMessage(TWinControl.Handle, WM_SETREDRAW, 1, 0);
RedrawWindow(TWinControl.Handle, nil, 0,
RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);

← →
Gear (2004-11-16 19:59) [3]

А как определить тот момент при котором я пытаюсь изменять размеры формы мышкой?

← →
novice_man © (2004-11-16 20:03) [4]

Gear (16.11.04 19:59) [3]

А как определить тот момент при котором я пытаюсь изменять размеры формы мышкой?

procedure TForm1.FormResize(Sender: TObject);
begin

end;

происходит во впемя изменения формы.

← →
Gear (2004-11-16 20:05) [5]

А как отловить начало и конец этого момента чтобы соответственно послать блокировку и разблокировку?

← →
novice_man © (2004-11-16 20:10) [6]

Примерно вот так, хотя правильно через сообщения, счас гляну.

procedure TForm1.FormResize(Sender: TObject);
begin
Form1.Caption := "начало";
end;

procedure TForm1.FormConstrainedResize(Sender: TObject; var MinWidth,
MinHeight, MaxWidth, MaxHeight: Integer);
begin
Form1.Caption := "конец";
end;

← →
novice_man © (2004-11-16 20:16) [7]

wm_Size

Уведомляет окно, что его размер изменился

lParamLo: Новая ширина области пользователя
lParamHi: Новая высота области пользователя

← →
Gear (2004-11-16 20:18) [8]

Спасибо!

← →
novice_man © (2004-11-16 20:19) [9]

отлавливать примерно так:

type
TForm1 = class(TForm)
private
{Private declarations}
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;
public
{Public declarations}
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = wm_Size) then

end;

Да чуть не забыл, добавь inherited;

procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = wm_Size) then
inherited;
end;

> Gear (16.11.04 19:27)

1. Вводим в форму приватное булевское поле FResizing.

2. Обработчик WM_SIZING (идет изменение размеров):
FResizing := True; inherited;

3. Обработчик WM_SIZE (изменение размеров закончено):
FResizing := False; inherited;

4. Обработчик ListBox.OnDraw:
if not FResizing then begin ... // Здесь весь Ваш код. end;

Gear (16.11.04 20:18) [8]
Спасибо!

Ушел, но обещал вернуться!

← →
Gear (2004-11-17 12:18) [13]

Вернулся, спасибо в двойне!:)

Как запретить перерисовку отдельному компоненту? Найти похожие ветки