Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateDialog.pas

Timestamp:

May 8, 2015, 7:52:55 AM (10 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateDialog.pas (modified) (7 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateDialog.pas

@@ -28 +28 @@
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormShow(Sender: TObject);
+    procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
+      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
   private
     FFirstBuild: boolean;
@@ -71 +73 @@
 procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload;
 procedure CheckBoilerplate4Fields(var AText: string; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload;
+procedure ShutdownTemplateDialog;
 
 var
@@ -81 +84 @@
 
 {$R *.DFM}
+
+var
+  uTemplateDialogRunning: boolean = false;
 
 const
@@ -289 +295 @@
 end;
 
+procedure ShutdownTemplateDialog;
+begin
+  if uTemplateDialogRunning and assigned(frmTemplateDialog) then
+  begin
+    frmTemplateDialog.Silent := True;
+    frmTemplateDialog.ModalResult := mrCancel;
+  end;
+end;
+
 procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE);
 begin
@@ -689 +704 @@
 procedure TfrmTemplateDialog.FormCreate(Sender: TObject);
 begin
+  uTemplateDialogRunning := True;
   FFirstBuild := TRUE;
   BuildIdx := TStringList.Create;
@@ -695 +711 @@
   FOldHintEvent := Application.OnShowHint;
   Application.OnShowHint := AppShowHint;
-  ResizeAnchoredFormToFont(Self);
+  //ResizeAnchoredFormToFont(Self);
   FMaxPnlWidth := FontWidthPixel(sbMain.Font.Handle) * MAX_ENTRY_WIDTH; //AGP change Template Dialog to wrap at 80 instead of 74
   SetFormPosition(Self);
+  ResizeAnchoredFormToFont(Self);
   SizeFormToCancelBtn();
 end;
@@ -720 +737 @@
   Entries.Free;
   BuildIdx.Free;
+  uTemplateDialogRunning := False;  
+end;
+
+procedure TfrmTemplateDialog.FormMouseWheel(Sender: TObject; Shift: TShiftState;
+  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
+begin
+  If RectContains(sbMain.BoundsRect, SbMain.ScreenToClient(MousePos)) then
+  begin
+    ScrollControl(sbMain, (WheelDelta > 0));
+    Handled := True;
+  end;
 end;