Ĺadny brzuch
Jeżeli w OnCanResize formu dam taki kodzik:
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin if NewWidth > 250 then begin NewWidth := 250; end; end;
To, gdy zaczne zmieniać rozmiar od lewej krawędzi, ciągnąc ją w prawo, okienko mi się przesunie gdy razmiar będzie < 250. Jak temu zapobiec?
----
m@il: ali88[at]tlen[dot]pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712
przesuwac spowrotem :P
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
cytat:migajek napisał:
przesuwac spowrotem :P
Troche się nie daje :( Jakieś inne pomysły?
----
m@il: ali88[at]tlen[dot]pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712
Najprościejszy sposób to chyba Timer1.Interval := 1 i dalej wiesz co;)
cytat:LewB ar napisał:
strasznie nie optymalne to jest :D
wstaw zamiast NewWidth := 250; CanResize := False; może zadziała :D
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
Bełdzio - jak już to Resize := false, ale tak poza tym to moje rozwiązanie (w przeciwieństwie do Twojego) daje przynajmniej oczekiwany efekt (choć wygląda to okropnie) :lol:
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin if NewWidth > 250 then begin NewWidth := 250; end; end;
To, gdy zaczne zmieniać rozmiar od lewej krawędzi, ciągnąc ją w prawo, okienko mi się przesunie gdy razmiar będzie < 250. Jak temu zapobiec?
----
m@il: ali88[at]tlen[dot]pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712
przesuwac spowrotem :P
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
cytat:migajek napisał:
przesuwac spowrotem :P
Troche się nie daje :( Jakieś inne pomysły?
----
m@il: ali88[at]tlen[dot]pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712
Najprościejszy sposób to chyba Timer1.Interval := 1 i dalej wiesz co;)
cytat:LewB ar napisał:
strasznie nie optymalne to jest :D
wstaw zamiast NewWidth := 250; CanResize := False; może zadziała :D
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
Bełdzio - jak już to Resize := false, ale tak poza tym to moje rozwiązanie (w przeciwieństwie do Twojego) daje przynajmniej oczekiwany efekt (choć wygląda to okropnie) :lol: