From d048f998c623dc7d7e39990f8c3b892c2bdbc7ce Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sat, 25 May 2019 10:02:59 +0000 Subject: [PATCH] jvcllaz: Lowercase unit and package files of JvXPCtrls packages. Less hints and warnings. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6939 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../{JvXPCtrlsReg.pas => jvxpctrlsreg.pas} | 2 +- ...rtyEditors.pas => jvxppropertyeditors.pas} | 0 .../jvcllaz/examples/JvXPBar/MainFrm.lfm | 2 +- .../jvcllaz/examples/JvXPBar/MainFrm.pas | 7 +- .../jvcllaz/examples/JvXPCtrls/MainFrm.lfm | 10 +- .../{JvXPCtrlsLazD.lpk => jvxpctrlslazd.lpk} | 9 +- .../{JvXPCtrlsLazR.lpk => jvxpctrlslazr.lpk} | 17 +- components/jvcllaz/resource/JvXPBar.lrs | 254 ------------------ .../resource/{JvXPBar.res => jvxpbar.res} | Bin .../resource/{JvXPCore.res => jvxpcore.res} | Bin .../{JvXPCtrlsLaz.lrs => jvxpctrlslaz.lrs} | 0 .../JvXPCtrls/{JvXPBar.pas => jvxpbar.pas} | 22 +- .../{JvXPButtons.pas => jvxpbuttons.pas} | 6 +- ...{JvXPCheckCtrls.pas => jvxpcheckctrls.pas} | 9 - .../{JvXPContainer.pas => jvxpcontainer.pas} | 6 +- .../JvXPCtrls/{JvXPCore.pas => jvxpcore.pas} | 0 .../{JvXPCoreUtils.pas => jvxpcoreutils.pas} | 8 +- 17 files changed, 42 insertions(+), 310 deletions(-) rename components/jvcllaz/design/JvXPCtrls/{JvXPCtrlsReg.pas => jvxpctrlsreg.pas} (95%) rename components/jvcllaz/design/JvXPCtrls/{JvXPPropertyEditors.pas => jvxppropertyeditors.pas} (100%) rename components/jvcllaz/packages/{JvXPCtrlsLazD.lpk => jvxpctrlslazd.lpk} (87%) rename components/jvcllaz/packages/{JvXPCtrlsLazR.lpk => jvxpctrlslazr.lpk} (77%) delete mode 100644 components/jvcllaz/resource/JvXPBar.lrs rename components/jvcllaz/resource/{JvXPBar.res => jvxpbar.res} (100%) rename components/jvcllaz/resource/{JvXPCore.res => jvxpcore.res} (100%) rename components/jvcllaz/resource/{JvXPCtrlsLaz.lrs => jvxpctrlslaz.lrs} (100%) rename components/jvcllaz/run/JvXPCtrls/{JvXPBar.pas => jvxpbar.pas} (99%) rename components/jvcllaz/run/JvXPCtrls/{JvXPButtons.pas => jvxpbuttons.pas} (99%) rename components/jvcllaz/run/JvXPCtrls/{JvXPCheckCtrls.pas => jvxpcheckctrls.pas} (98%) rename components/jvcllaz/run/JvXPCtrls/{JvXPContainer.pas => jvxpcontainer.pas} (100%) rename components/jvcllaz/run/JvXPCtrls/{JvXPCore.pas => jvxpcore.pas} (100%) rename components/jvcllaz/run/JvXPCtrls/{JvXPCoreUtils.pas => jvxpcoreutils.pas} (98%) diff --git a/components/jvcllaz/design/JvXPCtrls/JvXPCtrlsReg.pas b/components/jvcllaz/design/JvXPCtrls/jvxpctrlsreg.pas similarity index 95% rename from components/jvcllaz/design/JvXPCtrls/JvXPCtrlsReg.pas rename to components/jvcllaz/design/JvXPCtrls/jvxpctrlsreg.pas index a90e47caf..db36231d7 100644 --- a/components/jvcllaz/design/JvXPCtrls/JvXPCtrlsReg.pas +++ b/components/jvcllaz/design/JvXPCtrls/jvxpctrlsreg.pas @@ -39,7 +39,7 @@ begin end; initialization - {$I ../resource/JvXPCtrlsLaz.lrs} + {$I ../resource/jvxpctrlslaz.lrs} end. diff --git a/components/jvcllaz/design/JvXPCtrls/JvXPPropertyEditors.pas b/components/jvcllaz/design/JvXPCtrls/jvxppropertyeditors.pas similarity index 100% rename from components/jvcllaz/design/JvXPCtrls/JvXPPropertyEditors.pas rename to components/jvcllaz/design/JvXPCtrls/jvxppropertyeditors.pas diff --git a/components/jvcllaz/examples/JvXPBar/MainFrm.lfm b/components/jvcllaz/examples/JvXPBar/MainFrm.lfm index 5515788ea..9194b27b8 100644 --- a/components/jvcllaz/examples/JvXPBar/MainFrm.lfm +++ b/components/jvcllaz/examples/JvXPBar/MainFrm.lfm @@ -16,7 +16,7 @@ object frmMain: TfrmMain OnCreate = FormCreate Position = poScreenCenter ShowHint = True - LCLVersion = '1.9.0.0' + LCLVersion = '2.1.0.0' Scaled = False object spltMain: TSplitter Left = 206 diff --git a/components/jvcllaz/examples/JvXPBar/MainFrm.pas b/components/jvcllaz/examples/JvXPBar/MainFrm.pas index a03017e86..ce47323e9 100644 --- a/components/jvcllaz/examples/JvXPBar/MainFrm.pas +++ b/components/jvcllaz/examples/JvXPBar/MainFrm.pas @@ -5,10 +5,9 @@ unit MainFrm; interface uses - //Windows, Messages, - SysUtils, Classes, Graphics, Controls, Forms, - Dialogs, JvXPCore, JvXPBar, JvXPContainer, ImgList, ActnList, ExtCtrls, - StdCtrls, ComCtrls, JvExControls, JvComponent, JvXPCheckCtrls, + SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, ComCtrls, ExtCtrls, + Dialogs, ImgList, ActnList, + JvXPCore, JvXPBar, JvXPContainer, JvExControls, JvComponent, JvXPCheckCtrls, JvXPButtons; resourcestring diff --git a/components/jvcllaz/examples/JvXPCtrls/MainFrm.lfm b/components/jvcllaz/examples/JvXPCtrls/MainFrm.lfm index e40f73bae..55129d476 100644 --- a/components/jvcllaz/examples/JvXPCtrls/MainFrm.lfm +++ b/components/jvcllaz/examples/JvXPCtrls/MainFrm.lfm @@ -2,23 +2,23 @@ object frmMain: TfrmMain Left = 291 Height = 191 Top = 290 - Width = 486 + Width = 504 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'frmMain' ClientHeight = 191 - ClientWidth = 486 + ClientWidth = 504 Color = clBtnFace DefaultMonitor = dmDesktop Font.Color = clWindowText OnCreate = FormCreate Position = poDesktopCenter - LCLVersion = '1.9.0.0' + LCLVersion = '2.1.0.0' object cntHeader: TJvXPContainer Left = 0 Height = 15 Top = 0 - Width = 486 + Width = 504 Caption = 'cntHeader' OnPaint = cntHeaderPaint Align = alTop @@ -288,7 +288,7 @@ object frmMain: TfrmMain Left = 145 Height = 17 Top = 80 - Width = 334 + Width = 352 Caption = '&Toogle Enable-Mode' TabOrder = 8 Anchors = [akTop, akLeft, akRight] diff --git a/components/jvcllaz/packages/JvXPCtrlsLazD.lpk b/components/jvcllaz/packages/jvxpctrlslazd.lpk similarity index 87% rename from components/jvcllaz/packages/JvXPCtrlsLazD.lpk rename to components/jvcllaz/packages/jvxpctrlslazd.lpk index cc29e7688..35575079b 100644 --- a/components/jvcllaz/packages/JvXPCtrlsLazD.lpk +++ b/components/jvcllaz/packages/jvxpctrlslazd.lpk @@ -18,16 +18,16 @@ - + - + - + @@ -37,9 +37,6 @@ - - - diff --git a/components/jvcllaz/packages/JvXPCtrlsLazR.lpk b/components/jvcllaz/packages/jvxpctrlslazr.lpk similarity index 77% rename from components/jvcllaz/packages/JvXPCtrlsLazR.lpk rename to components/jvcllaz/packages/jvxpctrlslazr.lpk index 161489b7b..6a3608837 100644 --- a/components/jvcllaz/packages/JvXPCtrlsLazR.lpk +++ b/components/jvcllaz/packages/jvxpctrlslazr.lpk @@ -17,40 +17,37 @@ - + - + - + - + - + - + - + - - - diff --git a/components/jvcllaz/resource/JvXPBar.lrs b/components/jvcllaz/resource/JvXPBar.lrs deleted file mode 100644 index 99599805c..000000000 --- a/components/jvcllaz/resource/JvXPBar.lrs +++ /dev/null @@ -1,254 +0,0 @@ -LazarusResources.Add('JVXPCUSTOMWINXPBARCOLLAPSE0','BMP',[ - 'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3 - +#0#0#195#14#0#0#195#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0 - +#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#165'8'#0#165'8'#0#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0 - +#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255 - +#0#255#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0 - +#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0 -]); -LazarusResources.Add('JVXPCUSTOMWINXPBARCOLLAPSE1','BMP',[ - 'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3 - +#0#0#195#14#0#0#195#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0 - +#255#255#0#255#165'8'#0#165'8'#1#255#0#255#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#165'8'#0#165'8'#0#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0 - +#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255 - +#0#255#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0 - +#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0 -]); -LazarusResources.Add('JVXPCUSTOMWINXPBARCOLLAPSE2','BMP',[ - 'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3 - +#0#0#195#14#0#0#195#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#165'8'#0#165 - +'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255 - +#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0 - +#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165 - +'8'#0#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0#255#165'8'#0#165'8'#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165 - +'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#165'8'#0#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0 - +#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0 -]); -LazarusResources.Add('JVXPCUSTOMWINXPBAREXPAND0','BMP',[ - 'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3 - +#0#0#195#14#0#0#195#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#168'6'#8#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#165 - +'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#165'8'#0#165'8'#0#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#173'3'#24#166'8'#2#255#0#255#255#0#255#255#0#255#165'8' - +#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#166'7'#3#165'8'#0#255#0#255#165 - +'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#182 - +'./'#255#0#255#255#0#255#255#0#255#169'6'#11#169'5'#12#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0 - +#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#0#0 -]); -LazarusResources.Add('JVXPCUSTOMWINXPBAREXPAND1','BMP',[ - 'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3 - +#0#0#195#14#0#0#195#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#167'6'#7#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#166'8'#2#165'8'#0#165 - +'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#165'8'#0#165'8'#0#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#165'8'#0 - +#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#1#165'8'#1#255#0#255#165 - +'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#1#171 - +'4'#18#255#0#255#255#0#255#255#0#255#166'7'#4#165'8'#1#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0 - +#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255 - +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255 - +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0 - +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255 - +#255#0#255#255#0#255#0#0 -]); -LazarusResources.Add('JVXPCUSTOMWINXPBAREXPAND2','BMP',[ - 'BM'#174#1#0#0#0#0#0#0'F'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#8#0#0#0#0#0'h' - +#1#0#0#195#14#0#0#195#14#0#0#4#0#0#0#4#0#0#0#255#0#255#0#165'8'#0#0#255#255 - +#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 - +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 - +#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 - +#1#1#0#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#0#0#0#1#1#0#0#0#0#0#0#0#0#0#0#0#0 - +#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0 - +#0#0#0#0#1#1#0#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#0#0#0#1#1#0#0#0#0#0#0#0#0 - +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 - +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 - +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 - +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 -]); diff --git a/components/jvcllaz/resource/JvXPBar.res b/components/jvcllaz/resource/jvxpbar.res similarity index 100% rename from components/jvcllaz/resource/JvXPBar.res rename to components/jvcllaz/resource/jvxpbar.res diff --git a/components/jvcllaz/resource/JvXPCore.res b/components/jvcllaz/resource/jvxpcore.res similarity index 100% rename from components/jvcllaz/resource/JvXPCore.res rename to components/jvcllaz/resource/jvxpcore.res diff --git a/components/jvcllaz/resource/JvXPCtrlsLaz.lrs b/components/jvcllaz/resource/jvxpctrlslaz.lrs similarity index 100% rename from components/jvcllaz/resource/JvXPCtrlsLaz.lrs rename to components/jvcllaz/resource/jvxpctrlslaz.lrs diff --git a/components/jvcllaz/run/JvXPCtrls/JvXPBar.pas b/components/jvcllaz/run/JvXPCtrls/jvxpbar.pas similarity index 99% rename from components/jvcllaz/run/JvXPCtrls/JvXPBar.pas rename to components/jvcllaz/run/JvXPCtrls/jvxpbar.pas index 8de453f8a..a349307dd 100644 --- a/components/jvcllaz/run/JvXPCtrls/JvXPBar.pas +++ b/components/jvcllaz/run/JvXPCtrls/jvxpbar.pas @@ -113,12 +113,6 @@ type FClient: TJvXPBarItem; protected procedure AssignClient(AClient: TObject); override; - function IsCaptionLinked: Boolean; override; - function IsCheckedLinked: Boolean; override; - function IsEnabledLinked: Boolean; override; - function IsHintLinked: Boolean; override; - function IsImageIndexLinked: Boolean; override; - function IsVisibleLinked: Boolean; override; function IsOnExecuteLinked: Boolean; override; procedure SetCaption(const Value: string); override; procedure SetHint(const Value: string); override; @@ -131,6 +125,14 @@ type procedure SetVisible(Value: Boolean); override; procedure SetOnExecute(Value: TNotifyEvent); override; property Client: TJvXPBarItem read FClient write FClient; + public + function IsCaptionLinked: Boolean; override; + function IsCheckedLinked: Boolean; override; + function IsEnabledLinked: Boolean; override; + function IsHintLinked: Boolean; override; + function IsImageIndexLinked: Boolean; override; + function IsVisibleLinked: Boolean; override; + end; TJvXPBarItemActionLinkClass = class of TJvXPBarItemActionLink; @@ -449,7 +451,7 @@ type constructor Create(AOwner: TComponent); override; destructor Destroy; override; function GetHitTestAt(X, Y: Integer): TJvXPBarHitTest; - function GetItemAt(X, Y: Integer): Integer; + function GetItemAt({%H-}X, Y: Integer): Integer; procedure Click; override; property Height default 46; property VisibleItems: TJvXPBarVisibleItems read FVisibleItems; @@ -550,7 +552,7 @@ procedure RoundedFrame(Canvas: TCanvas; ARect: TRect; AColor: TColor; R: Integer implementation -{$R ../../resource/JvXPBar.res} +{$R ../../resource/jvxpbar.res} uses Menus; @@ -1772,8 +1774,8 @@ begin end; procedure TJvXPCustomWinXPBar.SetHotTrack(Value: Boolean); -const - MouseEvents: TJvXPControlStyle = [csRedrawMouseEnter, csRedrawMouseLeave]; +//const +// MouseEvents: TJvXPControlStyle = [csRedrawMouseEnter, csRedrawMouseLeave]; begin if Value <> FHotTrack then begin diff --git a/components/jvcllaz/run/JvXPCtrls/JvXPButtons.pas b/components/jvcllaz/run/JvXPCtrls/jvxpbuttons.pas similarity index 99% rename from components/jvcllaz/run/JvXPCtrls/JvXPButtons.pas rename to components/jvcllaz/run/JvXPCtrls/jvxpbuttons.pas index 089fc57d2..c9acc29af 100644 --- a/components/jvcllaz/run/JvXPCtrls/JvXPButtons.pas +++ b/components/jvcllaz/run/JvXPCtrls/jvxpbuttons.pas @@ -38,11 +38,11 @@ uses type TJvXPCustomButtonActionLink = class(TWinControlActionLink) protected - function IsImageIndexLinked: Boolean; override; procedure AssignClient(AClient: TObject); override; procedure SetImageIndex(Value: Integer); override; public destructor Destroy; override; + function IsImageIndexLinked: Boolean; override; end; TJvXPLayout = (blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom); @@ -85,7 +85,6 @@ type procedure SetWordWrap(Value: Boolean); virtual; procedure Paint; override; procedure HookResized; override; - procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override; procedure UpdateBitmaps; // advanced properties. @@ -104,6 +103,7 @@ type destructor Destroy; override; procedure Click; override; procedure Loaded ; override; + procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override; published // property TabStop default True; // property UseDockManager default True; @@ -504,7 +504,7 @@ end; procedure TJvXPCustomButton.KeyUp(var Key: Word; Shift: TShiftState); var - Pos: TPoint; + Pos: TPoint = (X:0; Y:0); begin // it's not possible to call the 'HookMouseUp' or 'HookMouseLeave' methods, // because we don't want to call their event handlers. diff --git a/components/jvcllaz/run/JvXPCtrls/JvXPCheckCtrls.pas b/components/jvcllaz/run/JvXPCtrls/jvxpcheckctrls.pas similarity index 98% rename from components/jvcllaz/run/JvXPCtrls/JvXPCheckCtrls.pas rename to components/jvcllaz/run/JvXPCtrls/jvxpcheckctrls.pas index 62647e708..842dc1302 100644 --- a/components/jvcllaz/run/JvXPCtrls/JvXPCheckCtrls.pas +++ b/components/jvcllaz/run/JvXPCtrls/jvxpcheckctrls.pas @@ -442,15 +442,6 @@ begin end; end; -{$IFDEF USEJVCL} -{$IFDEF UNITVERSIONING} -initialization - RegisterUnitVersion(HInstance, UnitVersioning); - -finalization - UnregisterUnitVersion(HInstance); -{$ENDIF UNITVERSIONING} -{$ENDIF USEJVCL} end. diff --git a/components/jvcllaz/run/JvXPCtrls/JvXPContainer.pas b/components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas similarity index 100% rename from components/jvcllaz/run/JvXPCtrls/JvXPContainer.pas rename to components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas index fa062013d..6b8e28962 100644 --- a/components/jvcllaz/run/JvXPCtrls/JvXPContainer.pas +++ b/components/jvcllaz/run/JvXPCtrls/jvxpcontainer.pas @@ -75,13 +75,10 @@ type protected procedure CreateParams(var Params: TCreateParams); override; procedure AdjustClientRect(var Rect: TRect); override; - procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer; - Raw: boolean = false; WithThemeSpace: boolean = true); override; procedure HookEnabledChanged; override; procedure HookMouseDown; override; procedure HookPosChanged; override; procedure Paint; override; - procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override; property Alignment: TAlignment read FAlignment write SetAlignment default taCenter; property BorderWidth: TBorderWidth read FBorderWidth write SetBorderWidth default 0; property BoundColor: TColor read FBoundColor write SetBoundColor default clGray; @@ -105,6 +102,9 @@ type public constructor Create(AOwner: TComponent); override; destructor Destroy; override; + procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer; + Raw: boolean = false; WithThemeSpace: boolean = true); override; + procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override; end; TJvXPContainer = class(TJvXPCustomContainer) diff --git a/components/jvcllaz/run/JvXPCtrls/JvXPCore.pas b/components/jvcllaz/run/JvXPCtrls/jvxpcore.pas similarity index 100% rename from components/jvcllaz/run/JvXPCtrls/JvXPCore.pas rename to components/jvcllaz/run/JvXPCtrls/jvxpcore.pas diff --git a/components/jvcllaz/run/JvXPCtrls/JvXPCoreUtils.pas b/components/jvcllaz/run/JvXPCtrls/jvxpcoreutils.pas similarity index 98% rename from components/jvcllaz/run/JvXPCtrls/JvXPCoreUtils.pas rename to components/jvcllaz/run/JvXPCtrls/jvxpcoreutils.pas index a9df7ae92..91fd3184e 100644 --- a/components/jvcllaz/run/JvXPCtrls/JvXPCoreUtils.pas +++ b/components/jvcllaz/run/JvXPCtrls/jvxpcoreutils.pas @@ -54,7 +54,7 @@ procedure JvXPDrawBoundLines(const ACanvas: TCanvas; const BoundLines: TJvXPBoun procedure JvXPConvertToGray2(ABitmap: TBitmap); -procedure JvXPRenderText(const AParent: TControl; const ACanvas: TCanvas; +procedure JvXPRenderText(const {%H-}AParent: TControl; const ACanvas: TCanvas; ACaption: TCaption; const AFont: TFont; const AEnabled, AShowAccelChar: Boolean; var ARect: TRect; AFlags: Integer); @@ -64,7 +64,7 @@ procedure JvXPFrame3D(const ACanvas: TCanvas; const ARect: TRect; procedure JvXPColorizeBitmap(ABitmap: TBitmap; const AColor: TColor); procedure JvXPSetDrawFlags(const AAlignment: TAlignment; const AWordWrap: Boolean; - var Flags: Integer); + out Flags: Integer); procedure JvXPPlaceText(const AParent: TControl; const ACanvas: TCanvas; const AText: TCaption; const AFont: TFont; const AEnabled, AShowAccelChar: Boolean; @@ -74,7 +74,7 @@ procedure JvXPPlaceText(const AParent: TControl; const ACanvas: TCanvas; implementation uses - IntfGraphics, fpCanvas, fpImage, fpImgCanv; + IntfGraphics, fpCanvas, fpImage; function JvXPMethodsEqual(const Method1, Method2: TMethod): Boolean; begin @@ -414,7 +414,7 @@ begin end; procedure JvXPSetDrawFlags(const AAlignment: TAlignment; const AWordWrap: Boolean; - var Flags: Integer); + out Flags: Integer); begin Flags := DT_END_ELLIPSIS; case AAlignment of