paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

rx: fix compilation a after recent changes in LCL. Issue 20214. With agreement of Lagunov Aleksey

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1953 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum 2011-09-15 11:15:58 +00:00
parent 2ca3b8e514
commit b2e30cdc23
4 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/rxdbcolorbox.pas
View File

@ -123,6 +123,8 @@ type
end;
implementation
uses
LCLVersion;
type
TFieldDataLinkHack = class(TFieldDataLink)
@ -313,7 +315,9 @@ begin
FDataLink.OnDataChange := @DataChange;
FDataLink.OnUpdateData := @UpdateData;
FDataLink.OnActiveChange := @ActiveChange;
{$if (lcl_major = 0) and (lcl_release <= 30)}
FDataLink.OnLayoutChange := @LayoutChange;
{$endif}
end;
destructor TRxCustomDBColorBox.Destroy;

12
components/rx/rxdbctrls.pas
View File

@ -195,11 +195,7 @@ type
end;
implementation
uses dbutils;
type
TFieldDataLinkHack = class(TFieldDataLink)
end;
uses dbutils, LCLVersion;
{ TCustomRxDBProgressBar }
@ -264,7 +260,9 @@ begin
FDataLink.Control := Self;
FDataLink.OnDataChange := @DataChange;
FDataLink.OnActiveChange := @ActiveChange;
{$if (lcl_major = 0) and (lcl_release <= 30)}
FDataLink.OnLayoutChange := @LayoutChange;
{$endif}
end;
destructor TCustomRxDBProgressBar.Destroy;
@ -344,7 +342,7 @@ begin
if not FDatalink.Editing then
FDatalink.Reset
else
TFieldDataLinkHack(FDatalink).UpdateData;
FDatalink.UpdateRecord;
end;
function TCustomRxDBTrackBar.GetReadOnly: Boolean;
@ -416,7 +414,9 @@ begin
FDataLink.OnDataChange := @DataChange;
FDataLink.OnUpdateData := @UpdateData;
FDataLink.OnActiveChange := @ActiveChange;
{$if (lcl_major = 0) and (lcl_release <= 30)}
FDataLink.OnLayoutChange := @LayoutChange;
{$endif}
end;
destructor TCustomRxDBTrackBar.Destroy;

4
components/rx/rxdbspinedit.pas
View File

@ -37,7 +37,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Spin,
DbCtrls, DB, LMessages, LCLType;
DbCtrls, DB, LMessages, LCLType, LCLVersion;
type
@ -302,7 +302,9 @@ begin
FDataLink.OnDataChange := @DataChange;
FDataLink.OnUpdateData := @UpdateData;
FDataLink.OnActiveChange := @ActiveChange;
{$if (lcl_major = 0) and (lcl_release <= 30)}
FDataLink.OnLayoutChange := @LayoutChange;
{$endif}
end;
destructor TCustomRxDBSpinEdit.Destroy;

4
components/rx/rxdbtimeedit.pas
View File

@ -136,7 +136,7 @@ type
implementation
uses dbutils;
uses dbutils, LCLVersion;
type
TFieldDataLinkHack = class(TFieldDataLink)
@ -305,7 +305,9 @@ begin
FDataLink.OnDataChange := @DataChange;
FDataLink.OnUpdateData := @UpdateData;
FDataLink.OnActiveChange := @ActiveChange;
{$if (lcl_major = 0) and (lcl_release <= 30)}
FDataLink.OnLayoutChange := @LayoutChange;
{$endif}
end;
destructor TCustomRxDBTimeEdit.Destroy;