Changeset 830 for cprs/trunk/CPRS-Chart/fReminderTree.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fReminderTree.pas (modified) (10 diffs)

cprs/trunk/CPRS-Chart/fReminderTree.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ORCtrls, ExtCtrls, ComCtrls, ImgList, ORFn, Menus;
+  StdCtrls, ORCtrls, ExtCtrls, ComCtrls, ImgList, ORFn, Menus, fBase508Form,
+  VA508AccessibilityManager, VA508ImageListLabeler;
 
 type
-  TfrmReminderTree = class(TForm)
+  TtvRem508Manager = class(TVA508ComponentManager)
+  private
+    function getDueDate(sData : String): String;
+    function getLastOcc(sData : String): String;
+    function getPriority(sData : String): String;
+    function getName(sData : String): String;
+    function getImgText(Node : TORTreeNode): String;
+  public
+    constructor Create; override;
+    function GetValue(Component: TWinControl): string; override;
+    function GetItem(Component: TWinControl): TObject; override;
+  end;
+
+  TfrmReminderTree = class(TfrmBase508Form)
     pnlTop: TPanel;
     tvRem: TORTreeView;
@@ -24 +38 @@
     mnuCoverSheet: TMenuItem;
     mnuExit: TMenuItem;
+    imgLblReminders: TVA508ImageListLabeler;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -49 +64 @@
     procedure mnuCoverSheetClick(Sender: TObject);
     procedure tvRemNodeCaptioning(Sender: TObject; var Caption: String);
-    procedure tvRemAddition(Sender: TObject; Node: TTreeNode);
-    procedure tvRemDeletion(Sender: TObject; Node: TTreeNode);
     procedure mnuExitClick(Sender: TObject);
   private
+    tvRem508Manager : TtvRem508Manager;
     FLinking: boolean;
     FSortOrder: integer;
@@ -93 +107 @@
 
 uses uReminders, dShared, uConst, fReminderDialog, fNotes, rMisc,
-     rReminders, fRemCoverSheet, uAccessibleTreeView, uAccessibleTreeNode;
+     rReminders, fRemCoverSheet, VA2006Utils;
 
 {$R *.DFM}
@@ -120 +134 @@
 procedure TfrmReminderTree.FormCreate(Sender: TObject);
 begin
+  FixHeaderControlDelphi2006Bug(hcRem);
   memView := TORMenuItem.Create(mmMain);
   memView.Caption := '&View';
@@ -135 +150 @@
   SetReminderFormBounds(Self, 0, 0, Self.Width, Self.Height,
                         RemTreeDlgLeft, RemTreeDlgTop, RemTreeDlgWidth, RemTreeDlgHeight);
-  TAccessibleTreeView.WrapControl(tvRem);
+  tvRem508Manager := TtvRem508Manager.Create;
+  amgrMain.ComponentManager[tvRem] := tvRem508Manager;
 end;
 
@@ -256 +272 @@
       sl := TStringList.Create;
       try
-        sl.Assign(lbRem.Items);
+        sl.Assign(lbRem.Items); // Must use regualr assign, FastAssign doesn't copy objects.
         while(assigned(Node) and (Node.Level > lvl)) do
         begin
@@ -625 +641 @@
 procedure TfrmReminderTree.FormDestroy(Sender: TObject);
 begin
-  TAccessibleTreeView.UnwrapControl(tvRem);
   frmReminderTree := nil;
   ProcessedReminders.Notifier.RemoveNotify(ProcessedRemindersChanged);
@@ -704 +719 @@
 end;
 
-procedure TfrmReminderTree.tvRemAddition(Sender: TObject; Node: TTreeNode);
-begin
-  TAccessibleTreeNode.WrapControl(Node as TORTreeNode);
-end;
-
-procedure TfrmReminderTree.tvRemDeletion(Sender: TObject; Node: TTreeNode);
-begin
-  TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode);
-end;
-
 procedure TfrmReminderTree.mnuExitClick(Sender: TObject);
 begin
@@ -719 +724 @@
 end;
 
+{ TGrdLab508Manager }
+
+constructor TtvRem508Manager.Create;
+begin
+  inherited Create([mtValue, mtItemChange]);
+end;
+
+function TtvRem508Manager.getDueDate(sData: String): String;
+begin
+  Result := Piece(sData,U,3);
+  if Result <> '' then
+    Result := ' Due Date: ' + FormatFMDateTimeStr('mm/dd/yyyy',Result);
+end;
+
+function TtvRem508Manager.getImgText(Node: TORTreeNode): String;
+begin
+  Result := '';
+  if Node.ImageIndex > -1 then
+    Result := frmReminderTree.imgLblReminders.RemoteLabeler.Labels.Items[Node.ImageIndex].Caption + ' ';
+end;
+
+function TtvRem508Manager.GetItem(Component: TWinControl): TObject;
+var
+  tv : TORTreeView;
+begin
+  tv := TORTreeView(Component);
+  Result :=  tv.Selected;
+end;
+
+function TtvRem508Manager.getLastOcc(sData: String): String;
+begin
+  Result := Piece(sData,U,4);
+  if Result <> '' then
+    Result := ' Last Occurrence: ' + FormatFMDateTimeStr('mm/dd/yyyy',Result);
+end;
+
+function TtvRem508Manager.getName(sData: String): String;
+begin
+  Result := Piece(sData,U,2);
+end;
+
+function TtvRem508Manager.getPriority(sData: String): String;
+begin
+  Result := Piece(sData,U,5);
+  if Result = '2' then
+    Result := '';
+  if Result <> '' then
+    Result := ' Priority: ' + Result;
+end;
+
+function TtvRem508Manager.GetValue(Component: TWinControl): string;
+var
+    Node: TORTreeNode;
+begin
+  Node := TORTreeNode(TORTreeView(Component).Selected);
+  Result := getImgText(Node) + getName(Node.StringData) + getDueDate(Node.StringData) +
+            getLastOcc(Node.StringData) + getPriority(Node.StringData);
+end;
+
+
 end.