paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 14:56:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, update function descriptions, part of issue #14133

Browse Source 
git-svn-id: trunk@20853 -
This commit is contained in:
jesus 2009-07-13 22:39:30 +00:00
parent 67871b7f77
commit dc662f18d4
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/lazreport/source/lr_class.pas
View File

@ -1040,6 +1040,7 @@ type
var val: Variant): Boolean; var val: Variant): Boolean;
procedure DoFunction(FNo: Integer; p1, p2, p3: Variant; var val: Variant); procedure DoFunction(FNo: Integer; p1, p2, p3: Variant; var val: Variant);
virtual; abstract; virtual; abstract;
procedure UpdateDescriptions; virtual;
procedure AddFunctionDesc(const funName, funGroup, funDescription:string); procedure AddFunctionDesc(const funName, funGroup, funDescription:string);
end; end;
@ -1152,9 +1153,13 @@ uses
{$IFDEF JPEG}, JPEG {$ENDIF}; {$IFDEF JPEG}, JPEG {$ENDIF};
type type
{ TfrStdFunctionLibrary }
TfrStdFunctionLibrary = class(TfrFunctionLibrary) TfrStdFunctionLibrary = class(TfrFunctionLibrary)
public public
constructor Create; override; constructor Create; override;
procedure UpdateDescriptions; override;
procedure DoFunction(FNo: Integer; p1, p2, p3: Variant; var val: Variant); override; procedure DoFunction(FNo: Integer; p1, p2, p3: Variant; var val: Variant); override;
end; end;
@ -1235,6 +1240,14 @@ begin
end; end;
{$ENDIF} {$ENDIF}
procedure UpdateLibraryDescriptions;
var
i: integer;
begin
for i:=0 to frFunctionsCount-1 do
frFunctions[i].FunctionLibrary.UpdateDescriptions;
end;
procedure UpdateObjectStringResources; procedure UpdateObjectStringResources;
begin begin
frCharset := StrToInt(sCharset); frCharset := StrToInt(sCharset);
@ -1286,6 +1299,8 @@ begin
frTimeFormats[1] :=sTimeFormat2; frTimeFormats[1] :=sTimeFormat2;
frTimeFormats[2] :=sTimeFormat3; frTimeFormats[2] :=sTimeFormat3;
frTimeFormats[3] :=sTimeFormat4; frTimeFormats[3] :=sTimeFormat4;
UpdateLibraryDescriptions;
end; end;
{----------------------------------------------------------------------------} {----------------------------------------------------------------------------}
@ -8948,6 +8963,10 @@ begin
end; end;
end; end;
procedure TfrFunctionLibrary.UpdateDescriptions;
begin
end;
procedure TfrFunctionLibrary.AddFunctionDesc(const funName, funGroup, procedure TfrFunctionLibrary.AddFunctionDesc(const funName, funGroup,
funDescription: string); funDescription: string);
var var
@ -8994,7 +9013,10 @@ begin
Add('UPPERCASE'); {21} Add('UPPERCASE'); {21}
Add('YEAROF'); {22} Add('YEAROF'); {22}
end; end;
end;
procedure TfrStdFunctionLibrary.UpdateDescriptions;
begin
AddFunctionDesc('AVG', SAggregateCategory, SDescriptionAVG); AddFunctionDesc('AVG', SAggregateCategory, SDescriptionAVG);
AddFunctionDesc('COUNT', SAggregateCategory, SDescriptionCOUNT); AddFunctionDesc('COUNT', SAggregateCategory, SDescriptionCOUNT);
AddFunctionDesc('MAX', SAggregateCategory, SDescriptionMAX); AddFunctionDesc('MAX', SAggregateCategory, SDescriptionMAX);