canvastest: Adds system color test

git-svn-id: trunk@46171 -

.gitattributes

@@ -4532,6 +4532,9 @@ examples/canvas_test/screenshotunit.lfm svneol=native#text/pascal
 examples/canvas_test/screenshotunit.pas svneol=native#text/pascal
 examples/canvas_test/shapedwindowtest.lfm svneol=native#text/pascal
 examples/canvas_test/shapedwindowtest.pas svneol=native#text/pascal
+examples/canvas_test/systemcolorstest.lfm svneol=native#text/plain
+examples/canvas_test/systemcolorstest.lrs svneol=native#text/plain
+examples/canvas_test/systemcolorstest.pas svneol=native#text/plain
 examples/checkbox.lpi svneol=native#text/plain
 examples/checkbox.pp svneol=native#text/pascal
 examples/cleandir/README.txt svneol=native#text/plain

examples/canvas_test/canvastest.lpi

@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="9"/>
@@ -13,11 +13,29 @@
       <CharSet Value=""/>
       <StringTable ProductVersion=""/>
     </VersionInfo>
-    <BuildModes Count="2">
+    <BuildModes Count="3">
       <Item1 Name="default" Default="True"/>
       <Item2 Name="CustomDrawn">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+          </SearchPaths>
+          <Parsing>
+            <SyntaxOptions>
+              <UseAnsiStrings Value="False"/>
+            </SyntaxOptions>
+          </Parsing>
+          <Linking>
+            <Options>
+              <LinkerOptions Value="-framework Qt4Intf -lobjc -framework Foundation -framework QtGui -framework QtCore"/>
+            </Options>
+          </Linking>
+        </CompilerOptions>
+      </Item2>
+      <Item3 Name="Cocoa">
         <MacroValues Count="1">
-          <Macro1 Name="LCLWidgetType" Value="customdrawn"/>
+          <Macro1 Name="LCLWidgetType" Value="cocoa"/>
         </MacroValues>
         <CompilerOptions>
           <Version Value="11"/>
@@ -34,15 +52,8 @@
               <LinkerOptions Value="-framework Qt4Intf -lobjc -framework Foundation -framework QtGui -framework QtCore"/>
             </Options>
           </Linking>
-          <Other>
-            <CompilerMessages>
-              <UseMsgFile Value="True"/>
-            </CompilerMessages>
-            <CompilerPath Value="$(CompPath)"/>
-          </Other>
-          <LCLWidgetType Value="customdrawn"/>
         </CompilerOptions>
-      </Item2>
+      </Item3>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
@@ -61,11 +72,10 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="11">
+    <Units Count="12">
       <Unit0>
         <Filename Value="canvastest.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="canvastest"/>
       </Unit0>
       <Unit1>
         <Filename Value="canvastestunit.pas"/>
@@ -80,7 +90,6 @@
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmPen"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="pentest"/>
       </Unit2>
       <Unit3>
         <Filename Value="brushtest.pas"/>
@@ -88,28 +97,24 @@
         <ComponentName Value="frmBrush"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="brushtest"/>
       </Unit3>
       <Unit4>
         <Filename Value="fonttest.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmFont"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="fonttest"/>
       </Unit4>
       <Unit5>
         <Filename Value="rectanglestest.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmRectangles"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="rectanglestest"/>
       </Unit5>
       <Unit6>
         <Filename Value="shapedwindowtest.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmShapedWindow"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="shapedwindowtest"/>
       </Unit6>
       <Unit7>
         <Filename Value="ellipseunit.pas"/>
@@ -125,14 +130,12 @@
         <ComponentName Value="frmScreenshot"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="screenshotunit"/>
       </Unit8>
       <Unit9>
         <Filename Value="drawtest.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmDraw"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="drawtest"/>
       </Unit9>
       <Unit10>
         <Filename Value="imagetest.pas"/>
@@ -140,8 +143,15 @@
         <ComponentName Value="frmImage"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="imagetest"/>
       </Unit10>
+      <Unit11>
+        <Filename Value="systemcolorstest.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="frmSystemColors"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="systemcolorstest"/>
+      </Unit11>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
@@ -162,12 +172,6 @@
         </Win32>
       </Options>
     </Linking>
-    <Other>
-      <CompilerMessages>
-        <UseMsgFile Value="True"/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="3">

examples/canvas_test/canvastest.lpr

@@ -10,7 +10,7 @@ uses
   Forms
   { you can add units after this }, canvastestunit, LResources, pentest,
   brushtest, fonttest, rectanglestest, shapedwindowtest, ellipseunit,
-  screenshotunit, drawtest, imagetest;
+  screenshotunit, drawtest, imagetest, systemcolorstest;
 
 {$R *.res}
 
@@ -26,6 +26,7 @@ begin
   Application.CreateForm(TfrmEllipse, frmEllipse);
   Application.CreateForm(TfrmDraw, frmDraw);
   Application.CreateForm(TfrmImage, frmImage);
+  Application.CreateForm(TfrmSystemColors, frmSystemColors);
   Application.Run;
 end.
 

examples/canvas_test/canvastestunit.lfm

@@ -1,14 +1,14 @@
 object frmCanvasTest: TfrmCanvasTest
   Left = 290
-  Height = 420
+  Height = 460
   Top = 171
   Width = 233
   BorderIcons = [biSystemMenu, biMinimize]
   BorderStyle = bsSingle
   Caption = 'Canvas Test Program'
-  ClientHeight = 420
+  ClientHeight = 460
   ClientWidth = 233
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.3'
   object btnBrush: TButton
     Left = 19
     Height = 25
@@ -39,7 +39,7 @@ object frmCanvasTest: TfrmCanvasTest
   object btnClose: TButton
     Left = 19
     Height = 25
-    Top = 384
+    Top = 424
     Width = 194
     Caption = 'Close'
     OnClick = btnCloseClick
@@ -99,4 +99,13 @@ object frmCanvasTest: TfrmCanvasTest
     OnClick = btnImageClick
     TabOrder = 9
   end
+  object btnSystemColors: TButton
+    Left = 19
+    Height = 25
+    Top = 376
+    Width = 194
+    Caption = 'Show System Colors'
+    OnClick = btnSystemColorsClick
+    TabOrder = 10
+  end
 end

examples/canvas_test/canvastestunit.pas

@@ -10,7 +10,7 @@ uses
   StdCtrls,
   // Project units
   rectanglestest, brushtest, pentest, fonttest, shapedwindowtest,
-  ellipseunit, screenshotunit, drawtest, imagetest;
+  ellipseunit, screenshotunit, drawtest, imagetest, systemcolorstest;
 
 type
 
@@ -18,6 +18,7 @@ type
 
   TfrmCanvasTest = class(TForm)
     btnBrush: TButton;
+    btnSystemColors: TButton;
     btnPen: TButton;
     btnFont: TButton;
     btnClose: TButton;
@@ -37,6 +38,7 @@ type
     procedure btnRectanglesClick(Sender: TObject);
     procedure btnScreenshotClick(Sender: TObject);
     procedure btnShapedWindowClick(Sender: TObject);
+    procedure btnSystemColorsClick(Sender: TObject);
   private
     { private declarations }
   public
@@ -102,5 +104,10 @@ begin
   frmShapedWindow.Show;
 end;
 
+procedure TfrmCanvasTest.btnSystemColorsClick(Sender: TObject);
+begin
+  frmSystemColors.Show;
+end;
+
 end.
 

examples/canvas_test/systemcolorstest.lfm

@@ -0,0 +1,9 @@
+object frmSystemColors: TfrmSystemColors
+  Left = 345
+  Height = 320
+  Top = 160
+  Width = 480
+  Caption = 'frmSystemColors'
+  OnPaint = FormPaint
+  LCLVersion = '1.3'
+end

examples/canvas_test/systemcolorstest.lrs

@@ -0,0 +1,7 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TfrmSystemColors','FORMDATA',[
+  'TPF0'#16'TfrmSystemColors'#15'frmSystemColors'#4'Left'#3'Y'#1#6'Height'#3'@'
+  +#1#3'Top'#3#160#0#5'Width'#3#224#1#7'Caption'#6#15'frmSystemColors'#7'OnPain'
+  +'t'#7#9'FormPaint'#10'LCLVersion'#6#3'1.3'#0#0
+]);

examples/canvas_test/systemcolorstest.pas

@@ -0,0 +1,158 @@
+unit systemcolorstest;
+
+{$mode objfpc}
+
+interface
+
+uses
+  Classes, SysUtils, types, FileUtil, LResources, Forms, Controls, Graphics,
+  Dialogs, LCLType, LCLIntf;
+
+type
+
+  { TfrmSystemColors }
+
+  TfrmSystemColors = class(TForm)
+    procedure FormPaint(Sender: TObject);
+  private
+    { private declarations }
+  public
+    { public declarations }
+  end;
+
+var
+  frmSystemColors: TfrmSystemColors;
+
+implementation
+
+{ TfrmSystemColors }
+
+procedure TfrmSystemColors.FormPaint(Sender: TObject);
+var
+  lColor: types.DWORD;
+begin
+  Canvas.Brush.Style := bsSolid;
+
+  lColor := LCLIntf.GetSysColor(COLOR_SCROLLBAR);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 20, Format('COLOR_SCROLLBAR=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_BACKGROUND);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 40, Format('COLOR_BACKGROUND=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_ACTIVECAPTION);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 60, Format('COLOR_ACTIVECAPTION=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_INACTIVECAPTION);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 80, Format('COLOR_INACTIVECAPTION=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_MENU);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 100, Format('COLOR_MENU=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_WINDOW);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 120, Format('COLOR_WINDOW=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_WINDOWFRAME);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 140, Format('COLOR_WINDOWFRAME=%x', [lColor]));
+
+  Canvas.Pen.Color := clWhite;
+  lColor := LCLIntf.GetSysColor(COLOR_MENUTEXT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 160, Format('COLOR_MENUTEXT=%x', [lColor]));
+
+  Canvas.Pen.Color := clBlack;
+  lColor := LCLIntf.GetSysColor(COLOR_WINDOWTEXT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 180, Format('COLOR_WINDOWTEXT=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_CAPTIONTEXT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 200, Format('COLOR_CAPTIONTEXT=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_ACTIVEBORDER);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 220, Format('COLOR_ACTIVEBORDER=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_INACTIVEBORDER);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 240, Format('COLOR_INACTIVEBORDER=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_APPWORKSPACE);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 260, Format('COLOR_APPWORKSPACE=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_HIGHLIGHT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 280, Format('COLOR_HIGHLIGHT=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_HIGHLIGHTTEXT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(20, 300, Format('COLOR_HIGHLIGHTTEXT=%x', [lColor]));
+
+  // Second column
+
+  lColor := LCLIntf.GetSysColor(COLOR_BTNFACE);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(240, 20, Format('COLOR_BTNFACE=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_BTNSHADOW);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(240, 40, Format('COLOR_BTNSHADOW=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_GRAYTEXT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(240, 60, Format('COLOR_GRAYTEXT=%x', [lColor]));
+
+  Canvas.Pen.Color := clWhite;
+  lColor := LCLIntf.GetSysColor(COLOR_BTNTEXT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(240, 80, Format('COLOR_BTNTEXT=%x', [lColor]));
+
+  lColor := LCLIntf.GetSysColor(COLOR_INACTIVECAPTIONTEXT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(240, 100, Format('COLOR_INACTIVECAPTIONTEXT=%x', [lColor]));
+
+  Canvas.Pen.Color := clBlack;
+  lColor := LCLIntf.GetSysColor(COLOR_BTNHIGHLIGHT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(240, 120, Format('COLOR_BTNHIGHLIGHT=%x', [lColor]));
+
+  Canvas.Pen.Color := clWhite;
+  lColor := LCLIntf.GetSysColor(COLOR_3DDKSHADOW);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(240, 140, Format('COLOR_3DDKSHADOW=%x', [lColor]));
+
+  Canvas.Pen.Color := clBlack;
+  lColor := LCLIntf.GetSysColor(COLOR_3DLIGHT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(240, 160, Format('COLOR_3DLIGHT=%x', [lColor]));
+
+  Canvas.Pen.Color := clWhite;
+  lColor := LCLIntf.GetSysColor(COLOR_INFOTEXT);
+  Canvas.Brush.Color := lColor;
+  Canvas.TextOut(240, 180, Format('COLOR_INFOTEXT=%x', [lColor]));
+
+  {COLOR_INFOBK = 24;
+  // PBD: 25 is unassigned in all the docs I can find
+  //      if someone finds what this is supposed to be then fill it in
+  //      note defaults below, and cl[ColorConst] in graphics
+  COLOR_HOTLIGHT = 26;
+  COLOR_GRADIENTACTIVECAPTION = 27;
+  COLOR_GRADIENTINACTIVECAPTION = 28;
+  COLOR_MENUHILIGHT = 29;
+  COLOR_MENUBAR = 30;
+
+  COLOR_FORM = 31;}
+end;
+
+initialization
+  {$I systemcolorstest.lrs}
+
+end.
+