paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 21:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix really ugly indentation and capitalization

Browse Source 
git-svn-id: trunk@10444 -
This commit is contained in:
micha 2007-01-14 21:21:49 +00:00
parent aeae3fdd32
commit 6656df0ee0
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/include/dbedit.inc
View File

@ -48,14 +48,13 @@ begin
end;
procedure TDBEdit.ActiveChange(Sender: TObject);
begin
if FDatalink.Active then datachange(sender)
else
begin
text := '';
FDataLink.reset;
end;
if FDatalink.Active then
DataChange(Sender)
else begin
Text := '';
FDataLink.Reset;
end;
end;
procedure TDBEdit.LayoutChange(Sender: TObject);
@ -284,8 +283,8 @@ begin
FDataLink.OnDataChange := @DataChange;
FDataLink.OnEditingChange := @EditingChange;
FDataLink.OnUpdateData := @UpdateData;
FDataLInk.OnActiveChange := @ActiveChange;
FDatalink.OnLayoutChange := @LayoutChange;
FDataLink.OnActiveChange := @ActiveChange;
FDataLink.OnLayoutChange := @LayoutChange;
inherited ReadOnly := True;//start read only
end;