paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix spelling FValue[Un]Check -> FValue[Un]Checked

Browse Source 
git-svn-id: trunk@30644 -
This commit is contained in:
blikblum 2011-05-09 19:14:35 +00:00
parent 6a3307b3b2
commit bf205acf8a
2 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/dbctrls.pp
View File

@ -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;

24
lcl/include/dbcheckbox.inc
View File

@ -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;