paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 08:09:26 +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+}
//{$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}
{$DEFINE CHM_SEARCH}

5
lcl/controls.pp
View File

@ -76,11 +76,6 @@ type
TWinControlClass = class of TWinControl;
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
TCMMouseWheel = record
MSg: Cardinal;

17
lcl/dbctrls.pp
View File

@ -67,9 +67,6 @@ Type
protected
// Testing Events
procedure ActiveChanged; override;
{$IF ((FPC_VERSION = 2) and (FPC_RELEASE = 4) and (FPC_PATCH = 2))}
procedure DataSetChanged; override;
{$ENDIF}
procedure EditingChanged; override;
procedure LayoutChanged; override;
procedure RecordChanged(aField: TField); override;
@ -1446,20 +1443,6 @@ begin
FOnActiveChange(Self);
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 ->
Changing the field binding can change the validity of the CanModify
property, since individual field components can disallow edits. If