Delphi: liscio collasso/modulo di espansione

Question

Hai bisogno del tuo aiuto (sono bloccato nella ricerca di). Sono su Delphi Seattle, cercando di rendere più fluido il ridimensionamento del mio modulo. Nel mio caso "ridimensionamento" è solo un po 'crollo/espandere in questo modo:

Come posso capire che?

Ho provato l'uso di un TTimer:

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
h, t: integer; 
begin 
t := Button10.Top + Button10.Height + 10; //slide TForm from/to this point 
if t > h then 
begin 
h := h + 1; 
Form1.Height := h; 
end 
else 
begin 
Timer1.Enabled := false; 
end; 
end; 

... ma è sembra molto semplice (senza accelerazione/decelerazione) e lavora lento anche con piccolo intervallo.

Answer 1

Non è necessario complicarsi con TTimers. Questo si prenderà cura sia delle forme collassabili che in espansione, inclusa la levigatezza richiesta.

Il trucco consiste nel calcolare ogni passo prendendo la Dimensione obiettivo - Altezza corrente e div 3 ad ogni iterazione, che accelereranno entrambi il collasso iniziale o espanderanno, quindi decelereranno man mano che la forma si avvicina alla sua dimensione di destinazione.

procedure TForm1.SmoothResizeFormTo(const ToSize: integer); 
var 
    CurrentHeight: integer; 
    Step: integer; 
begin 
    while Height <> ToSize do 
    begin 
    CurrentHeight := Form1.Height; 

    // this is the trick which both accelerates initially then 
    // decelerates as the form reaches its target size 
    Step := (ToSize - CurrentHeight) div 3; 

    // this allows for both collapse and expand by using Absolute 
    // calculated value 
    if (Step = 0) and (Abs(ToSize - CurrentHeight) > 0) then 
    begin 
     Step := ToSize - CurrentHeight; 
     Sleep(50); // adjust for smoothness 
    end; 

    if Step <> 0 then 
    begin 
     Height := Height + Step; 
     sleep(50); // adjust for smoothness 
    end; 
    end; 
end; 

procedure TForm1.btnCollapseClick(Sender: TObject); 
begin 
    SmoothResizeFormTo(100); 
end; 

procedure TForm1.btnExpandClick(Sender: TObject); 
begin 
    SmoothResizeFormTo(800); 
end;