[Jcl-checkins-diff] SF.net SVN: jcl:[2444] trunk/jcl/examples/common/numformat

[<ou...@us...>]

Revision: 2444
          http://jcl.svn.sourceforge.net/jcl/?rev=2444&view=rev
Author:   outchy
Date:     2008-08-24 09:41:39 +0000 (Sun, 24 Aug 2008)

Log Message:
-----------
Fixed properties in dfm file.

Modified Paths:
--------------
    trunk/jcl/examples/common/numformat/NumFormatExampleMain.dfm
    trunk/jcl/examples/common/numformat/NumFormatExampleMain.pas

Modified: trunk/jcl/examples/common/numformat/NumFormatExampleMain.dfm
===================================================================
--- trunk/jcl/examples/common/numformat/NumFormatExampleMain.dfm	2008-08-24 08:55:29 UTC (rev 2443)
+++ trunk/jcl/examples/common/numformat/NumFormatExampleMain.dfm	2008-08-24 09:41:39 UTC (rev 2444)
@@ -3,8 +3,6 @@
   Top = 223
   Width = 800
   Height = 581
-  VertScrollBar.Range = 576
-  HorzScrollBar.Range = 779
   ActiveControl = ValueEdit
   Caption = 'TJclNumericFormat Example'
   OnCreate = FormCreate
@@ -56,11 +54,11 @@
     Top = 8
     Width = 81
     Height = 23
-    Max = 64
-    Min = 1
+    MaxValue = 64
+    MinValue = 1
     TabOrder = 1
     Value = 9
-    OnChanged = PrecisionEditChanged
+    OnChange = PrecisionEditChange
   end
   object Output: TMemo
     Left = 0
@@ -69,13 +67,9 @@
     Height = 461
     Align = alBottom
     Anchors = [akLeft, akTop, akRight, akBottom]
-    Font.CharSet = fcsLatin2
     Font.Color = clBlack
     Font.Height = 16
     Font.Name = 'Courier'
-    Font.Pitch = fpFixed
-    Font.Style = []
-    Font.Weight = 40
     ParentFont = False
     ScrollBars = ssAutoBoth
     TabOrder = 12
@@ -118,7 +112,7 @@
     Height = 23
     TabOrder = 7
     Value = 3
-    OnChanged = BlockSizeEditChanged
+    OnChange = BlockSizeEditChange
   end
   object cbShowPlusSign: TCheckBox
     Left = 100
@@ -141,11 +135,11 @@
     Top = 64
     Width = 81
     Height = 23
-    Max = 12
-    Min = 1
+    MaxValue = 12
+    MinValue = 1
     TabOrder = 3
     Value = 3
-    OnChanged = ExpDivisionEditChanged
+    OnChange = ExpDivisionEditChange
   end
   object WidthEdit: TSpinEdit
     Left = 380
@@ -154,7 +148,7 @@
     Height = 23
     TabOrder = 4
     Value = 4
-    OnChanged = WidthEditChanged
+    OnChange = WidthEditChange
   end
   object Label6: TLabel
     Left = 340
@@ -206,9 +200,9 @@
     Top = 36
     Width = 81
     Height = 23
-    Max = 64
+    MaxValue = 64
     TabOrder = 2
     Value = 6
-    OnChanged = FractionDigitsEditChanged
+    OnChange = FractionDigitsEditChange
   end
 end

Modified: trunk/jcl/examples/common/numformat/NumFormatExampleMain.pas
===================================================================
--- trunk/jcl/examples/common/numformat/NumFormatExampleMain.pas	2008-08-24 08:55:29 UTC (rev 2443)
+++ trunk/jcl/examples/common/numformat/NumFormatExampleMain.pas	2008-08-24 09:41:39 UTC (rev 2444)
@@ -35,15 +35,15 @@
     procedure ValueEditChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
-    procedure BlockSizeEditChanged(Sender: TObject; NewValue: Integer);
+    procedure BlockSizeEditChange(Sender: TObject; NewValue: Integer);
     procedure BlockSeparatorSelectorChange(Sender: TObject);
-    procedure PrecisionEditChanged(Sender: TObject; NewValue: Integer);
+    procedure PrecisionEditChange(Sender: TObject; NewValue: Integer);
     procedure cbShowPlusSignClick(Sender: TObject);
-    procedure ExpDivisionEditChanged(Sender: TObject; NewValue: Integer);
-    procedure WidthEditChanged(Sender: TObject; NewValue: Integer);
+    procedure ExpDivisionEditChange(Sender: TObject; NewValue: Integer);
+    procedure WidthEditChange(Sender: TObject; NewValue: Integer);
     procedure cbZeroPaddingClick(Sender: TObject);
     procedure MultiplierSelectorChange(Sender: TObject);
-    procedure FractionDigitsEditChanged(Sender: TObject;
+    procedure FractionDigitsEditChange(Sender: TObject;
       NewValue: Integer);
   private
     { Private declarations }
@@ -130,7 +130,7 @@
   EvalBtn.Enabled := True;
 end;
 
-procedure TMainForm.BlockSizeEditChanged(Sender: TObject; NewValue: Integer);
+procedure TMainForm.BlockSizeEditChange(Sender: TObject; NewValue: Integer);
 begin
   if Assigned(FNumFormat) then
   begin
@@ -148,7 +148,7 @@
   end;
 end;
 
-procedure TMainForm.PrecisionEditChanged(Sender: TObject; NewValue: Integer);
+procedure TMainForm.PrecisionEditChange(Sender: TObject; NewValue: Integer);
 begin
   if Assigned(FNumFormat) then
   begin
@@ -166,7 +166,7 @@
   end;
 end;
 
-procedure TMainForm.ExpDivisionEditChanged(Sender: TObject;
+procedure TMainForm.ExpDivisionEditChange(Sender: TObject;
   NewValue: Integer);
 begin
   if Assigned(FNumFormat) then
@@ -176,7 +176,7 @@
   end;
 end;
 
-procedure TMainForm.WidthEditChanged(Sender: TObject; NewValue: Integer);
+procedure TMainForm.WidthEditChange(Sender: TObject; NewValue: Integer);
 begin
   if Assigned(FNumFormat) then
   begin
@@ -206,7 +206,7 @@
   end;
 end;
 
-procedure TMainForm.FractionDigitsEditChanged(Sender: TObject;
+procedure TMainForm.FractionDigitsEditChange(Sender: TObject;
   NewValue: Integer);
 begin
   if Assigned(FNumFormat) then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.