Hej Shafh
Min angivelse af hjælpefilen behøvede jeg nu ingen UP for...
M.h.t. komponenter (jeg går udfra at du mener regnearkskomp.) findes der et par på torry.net. Jeg er dog bange for, at de ikke er freeware.
F1Book så er den faktisk rimelig stærk, og kan mange ting. Hjælpen er dog ikke specielt velskrevet, så den er ikke så tilgængelig.
Her er et lille eks. på runtime prog. af den.
(forudsætter Form m/ F1Book (A1:H16 synlig) samt 2 buttons)
procedure TForm1.Button1Click(Sender: TObject);
var
I, CId: Integer;
begin
F1Book1.SheetName[1] := 'Test';
F1Book1.TextRC[2, 1] := 'Måned';
F1Book1.TextRC[2, 2] := 'Antal';
F1Book1.TextRC[2, 3] := 'Pct';
Randomize;
for I := 1 to 12 do
begin
F1Book1.TextRC[I+2, 1] := IntToStr(I);
F1Book1.NumberRC[I+2, 2] := Random(90) + 10;
//NB I formler adskilles parametre af ";" og ikke "," som angivet i doku.
F1Book1.FormulaRC[I+2, 3] := 'ROUND(B'+IntToStr(I+2)+'*100/B15; 1)';
end;
F1Book1.TextRC[15, 1] := 'Ialt';
F1Book1.FormulaRC[15, 2] := 'SUM(B3:B14)';
F1Book1.SetSelection(3, 2, 14, 2);
F1Book1.ObjNew(F1ObjChart, 4, 1, 8, 15, CId);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
F1Book1.PrintArea := 'A2:H15';
F1Book1.FilePageSetupDlg;
F1Book1.FilePrint(True);
end;
et andet eks. er angivet under
http://www.udvikleren.dk/thread.php?techid=2&f=2&t=1930Normalt har jeg dog anvendt den ved at højreklikke på komp. og vælge "Workbook Designer". Her er det nemt at designe en skabelon til runtime brug.
NB! I hjælpen til F1Book er parameter-adskillelsestegnet for FORMLER angivet som komma. Her skal man bruge semikolon i st. for.
Eks. DATE(2004; 11; 1)
mvh
hsv
[Redigeret d. 23/11-04 11:38:00 af HSV]