Wallace it appears that all the procedure is completely self contained, in that it only references passed parameters.
Why not just put it in it's own unit (or a common utilities unit) and include it in any form that needs it, rather than having it in the mainform unit On Tue, Oct 11, 2016 at 5:26 PM, Marshland Engineering < marshl...@marshland.co.nz> wrote: > I'm back on the window page scaling for various forms in my project. This > code > works quite well. It needs to reside in the main form. I can't get the > syntax > right to be able to call it from a child form. > > Any suggestions? > > procedure FormScale (rHeiScale:real; rWidScale:real; sForm:tForm); > var > i:integer; > rWidth,rHeight:real; > begin > with sForm do begin > rHeight:=rHeiScale*(Screen.Height/Height); // Scale form > rWidth:=rWidScale*(Screen.Width/Width); > Height:=Round(Height*rHeight); > Width:=Round(Width*rWidth); > Left:=Round((Screen.Width-Width)/2); // Center form > Top:=Round((Screen.Height-Height)/2); > for i:=0 to componentcount-1 do > if Components[i] is TControl then begin > TControl(Components[i]).Top := > Round(TControl(Components[i]).Top*rHeight); > TControl(Components[i]).Width := > Round(TControl(Components[i]).Width*rWidth); > TControl(Components[i]).Height := > Round(TControl(Components[i]).Height*rHeight); > TControl(Components[i]).Left := > Round(TControl(Components[i]).Left*rWidth); > end; > end; > end; > > _______________________________________________ > NZ Borland Developers Group - Delphi mailing list > Post: delphi@listserver.123.net.nz > Admin: http://delphi.org.nz/mailman/listinfo/delphi > Unsubscribe: send an email to delphi-requ...@listserver.123.net.nz with > Subject: unsubscribe >
_______________________________________________ NZ Borland Developers Group - Delphi mailing list Post: delphi@listserver.123.net.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@listserver.123.net.nz with Subject: unsubscribe
