pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Avoid using Windows-specific units. Some cleanup.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6259 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-03-19 08:47:50 +00:00
parent bcc69621fb
commit 9d3f64653b
21 changed files with 44 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/jvcllaz/run/JvXPCtrls/JvXPBar.pas
View File

@ -51,8 +51,8 @@ unit JvXPBar;
interface
uses
ActnList, Classes, Controls, Graphics, ExtCtrls, Forms, ImgList,
LCLIntf, LCLProc, LCLType, LMessages, LResources, SysUtils,
LCLIntf, LCLProc, LCLType, LMessages, LResources,
SysUtils, Classes, Controls, Graphics, ExtCtrls, Forms, ImgList, ActnList,
JvXPCore, JvXPCoreUtils;
type
@ -224,7 +224,7 @@ type
function GetItem(Index: Integer): TJvXPBarItem;
procedure SetItem(Index: Integer; Value: TJvXPBarItem);
protected
procedure Update(Item: TCollectionItem); override;
procedure Update({%H-}Item: TCollectionItem); override;
function GetOwner: TPersistent; override;
class function GetItemClass: TJvXPBarItemClass; virtual;
public
@ -557,6 +557,8 @@ uses
resourcestring
RsUntitled = 'untitled';
const
RsUntitledFmt = '(%s %d)';
RsHintShortcutFmt = '%s (%s)';
@ -1442,14 +1444,14 @@ begin
FTopSpace := 5;
FFont := TFont.Create;
FFont.Color := dxColor_FontColorXP; //$00840000;
FFont.Color := dxColor_FontColorXP; // $00840000;
FFont.Size := 0; //8;
FFont.OnChange := @FontChange;
FHeaderHeight := 28;
FHeaderRounded := True;
FGradientWidth := 0;
FHeaderFont := TFont.Create;
FHeaderFont.Color := dxColor_HeaderFontColorXP; //$00840000;
FHeaderFont.Color := dxColor_HeaderFontColorXP; // $00840000;
FHeaderFont.Size := 0; //8;
FHeaderFont.Style := [fsBold];
FHeaderFont.OnChange := @FontChange;

3
components/jvcllaz/run/JvXPCtrls/JvXPContainer.pas
View File

@ -33,7 +33,8 @@ unit JvXPContainer;
interface
uses
TypInfo, Classes, LCLIntf, LCLProc, LCLType, Controls, Graphics, StdCtrls, ExtCtrls,
LCLIntf, LCLProc, LCLType,
TypInfo, Classes, Controls, Graphics, StdCtrls, ExtCtrls,
JvXPCore, JvXPCoreUtils;
type

5
components/jvcllaz/run/JvXPCtrls/JvXPCoreUtils.pas
View File

@ -34,8 +34,9 @@ unit JvXPCoreUtils;
interface
uses
Classes, Controls, Graphics, LCLIntf, LCLType, SysUtils,
TypInfo, JvXPCore;
LCLIntf, LCLType, SysUtils,
Classes, Controls, Graphics, TypInfo,
JvXPCore;
function JvXPMethodsEqual(const Method1, Method2: TMethod): Boolean;