mgr.inz.Player
I post too much
 Reputation: 222
Joined: 07 Nov 2008
Posts: 4438
Location: W kraju nad Wisla. UTC+01:00
|
 Posted: Sat Feb 23, 2019 6:46 am Post subject: |
 |
|
Compile CE 6.8.2 source code with Lazarus 1.6.4 (Lazarus 1.6.4 has few minor bugs)
(if you want those bugs removed, you have to apply this patch to Lazarus files, link and then rebuild Lazarus ("menu->tools->configure build lazarus" then choose optimal profile, then choose "clean all", then click "build"))
Lazarus 1.8.2 up to 2.0.0RC3 had few other annoying bugs.
CE 6.8.3 source code is compatible with lazarus1.6.4 and lazarus2.0.0
Lazarus2.0.0 looks like has most minor bugs (present in 1.6.4) and most other annoying bugs fixed.
If you want to use Lazarus2.0.0 with older CE source, you have to patch ceguicomponents.pas and formdesignerunit.pas files:
| Code: | Index: ceguicomponents.pas
===================================================================
--- ceguicomponents.pas (wersja 3659)
+++ ceguicomponents.pas (wersja 3660)
@@ -533,6 +533,9 @@
type TCEEdit=class(TCustomEdit)
+ private
+ fTextHintFontColor: TColor;
+ fTextHintFontStyle: TFontStyle;
public
property AutoSelected;
published
@@ -596,8 +599,8 @@
property SelText;
property TextHint;
- property TextHintFontColor;
- property TextHintFontStyle;
+ property TextHintFontColor: Tcolor read fTextHintFontColor write fTextHintFontColor;
+ property TextHintFontStyle: TFontStyle read fTextHintFontStyle write fTextHintFontStyle;
end;
type TCEForm=class(TCustomForm)
|
| Code: | Index: formdesignerunit.pas
===================================================================
--- formdesignerunit.pas (wersja 3659)
+++ formdesignerunit.pas (wersja 3660)
@@ -16,7 +16,6 @@
-
type
{ TFormDesigner }
@@ -194,7 +193,7 @@
{ TFormDesigner }
-uses mainunit, DPIHelper;
+uses mainunit, DPIHelper{$if lcl_fullversion>=2000000}, LazMsgDialogs{$endif};
resourcestring
rsInvalidObject = '{Invalid object}';
@@ -589,8 +588,13 @@
LazIDESelectDirectory:=IDESelectDirectory;
idedialogs.InitIDEFileDialog:=self.InitIDEFileDialog;
idedialogs.StoreIDEFileDialog:=self.InitIDEFileDialog;
+ {$if lcl_fullversion>=2000000}
+ LazMsgDialogs.LazMessageDialog:=self.IDEMessageDialog;
+ LazMsgDialogs.LazQuestionDialog:=self.IDEQuestionDialog;
+ {$else}
idedialogs.IDEMessageDialog:=self.IDEMessageDialog;
idedialogs.IDEQuestionDialog:=self.IDEQuestionDialog;
+ {$endif}
SurfaceList:=tlist.create;
|
_________________
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
