Procedure

TfrmODGen.PlaceMemo

Module

fODGen

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODGen

Declaration

procedure PlaceMemo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer);

Calls Hierarchy


TfrmODGen.PlaceMemo
 ├TfrmODGen.SetComponentName
 ├TfrmODGen.ControlChange
 │ ├TResponses.Update
 │ │ ├TResponses.FindResponseByName
 │ │ └TResponses.IENForPrompt
 │ └TResponses.GetOrderText
 │   ├TResponses.NextInstance
 │   ├TResponses.FindResponseByName
 │   ├TResponses.FormatResponse
 │   │ └TResponses.FindResponseByIEN
 │   └TResponses.AppendChildren
 │     ├TResponses.FindPromptByIEN
 │     ├TResponses.FindResponseByIEN
 │     └TResponses.FormatResponse...
 └TfrmODGen.PlaceLabel

Called-By Hierarchy


        TfrmODGen.PlaceMemo
  TfrmODGen.PlaceControls┘ 
 TfrmODGen.SetDialogIEN┘   
TfrmODGen.SetupDialog┘     

Calls

Name Declaration Comments
TfrmODGen.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODGen.PlaceLabel procedure PlaceLabel(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem); -
TfrmODGen.SetComponentName procedure SetComponentName(Editor: TWinControl; Index: Integer; DialogCtrl: TDialogCtrl); -

Called-By

Name Declaration Comments
TfrmODGen.PlaceControls procedure PlaceControls; -


Source

569   procedure TfrmODGen.PlaceMemo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer);
570   const
571     NUM_LINES = 3;
572   begin
573     with DialogCtrl do
574     begin
575       Editor := TCaptionMemo.Create(Self);
576       Editor.Parent := sbxMain;
577       Editor.SetBounds(FEditorLeft, FEditorTop,
578                        sbxMain.Width - FEditorLeft - WD_MARGIN - GetSystemMetrics(SM_CXVSCROLL),
579                        (FCharHt * NUM_LINES) + HT_FRAME);
580       SetComponentName(Editor, CurrentItemNumber, DialogCtrl);
581      // TCaptionMemo(Editor).Name := DialogCtrl.ID + IntToStr(CurrentItemNumber);
582       TMemo(Editor).Text := DialogItem.EDefault;
583       TMemo(Editor).Hint := DialogItem.HelpText;
584       TCaptionMemo(Editor).Caption := DialogItem.Prompt;
585       if Length(DialogItem.HelpText) > 0 then TMemo(Editor).ShowHint := True;
586       TMemo(Editor).ScrollBars := ssVertical;
587       TMemo(Editor).OnChange := ControlChange;
588       PlaceLabel(DialogCtrl, DialogItem);
589       FEditorTop := FEditorTop + HT_FRAME + (FCharHt * 3) + HT_SPACE;
590     end;
591   end;