[JVCL-Checkins] dev/JVCL3/examples/JvColorButton ColorButtonDemo.dof,1.3,1.4 ColorButtonDemo.dpr,1.1,1.2 Main.dfm,1.1,1.2 Main.pas,1.3,1.4 -

[Robert M. <mar...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvColorButton
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15411/JVCL3/examples/JvColorButton

Modified Files:
	ColorButtonDemo.dof ColorButtonDemo.dpr Main.dfm Main.pas 
Log Message:



Index: ColorButtonDemo.dpr
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvColorButton/ColorButtonDemo.dpr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ColorButtonDemo.dpr	23 Aug 2003 23:18:24 -0000	1.1
--- ColorButtonDemo.dpr	4 Feb 2004 15:53:13 -0000	1.2
***************
*** 3,7 ****
  uses
    Forms,
!   Main in 'Main.pas' {Form2};
  
  {$R *.RES}
--- 3,7 ----
  uses
    Forms,
!   Main in 'Main.pas' {ColorDemoMainForm};
  
  {$R *.RES}
***************
*** 9,13 ****
  begin
    Application.Initialize;
!   Application.CreateForm(TForm2, Form2);
    Application.Run;
  end.
--- 9,13 ----
  begin
    Application.Initialize;
!   Application.CreateForm(TColorDemoMainForm, ColorDemoMainForm);
    Application.Run;
  end.

Index: Main.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvColorButton/Main.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Main.pas	18 Jan 2004 10:53:52 -0000	1.3
--- Main.pas	4 Feb 2004 15:53:13 -0000	1.4
***************
*** 31,52 ****
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
!   StdCtrls, JvColorBox, Menus, Buttons,ExtCtrls, 
    JvComponent, JvExControls, JvColorButton;
  
  type
!   TForm2 = class(TForm)
      ColorButton1: TJvColorButton;
!     procedure ColorBox1MouseDown(Sender: TObject; Button: TMouseButton;
!       Shift: TShiftState; X, Y: Integer);
!     procedure ColorBox1ColorClick(Sender: TObject; Button: TMouseButton;
!       Color: TColor);
!   private
!     { Private declarations }
    public
-     { Public declarations }
    end;
  
  var
!   Form2: TForm2;
  
  implementation
--- 31,46 ----
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
!   StdCtrls, JvColorBox, Menus, Buttons, ExtCtrls,
    JvComponent, JvExControls, JvColorButton;
  
  type
!   TColorDemoMainForm = class(TForm)
      ColorButton1: TJvColorButton;
!     procedure ColorButton1Change(Sender: TObject);
    public
    end;
  
  var
!   ColorDemoMainForm: TColorDemoMainForm;
  
  implementation
***************
*** 54,75 ****
  uses JvColorForm;
  
! {$R *.DFM}
! 
! 
! procedure TForm2.ColorBox1MouseDown(Sender: TObject; Button: TMouseButton;
!   Shift: TShiftState; X, Y: Integer);
! begin
!      if Button = mbLeft then
!        Caption := Caption + ' Left '
!      else
!        Caption := Caption + ' Right '
! end;
  
  
! procedure TForm2.ColorBox1ColorClick(Sender: TObject; Button: TMouseButton;
!   Color: TColor);
  begin
!   Caption := ColorToString(Color);
! 
  end;
  
--- 48,57 ----
  uses JvColorForm;
  
! {$R *.dfm}
  
  
! procedure TColorDemoMainForm.ColorButton1Change(Sender: TObject);
  begin
!   ColorDemoMainForm.Color := ColorButton1.Color;
  end;
  

Index: Main.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvColorButton/Main.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Main.dfm	23 Aug 2003 23:18:24 -0000	1.1
--- Main.dfm	4 Feb 2004 15:53:13 -0000	1.2
***************
*** 1,6 ****
! object Form2: TForm2
    Left = 349
    Top = 137
!   BorderStyle = bsDialog
    Caption = 'ColorButton'
    ClientHeight = 119
--- 1,7 ----
! object ColorDemoMainForm: TColorDemoMainForm
    Left = 349
    Top = 137
!   BorderIcons = [biSystemMenu, biMinimize]
!   BorderStyle = bsSingle
    Caption = 'ColorButton'
    ClientHeight = 119
***************
*** 16,26 ****
    TextHeight = 13
    object ColorButton1: TJvColorButton
!     Left = 64
!     Top = 24
!     Width = 42
!     Height = 21
      OtherCaption = '&Other...'
!     Options = [cdPreventFullOpen, cdShowHelp]
      Color = clNavy
    end
  end
--- 17,27 ----
    TextHeight = 13
    object ColorButton1: TJvColorButton
!     Left = 48
!     Top = 40
!     Width = 97
      OtherCaption = '&Other...'
!     Options = [cdAnyColor]
      Color = clNavy
+     OnChange = ColorButton1Change
    end
  end

Index: ColorButtonDemo.dof
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvColorButton/ColorButtonDemo.dof,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ColorButtonDemo.dof	1 Feb 2004 12:25:44 -0000	1.3
--- ColorButtonDemo.dof	4 Feb 2004 15:53:12 -0000	1.4
***************
*** 1,8 ****
  [Compiler]
! UnsafeType=0
! UnsafeCode=0
! UnsafeCast=0
  [Directories]
! OutputDir=..\..\..\bin
! UnitOutputDir=..\..\..\dcu
  SearchPath=..\..\..\run;..\..\..\common
--- 1,76 ----
+ [FileVersion]
+ Version=6.0
  [Compiler]
! A=8
! B=0
! C=1
! D=1
! E=0
! F=0
! G=1
! H=1
! I=1
! J=0
! K=0
! L=1
! M=0
! N=1
! O=1
! P=1
! Q=0
! R=0
! S=0
! T=0
! U=0
! V=1
! W=0
! X=1
! Y=1
! Z=1
! ShowHints=1
! ShowWarnings=1
! UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
! [Linker]
! MapFile=0
! OutputObjs=0
! ConsoleApp=1
! DebugInfo=0
! RemoteSymbols=0
! MinStackSize=16384
! MaxStackSize=1048576
! ImageBase=4194304
! ExeDescription=
  [Directories]
! OutputDir=..\..\bin
! UnitOutputDir=..\..\dcu
! PackageDLLOutputDir=
! PackageDCPOutputDir=
  SearchPath=..\..\..\run;..\..\..\common
+ Packages=
+ Conditionals=
+ DebugSourceDirs=
+ UsePackages=0
+ [Parameters]
+ RunParams=
+ HostApplication=
+ Launcher=
+ UseLauncher=0
+ DebugCWD=
+ [Language]
+ ActiveLang=
+ ProjectLang=
+ RootDir=
+ [Version Info]
+ IncludeVerInfo=0
+ AutoIncBuild=0
+ MajorVer=1
+ MinorVer=0
+ Release=0
+ Build=0
+ Debug=0
+ PreRelease=0
+ Special=0
+ Private=0
+ DLL=0
+ Locale=1031
+ CodePage=1252