paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-07 04:51:08 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: remove workaround introduced in rev20013 to fix bugs #13367 and #10453 since actual bug is fixed in mean time

Browse Source 
git-svn-id: trunk@28351 -
This commit is contained in:
blikblum 2010-11-19 20:19:55 +00:00
parent a31e9898e2
commit f645b173bc
2 changed files with 2 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/dbctrls.pp
View File

@ -604,7 +604,6 @@ Type
protected
function GetFieldCheckState: TCheckBoxState; virtual;
procedure DataChange(Sender: TObject); virtual;
procedure DoOnChange; override;
procedure UpdateData(Sender: TObject); virtual;
procedure FocusRequest(Sender: TObject); virtual;
procedure Notification(AComponent: TComponent;

27
lcl/include/dbcheckbox.inc
View File

@ -97,28 +97,6 @@ begin
State:=GetFieldCheckState;
end;
procedure TDBCheckBox.DoOnChange;
var
EditingOk: boolean;
begin
if [csLoading,csDestroying,csDesigning]*ComponentState<>[] then begin
exit;
end;
// enter edit state avoiding FDatalink.Reset which would
// not honour external event (generated perhaps by user interaction)
FDatalink.OnDataChange:=nil;
EditingOk := FDatalink.Edit;
FDatalink.OnDataChange:=@DataChange;
EditingDone;
if EditingOk then begin
if Assigned(OnChange) then
OnChange(Self);
end;
end;
procedure TDBCheckBox.UpdateData(Sender: TObject);
var
NewFieldText: string;
@ -165,7 +143,7 @@ end;
procedure TDBCheckBox.EditingDone;
begin
if FDatalink.Editing then begin
if FDatalink.Edit then begin
FDatalink.Modified;
FDataLink.UpdateRecord;
end else
@ -200,8 +178,7 @@ end;
destructor TDBCheckBox.Destroy;
begin
FDataLink.Free;
FDataLink:=nil;
FDataLink.Destroy;
inherited Destroy;
end;