Function

StrUserBounds

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function StrUserBounds(AControl: TControl): string;

Called-By Hierarchy


                    StrUserBounds
     TfrmFrame.SaveSizesForUser┘ 
TfrmFrame.SaveUserPreferences┘   
        TfrmFrame.FormClose┘     

Called-By

Name Declaration Comments
TfrmFrame.SaveSizesForUser procedure SaveSizesForUser; -


Source

407   function StrUserBounds(AControl: TControl): string;
408   var
409     x: string;
410   begin
411     x := AControl.Name;
412     if not (AControl is TForm) and (Assigned(AControl.Owner)) then x := AControl.Owner.Name + '.' + x;
413     with AControl do Result := 'B' + U + x + U + IntToStr(Left) + ',' + IntToStr(Top) + ',' +
414                                                  IntToStr(Width) + ',' + IntToStr(Height);
415     if (AControl is TForm) and (TForm(AControl).WindowState = wsMaximized)
416       then Result := 'B' + U + x + U + '0,0,0,0';
417   end;