[DUG] Procedure run from main program

[Barry Neale]

The simplest way is just to have definition in the interface and then copy
what you have to the implementation

unit Unit1;

interface

 You'll need to use a few units to find the reference to TForm etc

procedure FormScale (rHeiScale:real; rWidScale:real; sForm:tForm);

implementation


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;

end.

A slightly different way would be to make a class, then have a class
function in the interface.
Ie:

type

TWallacesFormResize = TObject
public
   class procedure FormScale (rHeiScale:real; rWidScale:real; sForm:tForm);
end;

Then to call it for a form it's

TWallacesFormResize.FormScale(parameters)



On Wed, Oct 12, 2016 at 11:10 AM, Marshland Engineering <
marshland at marshland.co.nz> wrote:

> When I put it in the interface unit, it added a uses statement before it
> with
> the forms included in it and each time I compiled it added more and more
> bits
> in.
>
> >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
>
> I like this idea but not sure how to implement it and how to call it.
>
> Adding a blank unit, I have
>
> unit Unit1;
>
> interface
>
> implementation
>
> end.
>
> Thanks Wallace.
>
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at listserver.123.net.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at listserver.123.net.nz with
> Subject: unsubscribe
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20161012/219494be/attachment.html