Ho scritto una piccola applicazione in Lazarus (un orologio, bella novità)
i sorgente e l'eseguibile sono in
https://sites.google.com/site/corradoventu/home/software MyClok
ora quando faccio resize facendo click destro sulla barra in alto e scegliendo 'Resize' va tutto bene sia su Ubuntu 17.04 Unity che su 17.04 GNOME, mentre se faccio resize trascinando un bordo o l'angolo su Unity va tutto bene, su GNOME la finestra 'scappa' nell'angolo in alto a sinistra. Non so se aprire il problema su Ubuntu GNOME o su Lazarus. Nel dubbio comincio da qui.
Metto i sorgenti in allegato. Suggerimenti?
grazie.
Edit: metto qui la procedura di resize per evitarvi di pescarla dallo zip o dal sito
procedure TForm1.FormResize(Sender: TObject);
begin
If Form1.Height<hmin then Form1.Height:=hmin;
If Form1.Height>hmax then Form1.Height:=hmax;
If Form1.Width<wmin then Form1.Width:=wmin;
If Form1.Width>wmax then Form1.Width:=wmax;
If Form1.Height<>oldh then
begin
Form1.Width:=trunc(Form1.Height*2.5);
end
else
begin
Form1.Height:=trunc(Form1.Width/2.5);
end ;
oldh:=Form1.Height;
oldw:=Form1.Width;
Label1.Height:=Form1.Height;
Label1.Width:=Form1.Width;
Label1.font.size:=Trunc(Label1.Height/3);
end;