Changeset 541 for cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

Timestamp:

Aug 12, 2009, 7:14:16 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

TMG Ver 1.1 Added HTML Support, better demographics editing

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas (modified) (12 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

@@ -375 +375 @@
     SkinChanged : boolean;  //kt 9/8/08
     CurrentSkinFile : string; //kt 9/8/08
+    TMGAbort : boolean;  //kt 3/25/09
     procedure ActivateCurrentSkin; //kt 9/8/08
     procedure InactivateSkin; //kt 9/8/08
@@ -407 +408 @@
   uTabList: TStringList;
   uTabColorsList : TStringList;  //kt added 8/8/08
+  uTabColorsEnabled : Boolean;   //kt 8/09
   uRemoteType : string;
   FlaggedPTList: TStringList;
@@ -803 +805 @@
 {$ENDIF}
 
+  TMGAbort := False;  //kt 3/25/09
   if not ConnectToServer(TX_OPTION) then
   begin
@@ -809 +812 @@
       InfoBox(RPCBrokerV.RPCBError, DKLangConstW('fFrame_Error'), MB_OK or MB_ICONERROR); //kt added 7/17/2007
     Close;
+    TMGAbort := True;   //kt 3/25/09
     Exit;
   end;
@@ -3755 +3759 @@
                     frmNotes := TfrmNotes.Create(Self);
                     frmNotes.Parent := pnlPage;
+                    //kt Note: The following two lines must be done **AFTER**
+                    //         the assigment of Parent to pnlPage.  Otherwise
+                    //         the ActiveX object looses its attachement point
+                    //         or something and the document objects turns nil.
+                    frmNotes.HtmlViewer.Loaded;  //kt 8/09
+                    frmNotes.HtmlEditor.Loaded;  //kt 8/09
                   end;
     CT_CONSULTS : begin
@@ -3807 +3817 @@
       tabPage.Tabs.Add(ALabel);
     end;
-  if uTabColorsList.IndexOf(ALabel) < 0 then                    //kt added 8/8/08
-    uTabColorsList.Add(ALabel);  //will put colors in later...  //kt
+  uTabColorsList.Add(IntToStr(ATabID));  //will put colors in later...  //kt
+  {if uTabColorsList.IndexOf(ALabel) < 0 then                    //kt added 8/8/08
+    uTabColorsList.Add(ALabel);  //will put colors in later...  //kt  }
 end;
 
@@ -3818 +3829 @@
 begin
   value :=0;
+  uTabColorsEnabled := INIFile.ReadBool('TAB_COLORS','ENABLE',true);
   for i := 0 to ColorsList.Count-1 do begin
-    sValue := INIFile.ReadString('TAB_COLORS',ColorsList.Strings[i],IntToStr($00FFFF));
+    //sValue := INIFile.ReadString('TAB_COLORS',ColorsList.Strings[i],IntToStr($00FFFF));
+    sValue := INIFile.ReadString('TAB_COLORS','Tab '+IntToStr(i),IntToStr($00FFFF));
     try
       value := StrToInt(sValue)
@@ -3834 +3847 @@
 begin
   for i := 0 to ColorsList.Count-1 do begin
-    INIFile.WriteInteger('TAB_COLORS',ColorsList.Strings[i],longword(ColorsList.Objects[i]));
-  end;
+    //INIFile.WriteInteger('TAB_COLORS',ColorsList.Strings[i],longword(ColorsList.Objects[i]));
+    INIFile.WriteInteger('TAB_COLORS','Tab '+IntToStr(i),longword(ColorsList.Objects[i]));
+  end;
+  INIFile.WriteBool('TAB_COLORS','ENABLE',uTabColorsEnabled); //kt 8/09
 end;
 
@@ -4957 +4972 @@
 procedure TfrmFrame.tabPageDrawTab(Control: TCustomTabControl; TabIndex: Integer;
                                    const Rect: TRect; Active: Boolean);
+//kt added
 var ALabel : string;
     colorIndex : Integer;
     color : TColor;
 begin
-  ALabel := TTabControl(Control).Tabs[TabIndex];
-  colorIndex := uTabColorsList.IndexOf(ALabel);
-  if colorIndex < 0 then color := clYellow
-  else color := TColor(uTabColorsList.Objects[colorIndex]);
-  DrawTab(Control,TabIndex,Rect,color,Active);
+  if uTabColorsEnabled then begin
+    ALabel := TTabControl(Control).Tabs[TabIndex];
+    {
+    colorIndex := uTabColorsList.IndexOf(ALabel);
+    if colorIndex < 0 then color := clYellow
+    else color := TColor(uTabColorsList.Objects[colorIndex]);
+    }
+    color := TColor(uTabColorsList.Objects[TabIndex]);
+    DrawTab(Control,TabIndex,Rect,color,Active);
+  end else begin
+    //this isn't working... This is not what I want.  Fix later...
+    //For now, uTabColorsEnabled should always be TRUE.
+    Control.Canvas.FillRect(Rect);
+  end;
 end;
 
@@ -4980 +5005 @@
     tf            : TFont;
     Degrees       : integer;
-    inactiveColor     : TColor;
-
-    (*
-    function DecRed(Color : TColor; Amount : byte) : TColor;
+    inactiveColor : TColor;
+
+    function DarkenRed(Color : TColor; Percent : byte) : TColor;
     var red : longWord;
     begin
       red := (Color and $0000FF);
-      if red > Amount then red := red - Amount
-      else red := 0;
+      red := Round (red * (Percent/100));
       Result := (Color and $FFFF00) or red;
     end;
 
-    function DecGreen(Color : TColor; Amount : byte) : TColor;
+    function DarkenGreen(Color : TColor; Percent : byte) : TColor;
     var green : longWord;
     begin
       green := (Color and $00FF00);
       green := green shr 8;
-      if green > Amount then green := green - Amount
-      else green := 0;
+      green := Round(green * (Percent/100));
       green := green shl 8;
       Result := (Color and $FF00FF) or green;
     end;
 
-    function DecBlue(Color : TColor; Amount : byte) : TColor;
+    function DarkenBlue(Color : TColor; Percent : byte) : TColor;
     var blue : longWord;
     begin
       blue := (Color and $FF0000);
       blue := blue shr 16;
-      if blue > Amount then blue := blue - Amount
-      else blue := 0;
+      Blue := Round (blue * (Percent/100));
       blue := blue shl 16;
       Result := (Color and $00FFFF) or blue;
     end;
 
-   function Darken(Color : TColor; Amount : byte) : TColor;
+   function Darken(Color : TColor; Percent : byte) : TColor;
    begin
-     result:= DecRed(Color, Amount);
-     result := DecBlue(result,Amount);
-     result := DecGreen(result,Amount);
+     if Percent=0 then begin result := Color; exit; end;
+     result:= DarkenRed(Color, Percent);
+     result := DarkenBlue(result,Percent);
+     result := DarkenGreen(result,Percent);
    end;
-   *)
-
-  var
-    DecAmount : Byte;
 
   begin
     oRect    := Rect;
-    //DecAmount := 50;
-    //inactiveColor := Darken(Color,DecAmount);
-    inactiveColor := Color;
+    inactiveColor := Darken(Color,75);  //75%
 
     TabControl := TTabControl(Control);
@@ -5039 +5055 @@
 
     Control.Canvas.Font.Name := 'Tahoma';
-    if Active then Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsBold];
-    if Active then Control.Canvas.Font.Color := clBlack
-    else Control.Canvas.Font.Color := clWhite;
+    if Active then begin
+      Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsBold];
+      Control.Canvas.Font.Color := clBlack
+    end else begin
+      Control.Canvas.Font.Style := Control.Canvas.Font.Style - [fsBold];
+      //Control.Canvas.Font.Color := clBlack
+      Control.Canvas.Font.Color := clWhite;
+    end;
 
     if (TabControl.TabPosition = tpLeft) or (TabControl.TabPosition = tpRight) then begin
@@ -5073 +5094 @@
     end;
 
+    if (TabControl.TabPosition = tpBottom) and (not Active) then begin
+      iTop := iTop - 2;
+    end;
+
     if Active then begin
-      //Control.Canvas.Brush.Color := TColor($0000FFFF);  //Bright yellow
       Control.Canvas.Brush.Color := Color;
-      Control.Canvas.FillRect(Rect);
     end else begin
-      //Control.Canvas.Brush.Color := TColor($000079EFE8);  //dull yellow
       Control.Canvas.Brush.Color := inactiveColor;
-      Control.Canvas.FillRect(Rect);
-    end;
+    end;
+    Control.Canvas.FillRect(Rect);
     Control.Canvas.TextOut(iLeft,iTop,sCaption);
   end;