jvcllaz: several changes in JvTimeFramework: Fix initially black background of TJvTFDays. Lighter default PrimeTime.Color. Some cleanup.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7104 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/design/JvTimeFramework/jvtimeframeworkreg.pas

@@ -5,7 +5,7 @@ unit JvTimeFrameworkReg;
 interface
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, PropEdits;
 
 procedure Register;
 
@@ -27,18 +27,16 @@ begin
     TJvTFUniversalPrinter, TJvTFDaysPrinter
   ]);
 
-//  RegisterPropertyEditor(TypeInfo(TJvTFGlanceCells, TJvTFMonths, 'Cells', nil);
+  // register a nil property editor for now, so cells cannot be added,
+  // deleted, or moved at design time... BAD THINGS HAPPEN
+  RegisterPropertyEditor(TypeInfo(TJvTFGlanceCells), TJvTFMonths, 'Cells', nil);
 
   (*
 //  RegisterPropertyEditor(TypeInfo(string), TJvTFControl, 'Version', TutfVersionEditor);
 //  RegisterPropertyEditor(TypeInfo(string), TJvTFScheduleManager, 'Version', TutfVersionEditor);
-  RegisterComponents(RsPaletteTimeFramework, [TJvTFGlanceTextViewer, TJvTFMonths,
-    TJvTFWeeks, TJvTFAlarm]);
 //  RegisterPropertyEditor(TypeInfo(TJvTFGlanceCells), '', 'Cells',
 //    TJvTFGlanceCellsProperty);
 
-  // register a nil property editor for now, so cells cannot be added,
-  // deleted, or moved at design time... BAD THINGS HAPPEN
   RegisterPropertyEditor(TypeInfo(TJvTFGlanceCells), TJvTFMonths, 'Cells', nil);
   RegisterComponents(RsPaletteTimeFramework, [TJvTFDays, TJvTFDaysPrinter]);
 *)

components/jvcllaz/examples/JvTimeFramework/tfmain.lfm

@@ -1,7 +1,7 @@
 object MainForm: TMainForm
-  Left = 212
+  Left = 568
   Height = 613
-  Top = 138
+  Top = 55
   Width = 445
   Caption = 'UTF Demo 1: PhotoOp'
   ClientHeight = 613

components/jvcllaz/examples/JvTimeFramework/tfmain.pas

@@ -33,7 +33,7 @@ interface
 uses
   LCLIntf,
   SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  Db, sqldb, sqlite3conn, //DBTables,
+  db, sqldb, sqlite3conn,
   ComCtrls, StdCtrls, Buttons, ExtCtrls, ImgList, DateTimePicker, PrintersDlgs,
   JvTFManager, JvTFDays, JvTFGlance, JvTFGlanceTextViewer, JvTFMonths,
   JvTFWeeks;

components/jvcllaz/examples/JvTimeFramework/tfshare.lfm

@@ -1,7 +1,7 @@
 object Share: TShare
-  Left = 738
+  Left = 672
   Height = 216
-  Top = 285
+  Top = 110
   Width = 271
   AutoSize = True
   Caption = 'Share'
@@ -9,8 +9,6 @@ object Share: TShare
   ClientWidth = 271
   Color = clBtnFace
   Font.Color = clWindowText
-  Font.Height = -13
-  Font.Name = 'MS Sans Serif'
   OnClose = FormClose
   OnShow = FormShow
   Position = poScreenCenter

components/jvcllaz/run/JvTimeFramework/jvtfdays.pas

@@ -69,6 +69,8 @@ const
   gcGroupHdr = -2;
   gcHdr = -1;
 
+  DEFAULT_PRIMETIME_COLOR = $00C4FFFF;
+
 type
   EJvTFDaysError = class(Exception);
 
@@ -205,7 +207,7 @@ type
   published
     property StartTime: TTime read FStartTime write SetStartTime;
     property EndTime: TTime read FEndTime write SetEndTime;
-    property Color: TColor read FColor write SetColor;
+    property Color: TColor read FColor write SetColor default DEFAULT_PRIMETIME_COLOR;
   end;
 
   TJvTFCreateQuickEntryEvent = procedure(Sender: TObject; var ApptID: string;
@@ -1278,7 +1280,7 @@ type
 
     function GetApptDispColor(Appt: TJvTFAppt; Selected: Boolean): TColor;
   published
-    property DitheredBackground: Boolean read FDitheredBackground write SetDitheredBackground default True;
+    property DitheredBackground: Boolean read FDitheredBackground write SetDitheredBackground default false;
 //    property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;
     // grid layout properties
     property AutoSizeCols: Boolean read FAutoSizeCols write SetAutoSizeCols default True;
@@ -1746,6 +1748,7 @@ type
 implementation
 
 uses
+  FPCanvas,
   JvResources;
 
 //Type
@@ -2181,7 +2184,7 @@ begin
   FApptGrid := AApptGrid;
   FStartTime := EncodeTime(8, 0, 0, 0);
   FEndTime := EncodeTime(17, 0, 0, 0);
-  FColor := clYellow;
+  FColor := DEFAULT_PRIMETIME_COLOR;
   FFillPic := TBitmap.Create;
   FFillPic.Width := 16;
   FFillPic.Height := 16;
@@ -4090,7 +4093,7 @@ begin
   FFocusedCol := -1;
   FFocusedRow := -1;
   FGridLineColor := clGray;
-  FDitheredBackground := True;
+  FDitheredBackground := false;
 
   {$IFDEF Jv_TIMEBLOCKS}
   // all ok
@@ -4869,6 +4872,7 @@ end;
 procedure TJvTFDays.Paint;
 var
   I, J, lRightCol, lBottomRow: Integer;
+  w, h: Integer;
 begin
 { optimization incorrectly kicks in if control is only partially
   visible on the screen
@@ -4887,16 +4891,17 @@ begin
    end;
   }
 
+  w := ClientWidth;
+  h := ClientHeight;
   with PaintBuffer do
   begin
-    Width := ClientWidth;
+    SetSize(w, h);
-    Height := ClientHeight;
-
     with Canvas do
     begin
+      Pixels[0, 0] := clWhite;   // Workaround for Lazarus to avoid black background
       if FDitheredBackground then
         // added by TIM, 10/27/2001 10:36:03 PM:
-        DrawDither(Canvas, Classes.Rect(0, 0, Width, Height), Self.Color, clGray)
+        DrawDither(Canvas, Classes.Rect(0, 0, w, h), Self.Color, clGray)
       else
       begin
         Brush.Color := Self.Color;
@@ -4905,10 +4910,8 @@ begin
     end;
 
     DrawCorner(Canvas, agcTopLeft);
-
     if Cols.Count = 0 then
       DrawEmptyColHdr(Canvas);
-
     DrawGroupHdrs(Canvas);
 
     lRightCol := LeftCol + VisibleCols - 1;
@@ -10492,14 +10495,10 @@ procedure TJvTFDays.DrawDither(ACanvas: TCanvas; ARect: TRect;
 var
   DitherBitmap: TBitmap;
   I, J: Integer;
-//  TL: TPoint;
-//  ClipRgn: HRgn;
 begin
   DitherBitmap := TBitmap.Create;
   try
     // create dithered bitmap
-//    DitherBitmap.Width := RectWidth(ARect);
-//    DitherBitmap.Height := RectHeight(ARect);
     DitherBitmap.Width := 8;
     DitherBitmap.Height := 8;
     for I := 0 to DitherBitmap.Width - 1 do
@@ -10509,32 +10508,8 @@ begin
         else
           DitherBitmap.Canvas.Pixels[I, J] := Color2;
 
-    // copy bitmap into canvas
-//    ClipRgn := Windows.CreateRectRgn(ARect.Left, ARect.Top, ARect.Right + 1, ARect.Bottom + 1);
-//    try
-//      Windows.SelectClipRgn(ACanvas.Handle, ClipRgn);
-//      TL.X := ARect.Left;
-//      while (TL.X <= ARect.Right) do
-//      begin
-//        TL.Y := ARect.Top;
-//        while (TL.Y <= ARect.Bottom) do
-//        begin
-//          Windows.BitBlt(ACanvas.Handle, TL.X, TL.Y, DitherBitmap.Width, DitherBitmap.Height,
-//            DitherBitmap.Canvas.Handle, 0, 0, SRCCOPY);
-//          TL.Y := TL.Y + DitherBitmap.Height;
-//        end;
-//        TL.X := TL.X + DitherBitmap.Width;
-//      end;
-//    finally
-//      Windows.SelectClipRgn(ACanvas.Handle, 0);
-//      Windows.DeleteObject(ClipRgn);
-//    end;
-
     ACanvas.Brush.Bitmap := DitherBitmap;
     ACanvas.FillRect(ARect);
-
-//      Windows.BitBlt(ACanvas.Handle, ARect.Left, ARect.Top, DitherBitmap.Width, DitherBitmap.Height,
-//        DitherBitmap.Canvas.Handle, 0, 0, SRCCOPY);
   finally
     DitherBitmap.Free;
   end;