Function

StrUserWidth

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function StrUserWidth(AControl: TControl): string;

Called-By Hierarchy


                     StrUserWidth
     TfrmFrame.SaveSizesForUser┘ 
TfrmFrame.SaveUserPreferences┘   
        TfrmFrame.FormClose┘     

Called-By

Name Declaration Comments
TfrmFrame.SaveSizesForUser procedure SaveSizesForUser; -


Source

425   function StrUserWidth(AControl: TControl): string;
426   var
427     x: string;
428   begin
429     x := AControl.Name;
430     if not (AControl is TForm) and (Assigned(AControl.Owner)) then x := AControl.Owner.Name + '.' + x;
431     with AControl do Result := 'W' + U + x + U + IntToStr(Width);
432   end;