Hi Why can't you call it? What is the error message / problem?
On 11/10/2016 5:26 PM, Marshland Engineering 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 > > > ----- > No virus found in this message. > Checked by AVG - www.avg.com > Version: 2016.0.7797 / Virus Database: 4656/13188 - Release Date: 10/11/16 > > _______________________________________________ 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
