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

jvcllaz: Lowercase all remaining unit and package names.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6953 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-26 22:58:36 +00:00
parent ad9b3eb976
commit 997c331dda
82 changed files with 142 additions and 201 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
components/jvcllaz/run/JvRuntimeDesign/JvDesignClip.pas → components/jvcllaz/run/JvRuntimeDesign/jvdesignclip.pas
View File

0
components/jvcllaz/run/JvRuntimeDesign/JvDesignImp.pas → components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas
View File

18
components/jvcllaz/run/JvRuntimeDesign/JvDesignSurface.pas → components/jvcllaz/run/JvRuntimeDesign/jvdesignsurface.pas
View File

@ -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.

21
components/jvcllaz/run/JvRuntimeDesign/JvDesignUtils.pas → components/jvcllaz/run/JvRuntimeDesign/jvdesignutils.pas
View File

@ -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.