Permalink
Browse files

Issue #416: avoid flicker in data sorting dialog, while adding buttons

  • Loading branch information...
ansgarbecker committed Dec 2, 2018
1 parent 7e84a3f commit 382be9586900edac7f7333f42e22ca8a66686196
Showing with 2 additions and 0 deletions.
  1. +2 −0 source/data_sorting.pas
@@ -97,6 +97,7 @@ procedure TDataSortingForm.DisplaySortingControls(Sender: TObject);
// Create line with controls for each order column
// TODO: disable repaint on every created control. Sending WM_SETREDRAW=0 message creates artefacts.
LockWindowUpdate(pnlBevel.Handle);
for i:=0 to Length(OrderColumns)-1 do begin
// 1. Label with number
lblNumber := TLabel.Create(self);
@@ -155,6 +156,7 @@ procedure TDataSortingForm.DisplaySortingControls(Sender: TObject);
TopPos := comboColumns.Top + comboColumns.Height + Margin;
end;
LockWindowUpdate(0);
Inc(TopPos, MarginBig);

0 comments on commit 382be95

Please sign in to comment.