From bf205acf8ac68ee8a2053e41ccaa317f08c39f8e Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Mon, 9 May 2011 19:14:35 +0000
Subject: [PATCH] lcl: fix spelling FValue[Un]Check -> FValue[Un]Checked

git-svn-id: trunk@30644 -
---
 lcl/dbctrls.pp             | 12 ++++++------
 lcl/include/dbcheckbox.inc | 24 ++++++++++++------------
 2 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp
index 072b9429d8..ac0e34bbae 100644
--- a/lcl/dbctrls.pp
+++ b/lcl/dbctrls.pp
@@ -583,8 +583,8 @@ Type
   TDBCheckBox = class(TCustomCheckBox)
   private
     FDataLink: TFieldDataLink;
-    FValueCheck: string;
-    FValueUncheck: string;
+    FValueChecked: string;
+    FValueUnchecked: string;
     function GetDataField: string;
     function GetDataSource: TDataSource;
     function GetField: TField;
@@ -592,8 +592,8 @@ Type
     procedure SetDataField(const AValue: string);
     procedure SetDataSource(const AValue: TDataSource);
     procedure SetReadOnly(const AValue: Boolean);
-    procedure SetValueCheck(const AValue: string);
-    procedure SetValueUncheck(const AValue: string);
+    procedure SetValueChecked(const AValue: string);
+    procedure SetValueUnchecked(const AValue: string);
     procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
   protected
     function GetFieldCheckState: TCheckBoxState; virtual;
@@ -645,8 +645,8 @@ Type
     property ShowHint;
     property TabOrder;
     property TabStop;
-    property ValueChecked: string read FValueCheck write SetValueCheck;
-    property ValueUnchecked: string read FValueUncheck write SetValueUncheck;
+    property ValueChecked: string read FValueChecked write SetValueChecked;
+    property ValueUnchecked: string read FValueUnchecked write SetValueUnchecked;
     property Visible;
   end;
   
diff --git a/lcl/include/dbcheckbox.inc b/lcl/include/dbcheckbox.inc
index d66f7ce7bb..93ea4db2f9 100644
--- a/lcl/include/dbcheckbox.inc
+++ b/lcl/include/dbcheckbox.inc
@@ -53,17 +53,17 @@ begin
   FDataLink.ReadOnly:=AValue;
 end;
 
-procedure TDBCheckBox.SetValueCheck(const AValue: string);
+procedure TDBCheckBox.SetValueChecked(const AValue: string);
 begin
-  if FValueCheck=AValue then exit;
-  FValueCheck:=AValue;
+  if FValueChecked=AValue then exit;
+  FValueChecked:=AValue;
   DataChange(Self);
 end;
 
-procedure TDBCheckBox.SetValueUncheck(const AValue: string);
+procedure TDBCheckBox.SetValueUnchecked(const AValue: string);
 begin
-  if FValueUncheck=AValue then exit;
-  FValueUncheck:=AValue;
+  if FValueUnchecked=AValue then exit;
+  FValueUnchecked:=AValue;
   DataChange(Self);
 end;
 
@@ -121,9 +121,9 @@ begin
       Result:=cbUnchecked;
   end else begin
     FieldText:=UpperCase(DatalinkField.AsString);
-    if FindWord(FieldText,UpperCase(FValueCheck)) then
+    if FindWord(FieldText,UpperCase(FValueChecked)) then
       Result:=cbChecked
-    else if FindWord(FieldText,UpperCase(FValueUncheck)) then
+    else if FindWord(FieldText,UpperCase(FValueUnchecked)) then
       Result:=cbUnchecked
     else
       Result:=cbGrayed;
@@ -156,9 +156,9 @@ begin
       FDataLink.Field.AsBoolean:=Checked
     else begin
       if Checked then
-        NewFieldText:=FValueCheck
+        NewFieldText:=FValueChecked
       else
-        NewFieldText:=FValueUncheck;
+        NewFieldText:=FValueUnchecked;
       // ToDo: use Field.Text
       FDataLink.Field.AsString:=Trim(NewFieldText);
     end;
@@ -196,8 +196,8 @@ end;
 constructor TDBCheckBox.Create(TheOwner: TComponent);
 begin
   inherited Create(TheOwner);
-  FValueCheck:='True';
-  FValueUncheck:='False';
+  FValueChecked:='True';
+  FValueUnchecked:='False';
 
   ControlStyle:=ControlStyle+[csReplicatable];
   State:=cbUnchecked;