You've already forked lazarus-ccr
jvcllaz: Lowercase all remaining unit and package names.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6953 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -379,7 +379,7 @@ implementation
|
||||
uses
|
||||
Math, JvJVCLUtils;
|
||||
|
||||
{$R ..\..\resource\JvSimImages.res}
|
||||
{$R ..\..\resource\jvsimimages.res}
|
||||
|
||||
const
|
||||
LED_SIZE = 12;
|
@ -76,12 +76,5 @@ begin
|
||||
MemoText.SetFocus;
|
||||
end;
|
||||
|
||||
{$IFDEF UNITVERSIONING}
|
||||
initialization
|
||||
RegisterUnitVersion(HInstance, UnitVersioning);
|
||||
|
||||
finalization
|
||||
UnregisterUnitVersion(HInstance);
|
||||
{$ENDIF UNITVERSIONING}
|
||||
|
||||
end.
|
@ -180,7 +180,6 @@ type
|
||||
property PageCount: Integer read GetPageCount;
|
||||
end;
|
||||
|
||||
(******************** NOT CONVERTED *)
|
||||
TJvStandardPage = class(TJvCustomPage)
|
||||
published
|
||||
property BorderWidth;
|
||||
@ -273,7 +272,6 @@ type
|
||||
property ParentBackground default False;
|
||||
{$ENDIF JVCLThemesEnabled}
|
||||
end;
|
||||
(******************** NOT CONVERTED *)
|
||||
|
||||
implementation
|
||||
|
||||
@ -941,13 +939,12 @@ begin
|
||||
Pages[Index].Caption := NewCaption;
|
||||
end;
|
||||
|
||||
(************** *)
|
||||
|
||||
//===TJvPageList =============================================================
|
||||
|
||||
function TJvPageList.InternalGetPageClass: TJvCustomPageClass;
|
||||
begin
|
||||
Result := TJvStandardPage;
|
||||
end;
|
||||
(*******************)
|
||||
|
||||
end.
|
@ -192,9 +192,6 @@ type
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
{$IFDEF RTL230_UP}
|
||||
[ComponentPlatformsAttribute(pidWin32 or pidWin64)]
|
||||
{$ENDIF RTL230_UP}
|
||||
TJvPageListTreeView = class(TJvCustomPageListTreeView)
|
||||
published
|
||||
property AutoExpand;
|
||||
@ -284,9 +281,6 @@ type
|
||||
property Items;
|
||||
end;
|
||||
|
||||
{$IFDEF RTL230_UP}
|
||||
[ComponentPlatformsAttribute(pidWin32 or pidWin64)]
|
||||
{$ENDIF RTL230_UP}
|
||||
TJvSettingsTreeView = class(TJvCustomSettingsTreeView)
|
||||
published
|
||||
property AutoExpand;
|
||||
@ -380,15 +374,6 @@ type
|
||||
property Items;
|
||||
end;
|
||||
|
||||
{$IFDEF UNITVERSIONING}
|
||||
const
|
||||
UnitVersioning: TUnitVersionInfo = (
|
||||
RCSfile: '$URL$';
|
||||
Revision: '$Revision$';
|
||||
Date: '$Date$';
|
||||
LogPath: 'JVCL\run'
|
||||
);
|
||||
{$ENDIF UNITVERSIONING}
|
||||
|
||||
implementation
|
||||
|
@ -41,10 +41,8 @@ interface
|
||||
uses
|
||||
Classes, SysUtils,
|
||||
LCLProc, LCLType, LResources, LCLIntf, LMessages,
|
||||
//Messages,
|
||||
Forms, Controls, Graphics,
|
||||
Dialogs,
|
||||
//Windows,
|
||||
ExtCtrls, Contnrs;
|
||||
|
||||
type
|
||||
@ -266,15 +264,6 @@ type
|
||||
property OnSelectionChange: TNotifyEvent read GetOnSelectionChange write SetOnSelectionChange;
|
||||
end;
|
||||
|
||||
{$IFDEF UNITVERSIONING}
|
||||
const
|
||||
UnitVersioning: TUnitVersionInfo = (
|
||||
RCSfile: '$URL: https://jvcl.svn.sourceforge.net/svnroot/jvcl/trunk/jvcl/run/JvDesignSurface.pas $';
|
||||
Revision: '$Revision: 12931 $';
|
||||
Date: '$Date: 2010-11-28 15:36:50 +0200 (Κυρ, 28 Νοε 2010) $';
|
||||
LogPath: 'JVCL\run'
|
||||
);
|
||||
{$ENDIF UNITVERSIONING}
|
||||
|
||||
implementation
|
||||
|
||||
@ -1146,13 +1135,6 @@ begin
|
||||
Surface.OnSelectionChange := Value;
|
||||
end;
|
||||
|
||||
{$IFDEF UNITVERSIONING}
|
||||
initialization
|
||||
RegisterUnitVersion(HInstance, UnitVersioning);
|
||||
|
||||
finalization
|
||||
UnregisterUnitVersion(HInstance);
|
||||
{$ENDIF UNITVERSIONING}
|
||||
|
||||
end.
|
||||
|
@ -6,9 +6,6 @@ unit JvDesignUtils;
|
||||
|
||||
interface
|
||||
uses
|
||||
{$IFDEF UNITVERSIONING}
|
||||
JclUnitVersioning,
|
||||
{$ENDIF UNITVERSIONING}
|
||||
SysUtils, LCLProc, LCLType, LResources, LCLIntf, LMessages,
|
||||
Classes, Controls, Graphics, Forms, dialogs;
|
||||
|
||||
@ -58,7 +55,6 @@ type
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function DesignClientToParent(const APt: TPoint; AControl, AParent: TControl): TPoint;
|
||||
|
||||
function DesignMin(AA, AB: Integer): Integer;
|
||||
@ -86,15 +82,6 @@ procedure DesignSaveComponentToFile(AComp: TComponent; const AFileName: string);
|
||||
procedure DesignLoadComponentFromFile(AComp: TComponent;
|
||||
const AFileName: string; AOnError: TReaderError);
|
||||
|
||||
{$IFDEF UNITVERSIONING}
|
||||
const
|
||||
UnitVersioning: TUnitVersionInfo = (
|
||||
RCSfile: '$URL: https://jvcl.svn.sourceforge.net/svnroot/jvcl/trunk/jvcl/run/JvDesignUtils.pas $';
|
||||
Revision: '$Revision: 12535 $';
|
||||
Date: '$Date: 2009-10-02 12:36:42 +0300 (Παρ, 02 Οκτ 2009) $';
|
||||
LogPath: 'JVCL\run'
|
||||
);
|
||||
{$ENDIF UNITVERSIONING}
|
||||
|
||||
implementation
|
||||
|
||||
@ -429,14 +416,6 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{$IFDEF UNITVERSIONING}
|
||||
initialization
|
||||
RegisterUnitVersion(HInstance, UnitVersioning);
|
||||
|
||||
finalization
|
||||
UnregisterUnitVersion(HInstance);
|
||||
{$ENDIF UNITVERSIONING}
|
||||
|
||||
end.
|
||||
|
||||
|
@ -221,7 +221,7 @@ uses
|
||||
SysUtils,
|
||||
JvResources, JvJVCLUtils;
|
||||
|
||||
{$R ..\..\resource\JvErrorIndicator.res}
|
||||
{$R ..\..\resource\jverrorindicator.res}
|
||||
|
||||
const
|
||||
cDefBlinkCount = 5;
|
||||
|
Reference in New Issue
Block a user