jvcllaz: Lowercase unit and package file names of JvValidators packages.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6940 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2019-05-25 13:37:10 +00:00
parent d048f998c6
commit 4ad3ea737d
9 changed files with 14 additions and 17 deletions

View File

@ -82,9 +82,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CustomOptions Value="-dBorland -dVer150 -dDelphi7 -dCompiler6_Up -dPUREPASCAL"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">

View File

@ -19,20 +19,20 @@
<Version Major="1" Release="4"/>
<Files Count="3">
<Item1>
<Filename Value="..\design\JvValidators\JvValidatorReg.pp"/>
<Filename Value="..\design\JvValidators\jvvalidatorreg.pp"/>
<HasRegisterProc Value="True"/>
<UnitName Value="JvValidatorReg"/>
</Item1>
<Item2>
<Filename Value="..\design\JvValidators\JvValidatorsEditorForm.lfm"/>
<Filename Value="..\design\JvValidators\jvvalidatorseditorform.lfm"/>
<Type Value="LFM"/>
</Item2>
<Item3>
<Filename Value="..\design\JvValidators\JvValidatorsEditorForm.pas"/>
<Filename Value="..\design\JvValidators\jvvalidatorseditorform.pas"/>
<UnitName Value="JvValidatorsEditorForm"/>
</Item3>
</Files>
<RequiredPkgs Count="4">
<RequiredPkgs Count="3">
<Item1>
<PackageName Value="JvValidatorsLazR"/>
</Item1>
@ -42,9 +42,6 @@
<Item3>
<PackageName Value="IDEIntf"/>
</Item3>
<Item4>
<PackageName Value="FCL"/>
</Item4>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>

View File

@ -17,21 +17,18 @@
<Version Major="1" Release="4"/>
<Files Count="2">
<Item1>
<Filename Value="..\run\JvValidators\JvErrorIndicator.pas"/>
<Filename Value="..\run\JvValidators\jverrorindicator.pas"/>
<UnitName Value="JvErrorIndicator"/>
</Item1>
<Item2>
<Filename Value="..\run\JvValidators\JvValidators.pas"/>
<Filename Value="..\run\JvValidators\jvvalidators.pas"/>
<UnitName Value="JvValidators"/>
</Item2>
</Files>
<RequiredPkgs Count="2">
<RequiredPkgs Count="1">
<Item1>
<PackageName Value="JvCoreLazR"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>

View File

@ -25,6 +25,8 @@ Known Issues:
unit JvValidators;
{.$DEFINE VALIDATORS_DEBUG}
{$mode objfpc}{$H+}
// NB: this is here so a user can disable DB support if he wants to
@ -277,6 +279,7 @@ const
implementation
uses
LazLogger,
{$IFDEF JVVALIDATORS_SUPPORTS_DBCONTROLS}
DBCtrls,
{$ENDIF JVVALIDATORS_SUPPORTS_DBCONTROLS}
@ -304,7 +307,10 @@ end;
procedure Debug(const Msg: string); overload;
begin
// Application.MessageBox(PChar(Msg),PChar('Debug'),MB_OK or MB_TASKMODAL)
{$IFDEF VALIDATORS_DEBUG}
DebugLn(Msg);
//Application.MessageBox(PChar(Msg),PChar('Debug'),MB_OK or MB_TASKMODAL)
{$ENDIF}
end;
procedure Debug(const Msg: string; const Fmt: array of const); overload;