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

lcl: add note to remove workaround method as soon as possible

Browse Source 
git-svn-id: trunk@37249 -
This commit is contained in:
blikblum 2012-05-11 01:55:26 +00:00
parent 0ef6cbff1b
commit 532b55deb7
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/dblookup.inc
View File

@ -88,6 +88,7 @@ begin
Initialize(FControlLink, FControlItems); Initialize(FControlLink, FControlItems);
end; end;
//todo: remove this method as soon fpc rev 21158 lands in the last supported compiler
procedure TDBLookup.ChangeListLinkDataSource(NewDataSource: TDataSource); procedure TDBLookup.ChangeListLinkDataSource(NewDataSource: TDataSource);
begin begin
if NewDataSource <> FListLink.DataSource then if NewDataSource <> FListLink.DataSource then