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

jvcllaz: Adjust layout of validators demo to Linux. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-25 14:09:05 +00:00
parent 4ad3ea737d
commit 16c71930a6
6 changed files with 134 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/jvcllaz/run/JvValidators/jvvalidators.pas
View File

@ -96,8 +96,8 @@ type
// get the number of registered base validator classes
class function BaseValidatorsCount: Integer;
// get info on a registered class
class procedure GetBaseValidatorInfo(Index: Integer; var DisplayName: string;
var ABaseValidatorClass: TJvBaseValidatorClass);
class procedure GetBaseValidatorInfo(Index: Integer; out DisplayName: string;
out ABaseValidatorClass: TJvBaseValidatorClass);
public
{$IFDEF JVVALIDATORS_SUPPORTS_DBCONTROLS}
@ -305,7 +305,7 @@ begin
Result := GlobalValidatorsList;
end;
procedure Debug(const Msg: string); overload;
procedure Debug(const {%H-}Msg: string); overload;
begin
{$IFDEF VALIDATORS_DEBUG}
DebugLn(Msg);
@ -379,7 +379,7 @@ begin
end;
class procedure TJvBaseValidator.GetBaseValidatorInfo(Index: Integer;
var DisplayName: string; var ABaseValidatorClass: TJvBaseValidatorClass);
out DisplayName: string; out ABaseValidatorClass: TJvBaseValidatorClass);
begin
if (Index < 0) or (Index >= ValidatorsList.Count) then
raise Exception.CreateFmt(RsEInvalidIndexd, [Index]);