Procedure

SetUserWidths

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure SetUserWidths(var AControl: TControl);

Calls Hierarchy


SetUserWidths
 └LoadSizes

Called-By Hierarchy


                    SetUserWidths
     TfrmFrame.LoadSizesForUser┘ 
TfrmFrame.LoadUserPreferences┘   
       TfrmFrame.UMInitiate┘     

Calls

Name Declaration Comments
LoadSizes procedure LoadSizes; -

Called-By

Name Declaration Comments
TfrmFrame.LoadSizesForUser procedure LoadSizesForUser; -


Source

312   procedure SetUserWidths(var AControl: TControl);
313   var
314     x: string;
315   begin
316     if uWidths = nil then LoadSizes;
317     x := AControl.Name;
318     if not (AControl is TForm) and (Assigned(AControl.Owner)) then x := AControl.Owner.Name + '.' + x;
319     x := uWidths.Values[x];
320     if Assigned (AControl.Parent) then
321       AControl.Width := LowerOf(StrToIntDef(x, AControl.Width), AControl.Parent.Width - AControl.Left)
322     else
323       AControl.Width := StrToIntDef(x, AControl.Width);
324   end;