paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 08:57:47 +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

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

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