🚀 go-pugleaf

W dniu 2016-08-19 o 09:54, Bartłomiej Sosenko pisze:
> W momencie otwierania okna doczytywana jest dynamicznie lista pól edycji która ma się pojawić.
>
> Jeśli bym to robił standardowo to dość brzydko widać jak obiekty się kolejno rysują (jest ich kilkanaście)
> Jeśli wyłączę widoczność panelu na którym się to rysuje i włączę po utworzeniu wszystkich elementów to efekt jest zadowalający ale jakoś mam wrażenie że jest na to bardziej sensowne rozwiązanie na które niestety się nie natknąłem.
>
> Możecie podpowiedzieć gdzie szukać?
> Dzięki!
>
Dziwne że dla kilkunastu komponentów jest to problem moze podczas 
dodawania cos sie musi policzyc ?

U mnie 1000 TEdit dodaje sie w 890ms. 100 sztuk w 94ms


procedure TForm28.Button1Click(Sender: TObject);
var
   e: Tedit;
   I: Integer;
   dw: Dword;
   WindowLocked: Boolean;
begin
   AllocConsole;
   dw := GetTickCount;
   WindowLocked := LockWindowUpdate(Application.MainForm.Handle);
   try
     for I := 0 to 100 - 1 do
     begin
       e := Tedit.Create(Self);
       e.Top := Random(Width);
       e.Left := Random(Height);
       e.Width := Random(255);
       e.Height := Random(64);
       e.Text := IntToStr(Random( High(Integer)));
       e.Parent := Self;
     end;
   finally
     if WindowLocked then
       LockWindowUpdate(0);
   end;
   Writeln('Czas=', GetTickCount - dw);
end;


M