Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fODGen.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Orders/fODGen.pas (modified) (2 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODGen.pas

@@ -339 +339 @@
     Editor.SetBounds(FEditorLeft, FEditorTop, NUM_CHAR * FCharWd, HT_FRAME * FCharHt);
     TORDateBox(Editor).DateOnly := Pos('T', DialogItem.Domain) = 0;
+    with TORDateBox(Editor) do RequireTime := (not DateOnly) and (Pos('R', DialogItem.Domain) > 0); //v26.48 - RV  PSI-05-002
     TORDateBox(Editor).Text := DialogItem.EDefault;
     TORDateBox(Editor).Hint := DialogItem.HelpText;
@@ -490 +491 @@
         end;
         with TORComboBox(Editor) do
+        begin
           Items.AddStrings(TStrings(TopTSList));
+          LongList := false;
+        end;
       end else
         TORComboBox(Editor).OnNeedData := LookupNeedData;