Procedure

TfrmODGen.PlaceSetOfCodes

Module

fODGen

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODGen

Declaration

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

Calls Hierarchy


TfrmODGen.PlaceSetOfCodes
 ├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.PlaceSetOfCodes
  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

422   procedure TfrmODGen.PlaceSetOfCodes(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer);
423   const
424     NUM_CHAR = 32;
425   var
426     x, y: string;
427   begin
428     with DialogCtrl do
429     begin
430       Editor := TORComboBox.Create(Self);
431       Editor.Parent := sbxMain;
432       TORComboBox(Editor).Style := orcsDropDown;
433       TORComboBox(Editor).ListItemsOnly := True;
434       TORComboBox(Editor).Pieces := '2';
435       SetComponentName(Editor, CurrentItemNumber, DialogCtrl);
436     //  TORComboBox(Editor).Name := DialogCtrl.ID + IntToStr(CurrentItemNumber);
437       Editor.SetBounds(FEditorLeft, FEditorTop, NUM_CHAR * FCharWd, HT_FRAME * FCharHt);
438       x := DialogItem.Domain;
439       repeat
440         y := Piece(x, ';', 1);
441         Delete(x, 1, Length(y) + 1);
442         y := Piece(y, ':', 1) + U + Piece(y, ':', 2);
443         TORComboBox(Editor).Items.Add(y);
444       until Length(x) = 0;
445       TORComboBox(Editor).SelectByID(DialogItem.IDefault);
446       //TORComboBox(Editor).Text := DialogItem.EDefault;
447       TORComboBox(Editor).RpcCall := DialogItem.HelpText;
448       if Length(DialogItem.HelpText) > 0 then TORComboBox(Editor).ShowHint := True;
449       TORComboBox(Editor).OnChange := ControlChange;
450       PlaceLabel(DialogCtrl, DialogItem);
451       FEditorTop := FEditorTop + HT_FRAME + FCharHt + HT_SPACE;
452     end;
453   end;