Procedure

TfrmODGen.PlaceLabel

Module

fODGen

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODGen

Declaration

procedure PlaceLabel(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem);

Called-By Hierarchy


          TfrmODGen.PlaceLabel
     TfrmODGen.PlaceDateTime┤ 
   TfrmODGen.PlaceControls┘ │ 
  TfrmODGen.SetDialogIEN┘   │ 
 TfrmODGen.SetupDialog┘     │ 
     TfrmODGen.PlaceFreeText┤ 
TfrmODGen.PlaceControls...┘ │ 
      TfrmODGen.PlaceNumeric┤ 
TfrmODGen.PlaceControls...┘ │ 
   TfrmODGen.PlaceSetOfCodes┤ 
TfrmODGen.PlaceControls...┘ │ 
        TfrmODGen.PlaceYesNo┤ 
TfrmODGen.PlaceControls...┘ │ 
       TfrmODGen.PlaceLookup┤ 
TfrmODGen.PlaceControls...┘ │ 
         TfrmODGen.PlaceMemo┘ 
TfrmODGen.PlaceControls...┘   

Called-By

Name Declaration Comments
TfrmODGen.PlaceDateTime procedure PlaceDateTime(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceFreeText procedure PlaceFreeText(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceLookup procedure PlaceLookup(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceMemo procedure PlaceMemo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceNumeric procedure PlaceNumeric(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceSetOfCodes procedure PlaceSetOfCodes(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceYesNo procedure PlaceYesNo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -


Source

599   procedure TfrmODGen.PlaceLabel(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem);
600   var
601     ht: integer;
602   begin
603     with DialogCtrl do
604     begin
605       Prompt := TStaticText.Create(Self);
606       Prompt.Parent := sbxMain;
607       Prompt.Caption := DialogItem.Prompt;
608       ht := Prompt.Height;   // CQ#15849
609       if ht < FCharHt then
610         ht := FCharHt;
611       Prompt.AutoSize := False;
612       Prompt.SetBounds(WD_MARGIN, FEditorTop + HT_LBLOFF, FLabelWd, ht);
613       Prompt.Alignment := taRightJustify;
614       Prompt.Visible := True;
615     end;
616   end;