Code:OLAP Radar - Historia wersji

Sebasoul o 11:53, 25 lis 2009

2009-11-25T11:53:46Z

2009-03-23T14:30:58Z

2009-03-23T11:10:19Z

2009-03-23T11:08:40Z

2009-03-23T07:09:17Z

2009-03-20T15:08:00Z

2009-03-20T15:07:00Z

2009-03-20T15:04:27Z

2009-03-20T14:59:46Z

2009-03-20T14:58:57Z

← poprzednia wersja		Wersja z 11:53, 25 lis 2009
Linia 207:		Linia 207:

	[[Kategoria: System]]		[[Kategoria: System]]
−	[[Kategoria: Programowanie]]	+	[[Kategoria: Programowanie\|OLAP Radar]]

@@ Linia 2: / Linia 2: @@
 == HierCube ==
-Dla komponentu '''HierCube'''.<br>
+Dla komponentu '''HierCube'''.
 . Rozwiązanie statyczne.
 W celu dodania własnej procedury wyliczeniowej należy wykonać następujące czynności:<br>
@@ Linia 17: / Linia 19: @@
    {...}
    MySubFunc1, MySubFunc2: TSubFunction;
 public
    {...}
 end;
 procedure TMainFRM.FormCreate(Sender: TObject);
 begin
-   ...
+   {...}
    { dodanie funkcji w menu i pobranie identyfikatora }
    MySubFunc1 := Grid.AddSubFunction('Przyrost w %').SubFunction;
@@ Linia 48: / Linia 57: @@
 end;
-function TMainFRM.MyColPercentCalculator2(Args: TSubFunctionCalculatorArgs; out Res: Double): boolean;
+function TMainFRM.MyColPercentCalculator2(Args: TSubFunctionCalculatorArgs; out Res: Double): Boolean;
 begin
    Result := MyColTrendCalc(Args, Res, 2);
@@ Linia 74: / Linia 83: @@
        Exit;
      if RowLabelNode = nil then Exit;
      Node := RowLabelNode;
      if Node.IsSubTotal then Exit;
      if (Node.Parent <> nil) and Node.Parent.IsSubTotal then Exit;
@@ Linia 104: / Linia 109: @@
 end;
 </source>
 == RadarCube ==
-Dla komponentu '''RadarCube'''.<br>
+Dla komponentu '''RadarCube'''.
 [[Kategoria: System]]
 [[Kategoria: Programowanie]]

@@ Linia 15: / Linia 15: @@
 TMainFRM = class(TForm)
 private
-   ...
+   {...}
    MySubFunc1, MySubFunc2: TSubFunction;
 public
-   ...
+   {...}
 end;
 procedure TMainFRM.FormCreate(Sender: TObject);
 begin
-   . . .
+   ...
-   {dodanie funkcji w menu i pobranie identyfikatora}
+   { dodanie funkcji w menu i pobranie identyfikatora }
    MySubFunc1 := Grid.AddSubFunction('Przyrost w %').SubFunction;
    MySubFunc2 := Grid.AddSubFunction('Stosunek wartości %').SubFunction;
-   {dodanie formatowania}
+   { dodanie formatowania }
    Grid.SummarySettings.FindFieldName('Quantity').FunctionCustom1.SubFunctions[Ord(MySubFunc1)].FormatString := '0.00"%"';
    Grid.SummarySettings.FindFieldName('Quantity').FunctionCustom1.SubFunctions[Ord(MySubFunc2)].FormatString := '0.00"%"';

@@ Linia 3: / Linia 3: @@
 == HierCube ==
 Dla komponentu '''HierCube'''.<br>
 W celu dodania własnej procedury wyliczeniowej należy wykonać następujące czynności:<br>
 * kliknąć w komponent '''Grid''' (THierCubeGrid);
@@ Linia 9: / Linia 10: @@
 * przechodzimy do zakładki '''Summary settings''', w drzewie wybieramy '''Distinct Count''';
 * wybieramy nowo założoną procedurę i w polu '''Format mask''' wybieramy właściwą maskę dla wyświetlanych wartości;
+procedure TMainFRM.FormCreate(Sender: TObject);
 <source lang=pascal>
-function CalcTrendByCol(Args: TSubFunctionCalculatorArgs; out Res: Double; TrendVer: Integer): Boolean;
+procedure TMainFRM.GridGetSubFunctionCalculator(Sender: TObject; SubFun: TSubFunction; var Calculator: TSubFunctionCalculator);
 var
    Node: TLabelNode;
@@ Linia 48: / Linia 89: @@
        if not Node.IsSubTotal then
        begin
-         PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex]; // RowTreeIndex
+         PrevCell := FunctionData[ColTreeIndex, Node.TreeIndex];
          if PrevCell.NotEmpty then
          begin
            Result := True;
            x0 := PrevCell.Data;
-           case TrendVer of
+           case TrendNo of
 : Res := (1 - x0/x1) * 100;
 : Res := x0/x1 * 100;

@@ Linia 1: / Linia 1: @@
-Procedury do [[HierCube]] i [[RadarCube]] =
+Procedury do [[HierCube]] i [[RadarCube]]
 == HierCube ==
 Dla komponentu '''HierCube'''.<br>

← poprzednia wersja	Wersja z 07:09, 23 mar 2009
(Brak różnic)

@@ Linia 2: / Linia 2: @@
 == HierCube ==
 Dla komponentu '''HierCube'''.<br>
-aljkha;lskdf
+W celu dodania własnej procedury wyliczeniowej należy wykonać następujące czynności:<br>
+* kliknąć w komponent Grid (THierCubeGrid);
-sdfasdgafsdga sfgsadfg <br>
+* we własności "FunctionDefs" wybrać zakładkę "Sub-function settings";
-asdfasfg<br>
+* kliknąć w ikonkę "Create custom sub-function" i w pole "Display name" wpisać nazwę wyswietlaną która pojawi się w menu;
-asdfasdf
+* przechodzimy do zakładki "Summary settings", w drzewie wybieramy "Distinct Count";
-* ala
+* wybieramy nowo założoną procedurę i w polu "Format mask" wybieramy właściwą maskę dla wyświetlanych wartości;
-* ola
-asdfsdgadfg
 <source lang=pascal>
@@ Linia 24: / Linia 22: @@
    with Args do
    begin
      CurrCell := FunctionData[ColTreeIndex, RowTreeIndex];
      if CurrCell.NotEmpty then