nil, PChar (ExtractFilePath (ParamStr (0)) + spravkam ), nil, nil, SW_SHOW);// Виклик довідки; TFMain.N10Click (Sender: TObject); (handle, nil, PChar (ExtractFilePath (ParamStr (0)) + spravkam ), nil, nil, SW_SHOW);// Виклик довідки;.
ФОРМА 2Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, StdCtrls, Buttons, ComCtrls, ComObj, Printers, shellapi;=class (TForm): TLabel ;: TStringGrid ;: TGroupBox ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TStatusBar ;: TSaveDialog ;: TPrintDialog; FormCreate (Sender: TObject); bbExitClick (Sender: TObject); bbChartClick (Sender: TObject); bbHTMLClick (Sender: TObject); bbWordClick (Sender: TObject); bbExcelClick (Sender: TObject); bbPrintClick (Sender: TObject); AutoSizeGridColumn (Grid: TStringGrid; Column: Integer); bbHelpClick (Sender: TObject );
{Private declarations}
{Public declarations} ;: TFCalc; Unit3;
{$ R * .dfm} TFCalc.AutoSizeGridColumn (Grid: TStringGrid; Column: Integer) ;, Temp, Max: Integer;:=0; i:=0 to Grid.RowCount do:= Grid.Canvas.TextWidth (Grid.Cells [Column, i]); Temp gt; Max then:=Temp ;;. ColWidths [Column]:=Max + 3 + Grid.GridLineWidth ;; TFCalc.FormCreate (Sender: TObject) ;. Caption:= Зберегти в # 13 MS Excel raquo ;;. Caption := Зберегти в # 13 MS Word raquo ;;. Caption:= Зберегти # 13 в HTML raquo ;;. Caption:= Роздрукувати # 13 таблицю raquo ;;. Caption:= Графіки raquo ;;. Caption:= Довідка raquo ;;. Caption:= Закрити # 13 вікно raquo ;; TFCalc.bbExitClick (Sender: TObject) ;; TFCalc.bbChartClick (Sender: TObject) ;. ShowModal ;; TFCalc. bbHTMLClick (Sender: TObject) ;: TextFile ;, j: Integer; .DefaultExt:= html raquo ;;. Filter:= HTML-файл (* .html) | * .html raquo ;;. FileName:= Результати розрахунків raquo ;; SaveDlg.Execute then (HTMLFile, SaveDlg.FileName); (HTMLFile); (HTMLFile, lt; html gt; ); (HTMLFile, lt; head gt; ); (HTMLFile, laquo ; lt; meta http-equiv= Content-Type content="text/html; +
charset=windows - 1251 gt; ); (HTMLFile, lt; title gt; Результати розрахунків lt;/title gt; ); (HTMLFile, lt;/head gt ; ); (HTMLFile, lt; body gt; ); (HTMLFile, lt; center gt; lt; font size= 6" gt; lt; b gt; + Label1.Caption +
lt;/b gt; lt;/font gt; lt;/center gt; ); (HTMLFile, lt; table border=1 cellspacing=0 cellspading=0 gt; ) ; i:=0 to sgRes.RowCount do (HTMLFile, lt; tr gt; ); j:=0 to sgRes.ColCount do (j=0) or (i=0) then (HTMLFile, lt ; td gt; lt; b gt; lt; i gt; + .Cells [j, i] + lt;/i gt; lt;/b gt; ) (HTMLFile, lt; td gt; + sgRes.Cells [j, i]) ;; (HTMLFile, lt;/table gt; ); (HTMLFile, lt;/body gt; ); (HTMLFile, lt;/html gt; ); (HTMLFile) ;;; TFCalc.bbWordClick (Sender: TObject) ;, NewDoc, WordTable: OLEVariant ;, iCols, iGridRows, jGridCols: Integer; .DefaultExt:= doc raquo ;;. Filter:= Документ MS Word (* .doc) | * .doc raquo ;;. FileName:= Результати розрахунків raquo ;; not SaveDlg.Execute then;:=CreateOleObject ( Word.Application ) ;;:=WordApp.Documents.Add ;: =sgRes.ColCount;:=sgRes.RowCount;:=NewDoc.Tables.Add (WordApp.Selection.Range, iRows, iCols) ;. Range.Font.Size:=8; iGridRows:=1 to iRows dojGridCols:=1 to iCols do.Cell (iGridRows, jGridCols) .Range.Text: =. Cells [jGridCols - 1, iGridRows - 1] ;. ActiveDocument.SaveAs (SaveDlg.FileName) ;. Quit;:=Unassigned;:=Unassigned ;: =Unassigned ;; TFCalc.bbExcelClick (Sender: TObject) ;, Sheet, Column: Variant ;, j, m, n: Integer; .DefaultExt:= xls raquo ;;. Filter:= Документ MS Excel (*. xls) | * .xls raquo ;;. FileName:= Результати розрахунків raquo ;; not SaveDlg.Execute then;:=CreateOleObject ( Excel.Application ) ;;. WorkBooks.Add (- 4167) ;. WorkBooks [1 ] .WorkSheets [1] .Name:= Результати розрахунків raquo ;;:=XLApp.WorkBooks [1] .WorkSheets [ Результати розрахунків ]. Columns;:=sgRes.ColCount;:=sgRes.RowCount; i: =1 to m + 1 do:=XLApp.WorkBooks [1] .WorkSheets [ Результати розрахунків ]. Rows; .Columns [1] .Font.Bold:=True; .Rows [1] .Font.Bold: =True; .Rows [1] .Font.Italic:=True; .Rows [2] .Font.Bold:=True;:=XLApp.WorkBooks [1] .WorkSheets [ Результати розрахунків ] ;. Enabled: =False; i:=0 to n doj:=0 to m do.Cells [j + 2, i + 1]:= + SgRes.Cells [i, j] ;. Enabled:=True; .Cells [1, 2]:=Label1.Caption; .ActiveWorkBook.SaveAs (SaveDlg.FileName) ;. Quit; TFCalc.bbPrintClick (Sender: TObject) ;, X2: Integer ;, Y2: Integer ;: Integer ;: Integer ;: TRect ;: TPrinterOrientation;:=Printer.Orientation; .Orientation:=poLandScape; PrintDialog1.Execute then.Title:=Label1.Caption; .BeginDoc;.Canvas.Pen.Color:=0; .Canvas.Font.Name:= Times New Roman raquo ;;. Canvas.Font.Size:=12; .Canvas.Font.Style:=[fsBold, fsUnderline] ;. Canvas.TextOut (0, 100, Printer.Title); F:=1 to sgRes.ColCount - 1 do:=0; TmpI:=1 to (F - 1) do:=X1 + 5 * (sgRes.ColWidth...
