paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 21:51:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: remove IFDEFs for old FPC versions. Lazarus won't compile anyway with old versions.

Browse Source 
git-svn-id: trunk@34948 -
This commit is contained in:
juha 2012-01-26 10:47:37 +00:00
parent ca2975464a
commit 62fcc662c6
3 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/chmhelp/lhelp/chmcontentprovider.pas
View File

@ -2,7 +2,6 @@ unit chmcontentprovider;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
//{$if (fpc_version=2) and (fpc_release>2) ((fpc_version=2) and (fpc_release=2) and (fpc_patch>2))}
{$Note Compiling lhelp with search support} {$Note Compiling lhelp with search support}
{$DEFINE CHM_SEARCH} {$DEFINE CHM_SEARCH}

5
lcl/controls.pp
View File

@ -76,11 +76,6 @@ type
TWinControlClass = class of TWinControl; TWinControlClass = class of TWinControl;
TControlClass = class of TControl; TControlClass = class of TControl;
{$if (FPC_VERSION <= 2) and (FPC_RELEASE <= 4) and (FPC_PATCH < 2)}
TDate = type TDateTime;
TTime = type TDateTime;
{$endif}
// ToDo: move this to a message definition unit // ToDo: move this to a message definition unit
TCMMouseWheel = record TCMMouseWheel = record
MSg: Cardinal; MSg: Cardinal;

17
lcl/dbctrls.pp
View File

@ -67,9 +67,6 @@ Type
protected protected
// Testing Events // Testing Events
procedure ActiveChanged; override; procedure ActiveChanged; override;
{$IF ((FPC_VERSION = 2) and (FPC_RELEASE = 4) and (FPC_PATCH = 2))}
procedure DataSetChanged; override;
{$ENDIF}
procedure EditingChanged; override; procedure EditingChanged; override;
procedure LayoutChanged; override; procedure LayoutChanged; override;
procedure RecordChanged(aField: TField); override; procedure RecordChanged(aField: TField); override;
@ -1446,20 +1443,6 @@ begin
FOnActiveChange(Self); FOnActiveChange(Self);
end; end;
{$IF ((FPC_VERSION = 2) and (FPC_RELEASE = 4) and (FPC_PATCH = 2))}
{
This is not necessary since TDataLink.DatasetChanged calls RecordChanged
Keep for now as a workaround to fpc bug 16428 (LayoutChanged not being called)
The bug is present in fpc 242 (the last LCL supported version) but fixed in fpc 244 and up
}
procedure TFieldDataLink.DataSetChanged;
begin
ValidateField;
reset;
end;
{$ENDIF}
{ Delphi Help -> { Delphi Help ->
Changing the field binding can change the validity of the CanModify Changing the field binding can change the validity of the CanModify
property, since individual field components can disallow edits. If property, since individual field components can disallow edits. If