|
 | | |
| Autor | Správa |
|---|
Siriuse
Užívateľ
Založený: 23.05.2009
Príspevky: 81
Bydlisko: Michalovce
 |  Zaslal: Ut 16.08.11 15:37 |   |
Keby ste mi vedeli pomoct, ako dosiahnem to:
Na formulary mam canvas na ktory sa narocnym vypoctom vykresluje graf. Chcel by som aby sa mi canvas zvacsoval ked menim velkost formulara. No ked som to spravil na akciu onResize tak pri zvacsovani formulara mi program zacal sekat a blikat a podobne somariny. Deje sa to preto lebo pri meneni velkosti formulara vypocet prebehne velmi vela krat. Totizto sa spusta na akciu onResize. Ja by som chcel aby sa spustil az ked sa prestane menit velkost formulara. Nieco ako onEndResizing. Vedel by mi niekto pomoct? |
| |
   |
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
| | Zaslal: Ut 16.08.11 19:18 | |
Kedze neviem, ako mas rieseny svoj projekt, tak napisem ti len odpoved na tvoju otazku - ako zavolat kod az po ukonceni zmeny velkosti formulara.
Sprava typu WM_END_RESIZING zrejme neexistuje, takze treba na to ist inak. Mozme sa napriklad zamysliet, ako clovek chape zmenu velkosti formu. Klikne sa na okraj aplikacie a taha sa do pozadovanej velkosti ( pripadne pomocou klavesnice, maximilizovanim, apod ). Kazdou zmenou prichadzaju spravy WM_SIZE. Po uvoleni tlacidla mysi ( klavesy, apod ) uz spravy nechodia. Tzn mozes vytvorit nejaky timer s intervalom napr 2 sekundy, do ktoreho tela by si dal pozadovany vypocetny a kresliaci kod.
Priklad:
| kód: | procedure TForm1.FormResize( TObject Sender )
begin
if ( Timer1.Enabled ) then
Timer1.Enabled := false;
Timer1.Enabled := true;
end;
//---------------------------------------------------------------------------
procedure TForm1.Timer1Timer( TObject Sender )
begin
ShowMessage( "end of resizing" );
Timer1.Enabled := false;
end; |
Interval timeru nech je 2000 a na zaciatku nech je vypnuty. |
| |
|
|
coldak
Skúsený užívateľ
Založený: 29.10.2008
Príspevky: 936
| | Zaslal: Ut 16.08.11 20:46 | |
|
|
|
Siriuse
Užívateľ
Založený: 23.05.2009
Príspevky: 81
Bydlisko: Michalovce
| | Zaslal: Ut 23.08.11 15:46 | |
no tak nakoniec WM_END_RESIZING neexistuje ale existuje WM_ENTERSIZEMOVE, diki moc chlapci... |
| |
|
|
Siriuse
Užívateľ
Založený: 23.05.2009
Príspevky: 81
Bydlisko: Michalovce
| | Zaslal: Št 25.08.11 11:51 | |
Ale WM_ENTERSIZEMOVE nezahrnuje maximalizaciu toho formulara, a taka akcia onMaximize nejestvuje, neviete mi poradit? |
| |
|
|
coldak
Skúsený užívateľ
Založený: 29.10.2008
Príspevky: 936
| | Zaslal: Št 25.08.11 14:02 | |
|
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
