home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / PASCAL / OOGRID / GLTVR_US.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-06-01  |  19.1 KB  |  681 lines
  1. {********************************************************************
  2.  
  3.   OOGrid Library(TM) for Borland/Turbo Pascal (Real Mode/TV)
  4.   Copyright (C) 1994, 1995 by Arturo J. Monge
  5.   Portions Copyright (C) 1989,1990 Borland International, Inc.
  6.  
  7.   OOGrid Library(TM) Resources Unit:
  8.     Implements the functions needed to create the resources used
  9.     by the TSpreadSheet object.
  10.  
  11.   Copyright (C) 1994, 1995 by Arturo J. Monge
  12.  
  13.   Last Modification : February 3rd, 1995
  14.  
  15. *********************************************************************}
  16.  
  17. unit GLTVR_US;
  18.  
  19. {****************************************************************************}
  20.                                  interface
  21. {****************************************************************************}
  22.  
  23. uses Dos, Objects;
  24.  
  25. { Register procedures that need to be called before using this unit:
  26.  
  27.     RegisterDialogs
  28.     RegisterViews
  29.     RegisterGLViews ( registers the inputline and the scrollbar objects )
  30.     RegisterStdDlg
  31. }
  32.  
  33. { This unit uses the GLEquate unit to get command and help context
  34.   values. If you need to modify any of those values, modify the
  35.   GLEquate unit }
  36.  
  37. procedure CreateOOGLDialogs(ResourceFile: PResourceFile);
  38. { Add to the resource file each of the dialogs used by TSpreadsheet.
  39.   Do not change the keywords used, since the TSpreadSheet object uses
  40.   these keywords to retrieve the dialogs }
  41.  
  42. procedure CreateOOGLStrings(ResourceFile: PResourceFile);
  43. { Add to the resource file the string list used by TSpreadSheet. }
  44.  
  45. {****************************************************************************}
  46.                                implementation
  47. {****************************************************************************}
  48.  
  49. uses Dialogs, Views, StdDlg, GLSupprt, GLViews, GLEquate, GLTSheet;
  50.  
  51. function FormatDialog : PDialog;
  52. var
  53.   Dlg : PDialog;
  54.   R : TRect;
  55.   Control, HScroll : PView;
  56. Begin
  57. R.Assign(16,3,63,19);
  58. New(Dlg, Init(R, 'Format cells...'));
  59. Dlg^.Options := $0343;
  60.  
  61. R.Assign(3,3,25,6);
  62. Control := New(PRadiobuttons, Init(R,
  63.   NewSItem('~L~eft',
  64.   NewSItem('~C~enter',
  65.   NewSItem('~R~ight',Nil)))));
  66. Control^.HelpCtx := hcJustLeft;
  67. Dlg^.Insert(Control);
  68.  
  69.   R.Assign(2,2,17,3);
  70.   Dlg^.Insert(New(PLabel, Init(R, 'Justification:', Control)));
  71.  
  72. R.Assign(23,7,27,8);
  73. Control := New(PInputLine, Init(R, 1));
  74. Control^.HelpCtx := hcDecimalPlaces;
  75. Dlg^.Insert(Control);
  76.  
  77.   R.Assign(27,7,30,8);
  78.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiDecimalPlaces)));
  79.  
  80.   R.Assign(2,7,18,8);
  81.   Dlg^.Insert(New(PLabel, Init(R, 'D~e~cimal places:', Control)));
  82.  
  83. R.Assign(23,9,27,10);
  84. Control := New(PInputLine, Init(R, 1));
  85. Control^.HelpCtx := hcCurrencyChar;
  86. Dlg^.Insert(Control);
  87.  
  88.   R.Assign(27,9,30,10);
  89.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiCurrencyCharacter)));
  90.  
  91.   R.Assign(2,9,22,10);
  92.   Dlg^.Insert(New(PLabel, Init(R, 'C~u~rrency character:', Control)));
  93.  
  94. R.Assign(2,12,30,14);
  95. Control := New(PCheckboxes, Init(R,
  96.   NewSItem('~C~urrency format',
  97.   NewSItem('~P~ut commas in numbers',Nil))));
  98. Control^.HelpCtx := hcCurrencyFormat;
  99. Dlg^.Insert(Control);
  100.  
  101.   R.Assign(2,11,18,12);
  102.   Dlg^.Insert(New(PLabel, Init(R, 'Numbers format:', Control)));
  103.  
  104. R.Assign(33,3,45,5);
  105. Control := New(PButton, Init(R, '~O~k', cmOK, bfDefault));
  106. Control^.HelpCtx := hcOk;
  107. Dlg^.Insert(Control);
  108.  
  109. R.Assign(33,9,45,11);
  110. Control := New(PButton, Init(R, 'Cancel', cmCancel, bfNormal));
  111. Control^.HelpCtx := hcCancel;
  112. Dlg^.Insert(Control);
  113.  
  114. R.Assign(33,12,45,14);
  115. Control := New(PButton, Init(R, 'Help', cmHelp, bfNormal));
  116. Dlg^.Insert(Control);
  117.  
  118. Dlg^.SelectNext(False);
  119. FormatDialog := Dlg;
  120. end;
  121.  
  122.  
  123. function PasteDialog : PDialog;
  124. var
  125.   Dlg : PDialog;
  126.   R : TRect;
  127.   Control, HScroll : PView;
  128. Begin
  129. R.Assign(18,7,62,16);
  130. New(Dlg, Init(R, 'Copy formulas...'));
  131. Dlg^.Options := $0343;
  132.  
  133. R.Assign(3,3,39,5);
  134. Control := New(PCheckboxes, Init(R,
  135.   NewSItem('Copy ~c~olumns literally',
  136.   NewSItem('Copy ~r~ows literally',Nil))));
  137. Control^.HelpCtx := hcCopyColLiteral;
  138. Dlg^.Insert(Control);
  139.  
  140.   R.Assign(2,2,17,3);
  141.   Dlg^.Insert(New(PLabel, Init(R, 'Copy formulas:', Control)));
  142.  
  143. R.Assign(2,6,14,8);
  144. Control := New(PButton, Init(R, '~O~k', cmOk, bfDefault));
  145. Control^.HelpCtx := hcOk;
  146. Dlg^.Insert(Control);
  147.  
  148. R.Assign(16,6,28,8);
  149. Control := New(PButton, Init(R, 'Cancel', cmCancel, bfNormal));
  150. Control^.HelpCtx := hcCancel;
  151. Dlg^.Insert(Control);
  152.  
  153. R.Assign(30,6,42,8);
  154. Control := New(PButton, Init(R, 'Help', cmHelp, bfNormal));
  155. Dlg^.Insert(Control);
  156.  
  157. Dlg^.SelectNext(False);
  158. PasteDialog := Dlg;
  159. end;
  160.  
  161.  
  162. function GoToDialog : PDialog;
  163. var
  164.   Dlg : PDialog;
  165.   R : TRect;
  166.   Control, HScroll : PView;
  167. Begin
  168. R.Assign(18,8,62,15);
  169. New(Dlg, Init(R, 'Go to...'));
  170. Dlg^.Options := $0343;
  171.  
  172. R.Assign(14,2,39,3);
  173. Control := New(PInputLine, Init(R, 10));
  174. Control^.HelpCtx := hcGoToCellInput;
  175. Dlg^.Insert(Control);
  176.  
  177.   R.Assign(39,2,42,3);
  178.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiGoToCell)));
  179.  
  180.   R.Assign(2,2,12,3);
  181.   Dlg^.Insert(New(PLabel, Init(R, 'New cell:', Control)));
  182.  
  183. R.Assign(2,4,14,6);
  184. Control := New(PButton, Init(R, '~O~k', cmOK, bfDefault));
  185. Control^.HelpCtx := hcOk;
  186. Dlg^.Insert(Control);
  187.  
  188. R.Assign(16,4,28,6);
  189. Control := New(PButton, Init(R, 'Cancel', cmCancel, bfNormal));
  190. Control^.HelpCtx := hcCancel;
  191. Dlg^.Insert(Control);
  192.  
  193. R.Assign(30,4,42,6);
  194. Control := New(PButton, Init(R, 'Help', cmHelp, bfNormal));
  195. Dlg^.Insert(Control);
  196.  
  197. Dlg^.SelectNext(False);
  198. GoToDialog := Dlg;
  199. end;
  200.  
  201.  
  202. function ChangeHeaderDialog : PDialog;
  203. var
  204.   Dlg : PDialog;
  205.   R : TRect;
  206.   Control, HScroll : PView;
  207. Begin
  208. R.Assign(18,7,60,15);
  209. New(Dlg, Init(R, 'New header...'));
  210.  
  211. R.Assign(3,3,37,4);
  212. Control := New(PInputLine, Init(R, 80));
  213. Control^.HelpCtx := hcChangeHeaderInput;
  214. Dlg^.Insert(Control);
  215.  
  216.   R.Assign(37,3,40,4);
  217.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiNewHeader)));
  218.  
  219.   R.Assign(2,2,21,3);
  220.   Dlg^.Insert(New(PLabel, Init(R, '~N~ew column header:', Control)));
  221.  
  222. R.Assign(2,5,14,7);
  223. Control := New(PButton, Init(R, 'O~k~', cmOk, bfDefault));
  224. Control^.HelpCtx := hcOk;
  225. Dlg^.Insert(Control);
  226.  
  227. R.Assign(15,5,27,7);
  228. Control := New(PButton, Init(R, 'Cancel', cmCancel, bfNormal));
  229. Control^.HelpCtx := hcCancel;
  230. Dlg^.Insert(Control);
  231.  
  232. R.Assign(28,5,40,7);
  233. Control := New(PButton, Init(R, 'Help', cmHelp, bfNormal));
  234. Dlg^.Insert(Control);
  235.  
  236. Dlg^.SelectNext(False);
  237. ChangeHeaderDialog := Dlg;
  238. end;
  239.  
  240.  
  241. function PrintDialog : PDialog;
  242. var
  243.   Dlg : PDialog;
  244.   R : TRect;
  245.   Control, HScroll : PView;
  246. Begin
  247. R.Assign(2,3,78,20);
  248. New(Dlg, Init(R, 'Print...'));
  249. Dlg^.Options := $0343;
  250.  
  251. R.Assign(2,3,22,5);
  252. Control := New(PRadiobuttons, Init(R,
  253.   NewSItem('P~r~inter',
  254.   NewSItem('F~i~le',Nil))));
  255. Control^.HelpCtx := hcPrintToPrinter;
  256. Dlg^.Insert(Control);
  257.  
  258.   R.Assign(1,2,11,3);
  259.   Dlg^.Insert(New(PLabel, Init(R, 'Print to:', Control)));
  260.  
  261. R.Assign(24,3,44,5);
  262. Control := New(PRadiobuttons, Init(R,
  263.   NewSItem('Nor~m~al',
  264.   NewSItem('~C~ondensed',Nil))));
  265. Control^.HelpCtx := hcPrintNormal;
  266. Dlg^.Insert(Control);
  267.  
  268.   R.Assign(23,2,35,3);
  269.   Dlg^.Insert(New(PLabel, Init(R, 'Print size:', Control)));
  270.  
  271. R.Assign(2,7,22,10);
  272. Control := New(PRadiobuttons, Init(R,
  273.   NewSItem('~D~on''t print',
  274.   NewSItem('Le~f~t pages',
  275.   NewSItem('~A~lways',Nil)))));
  276. Control^.HelpCtx := hcPrintRowsNo;
  277. Dlg^.Insert(Control);
  278.  
  279.   R.Assign(1,6,13,7);
  280.   Dlg^.Insert(New(PLabel, Init(R, 'Print rows:', Control)));
  281.  
  282. R.Assign(24,7,44,10);
  283. Control := New(PRadiobuttons, Init(R,
  284.   NewSItem('Do~n~''t print',
  285.   NewSItem('To~p~ pages',
  286.   NewSItem('Al~w~ays',Nil)))));
  287. Control^.HelpCtx := hcPrintColsNo;
  288. Dlg^.Insert(Control);
  289.  
  290.   R.Assign(23,6,38,7);
  291.   Dlg^.Insert(New(PLabel, Init(R, 'Print columns:', Control)));
  292.  
  293. R.Assign(17,12,22,13);
  294. Control := New(PInputLine, Init(R, 3));
  295. Control^.HelpCtx := hcTopMargin;
  296. Dlg^.Insert(Control);
  297.  
  298.   R.Assign(2,12,14,13);
  299.   Dlg^.Insert(New(PLabel, Init(R, '~T~op margin:', Control)));
  300.  
  301. R.Assign(17,14,22,15);
  302. Control := New(PInputLine, Init(R, 3));
  303. Control^.HelpCtx := hcBottomMargin;
  304. Dlg^.Insert(Control);
  305.  
  306.   R.Assign(2,14,17,15);
  307.   Dlg^.Insert(New(PLabel, Init(R, '~B~ottom margin:', Control)));
  308.  
  309. R.Assign(38,12,43,13);
  310. Control := New(PInputLine, Init(R, 3));
  311. Control^.HelpCtx := hcLeftMargin;
  312. Dlg^.Insert(Control);
  313.  
  314.   R.Assign(24,12,37,13);
  315.   Dlg^.Insert(New(PLabel, Init(R, 'L~e~ft margin:', Control)));
  316.  
  317. R.Assign(38,14,43,15);
  318. Control := New(PInputLine, Init(R, 3));
  319. Control^.HelpCtx := hcRightMargin;
  320. Dlg^.Insert(Control);
  321.  
  322.   R.Assign(24,14,38,15);
  323.   Dlg^.Insert(New(PLabel, Init(R, 'Ri~g~ht margin:', Control)));
  324.  
  325. R.Assign(45,3,68,5);
  326. Control := New(PCheckboxes, Init(R,
  327.   NewSItem('Row o~u~tline',
  328.   NewSItem('Bo~l~d borders',Nil))));
  329. Control^.HelpCtx := hcLineOutline;
  330. Dlg^.Insert(Control);
  331.  
  332.   R.Assign(45,2,53,3);
  333.   Dlg^.Insert(New(PLabel, Init(R, 'Others:', Control)));
  334.  
  335. R.Assign(68,7,73,8);
  336. Control := New(PInputLine, Init(R, 3));
  337. Control^.HelpCtx := hcPageRows;
  338. Dlg^.Insert(Control);
  339.  
  340.   R.Assign(46,7,60,8);
  341.   Dlg^.Insert(New(PLabel, Init(R, '~1~. Page rows:', Control)));
  342.  
  343. R.Assign(68,8,73,9);
  344. Control := New(PInputLine, Init(R, 3));
  345. Control^.HelpCtx := hcNormalCols;
  346. Dlg^.Insert(Control);
  347.  
  348.   R.Assign(46,8,65,9);
  349.   Dlg^.Insert(New(PLabel, Init(R, '~2~. Normal columns:', Control)));
  350.  
  351. R.Assign(68,9,73,10);
  352. Control := New(PInputLine, Init(R, 3));
  353. Control^.HelpCtx := hcCondensedCols;
  354. Dlg^.Insert(Control);
  355.  
  356.   R.Assign(46,9,68,10);
  357.   Dlg^.Insert(New(PLabel, Init(R, '~3~. Condensed columns:', Control)));
  358.  
  359. R.Assign(47,12,59,14);
  360. Control := New(PButton, Init(R, '~O~k', cmOk, bfDefault));
  361. Control^.HelpCtx := hcOk;
  362. Dlg^.Insert(Control);
  363.  
  364. R.Assign(62,12,74,14);
  365. Control := New(PButton, Init(R, 'Cancel', cmCancel, bfNormal));
  366. Control^.HelpCtx := hcCancel;
  367. Dlg^.Insert(Control);
  368.  
  369. R.Assign(62,14,74,16);
  370. Control := New(PButton, Init(R, 'Help', cmHelp, bfNormal));
  371. Dlg^.Insert(Control);
  372.  
  373. R.Assign(2,11,10,12);
  374. Control := New(PStaticText, Init(R, 'Margins:'));
  375. Dlg^.Insert(Control);
  376.  
  377. R.Assign(46,6,57,7);
  378. Control := New(PStaticText, Init(R, 'Page setup:'));
  379. Dlg^.Insert(Control);
  380.  
  381. Dlg^.SelectNext(False);
  382. PrintDialog := Dlg;
  383. end;
  384.  
  385.  
  386. function SortDialog : PDialog;
  387. var
  388.   Dlg : PDialog;
  389.   R : TRect;
  390.   Control, HScroll : PView;
  391. Begin
  392. R.Assign(15,3,64,20);
  393. New(Dlg, Init(R, 'Sort...'));
  394. Dlg^.Options := $0343;
  395.  
  396. R.Assign(3,3,23,4);
  397. Control := New(PInputLine, Init(R, 80));
  398. Control^.HelpCtx := hcFirstKey;
  399. Dlg^.Insert(Control);
  400.  
  401.   R.Assign(23,3,26,4);
  402.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiSortFirstKey)));
  403.  
  404.   R.Assign(2,2,13,3);
  405.   Dlg^.Insert(New(PLabel, Init(R, '~F~irst key:', Control)));
  406.  
  407. R.Assign(30,3,47,5);
  408. Control := New(PRadiobuttons, Init(R,
  409.   NewSItem('~A~scendent',
  410.   NewSItem('~D~escendent',Nil))));
  411. Control^.HelpCtx := hcAscending;
  412. Dlg^.Insert(Control);
  413.  
  414.   R.Assign(29,2,36,3);
  415.   Dlg^.Insert(New(PLabel, Init(R, 'Order:', Control)));
  416.  
  417. R.Assign(3,7,23,8);
  418. Control := New(PInputLine, Init(R, 80));
  419. Control^.HelpCtx := hcSecondKey;
  420. Dlg^.Insert(Control);
  421.  
  422.   R.Assign(23,7,26,8);
  423.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiSortSecondKey)));
  424.  
  425.   R.Assign(2,6,14,7);
  426.   Dlg^.Insert(New(PLabel, Init(R, '~S~econd key:', Control)));
  427.  
  428. R.Assign(30,7,47,9);
  429. Control := New(PRadiobuttons, Init(R,
  430.   NewSItem('As~c~endent',
  431.   NewSItem('D~e~scendent',Nil))));
  432. Control^.HelpCtx := hcAscending;
  433. Dlg^.Insert(Control);
  434.  
  435.   R.Assign(29,6,36,7);
  436.   Dlg^.Insert(New(PLabel, Init(R, 'Order:', Control)));
  437.  
  438. R.Assign(3,11,23,12);
  439. Control := New(PInputLine, Init(R, 80));
  440. Control^.HelpCtx := hcThirdKey;
  441. Dlg^.Insert(Control);
  442.  
  443.   R.Assign(23,11,26,12);
  444.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiSortThirdKey)));
  445.  
  446.   R.Assign(2,10,13,11);
  447.   Dlg^.Insert(New(PLabel, Init(R, '~T~hird key:', Control)));
  448.  
  449. R.Assign(30,11,47,13);
  450. Control := New(PRadiobuttons, Init(R,
  451.   NewSItem('Ascenden~t~',
  452.   NewSItem('Desce~n~dent',Nil))));
  453. Control^.HelpCtx := hcAscending;
  454. Dlg^.Insert(Control);
  455.  
  456.   R.Assign(29,10,36,11);
  457.   Dlg^.Insert(New(PLabel, Init(R, 'Order:', Control)));
  458.  
  459. R.Assign(2,14,15,16);
  460. Control := New(PButton, Init(R, '~O~k', cmOk, bfDefault));
  461. Control^.HelpCtx := hcOk;
  462. Dlg^.Insert(Control);
  463.  
  464. R.Assign(18,14,31,16);
  465. Control := New(PButton, Init(R, 'Cancel', cmCancel, bfNormal));
  466. Control^.HelpCtx := hcCancel;
  467. Dlg^.Insert(Control);
  468.  
  469. R.Assign(34,14,47,16);
  470. Control := New(PButton, Init(R, 'Help', cmHelp, bfNormal));
  471. Dlg^.Insert(Control);
  472.  
  473. Dlg^.SelectNext(False);
  474. SortDialog := Dlg;
  475. end;
  476.  
  477.  
  478. function GetWidthDialog : PDialog;
  479. var
  480.   Dlg : PDialog;
  481.   R : TRect;
  482.   Control, HScroll : PView;
  483. Begin
  484. R.Assign(18,8,62,15);
  485. New(Dlg, Init(R, 'New width...'));
  486. Dlg^.Flags := Dlg^.Flags - wfClose;
  487. Dlg^.Options := $0343;
  488.  
  489. R.Assign(17,2,39,3);
  490. Control := New(PInputLine, Init(R, 10));
  491. Control^.HelpCtx := hcGetWidthInput;
  492. Dlg^.Insert(Control);
  493.  
  494.   R.Assign(39,2,42,3);
  495.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiNewWidth)));
  496.  
  497.   R.Assign(3,2,14,3);
  498.   Dlg^.Insert(New(PLabel, Init(R, 'New width:', Control)));
  499.  
  500. R.Assign(3,4,15,6);
  501. Control := New(PButton, Init(R, '~O~k', cmOK, bfDefault));
  502. Control^.HelpCtx := hcOk;
  503. Dlg^.Insert(Control);
  504.  
  505. R.Assign(16,4,28,6);
  506. Control := New(PButton, Init(R, 'Cancel', cmCancel, bfNormal));
  507. Control^.HelpCtx := hcCancel;
  508. Dlg^.Insert(Control);
  509.  
  510. R.Assign(29,4,41,6);
  511. Control := New(PButton, Init(R, 'Help', cmHelp, bfNormal));
  512. Dlg^.Insert(Control);
  513.  
  514. Dlg^.SelectNext(False);
  515. GetWidthDialog := Dlg;
  516. end;
  517.  
  518. function PrintToDialog : PFileDialog;
  519. var
  520.   Dialog : PFileDialog;
  521. begin
  522.   Dialog := New(PFileDialog, Init('*.TXT','Print to...','~P~rint to:',
  523.     fdOkButton + fdHelpButton, 108));
  524.   PrintToDialog := Dialog;
  525. end; {...PrintToDialog }
  526.  
  527. function InputLine: PSheetInputLine;
  528. { Returns a pointer to a TSheetInputLine that will be used in a
  529.   TInputDialog object, in TSpreadSheet's HandleInput method.  It
  530.   is stored in the resource file to allow the use of a customizable
  531.   help context value (stored in the hcInputLine constant) }
  532. var
  533.   Input : PSheetInputLine;
  534. begin
  535.   New(Input, Init(255));
  536.   Input^.HelpCtx := hcInputLine;
  537.   InputLine := Input;
  538. end;
  539.  
  540. function PrintingDialog : PDialog;
  541. var
  542.   Dlg : PDialog;
  543.   R : TRect;
  544.   Control, HScroll : PView;
  545. Begin
  546. R.Assign(23,9,56,15);
  547. New(Dlg, Init(R, 'Information'));
  548. Dlg^.HelpCtx := hcPleaseWait;
  549. Dlg^.Options := $034b;
  550. Dlg^.Eventmask := $FC00;
  551.  
  552. R.Assign(2,2,31,4);
  553. Control := New(PStaticText, Init(R, ^C'Printing file... please wait.'^M+
  554.   ^C'(press ESC to cancel)'));
  555. Dlg^.Insert(Control);
  556.  
  557. Dlg^.SelectNext(False);
  558. PrintingDialog := Dlg;
  559. end;
  560.  
  561. function SortingDialog : PDialog;
  562. var
  563.   Dlg : PDialog;
  564.   R : TRect;
  565.   Control, HScroll : PView;
  566. Begin
  567. R.Assign(23,9,56,15);
  568. New(Dlg, Init(R, 'Information'));
  569. Dlg^.HelpCtx := hcPleaseWait;
  570. Dlg^.Options := $034b;
  571. Dlg^.Eventmask := $FC00;
  572.  
  573. R.Assign(2,2,31,4);
  574. Control := New(PStaticText, Init(R, ^C'Sorting data...'^M^C'please wait.'));
  575. Dlg^.Insert(Control);
  576.  
  577. Dlg^.SelectNext(False);
  578. SortingDialog := Dlg;
  579. end;
  580.  
  581. function UpdatingTablesDialog : PDialog;
  582. var
  583.   Dlg : PDialog;
  584.   R : TRect;
  585.   Control, HScroll : PView;
  586. Begin
  587. R.Assign(23,9,56,15);
  588. New(Dlg, Init(R, 'Information'));
  589. Dlg^.HelpCtx := hcPleaseWait;
  590. Dlg^.Options := $034b;
  591. Dlg^.Eventmask := $FC00;
  592.  
  593. R.Assign(2,2,31,4);
  594. Control := New(PStaticText, Init(R, ^C'Updating data tables...'^M^C'please wait.'));
  595. Dlg^.Insert(Control);
  596.  
  597. Dlg^.SelectNext(False);
  598. UpdatingTablesDialog := Dlg;
  599. end;
  600.  
  601. {****************************************************************************}
  602. {**                       CreateOOGLDialogs procedure                      **}
  603. {****************************************************************************}
  604.  
  605. procedure CreateOOGLDialogs(ResourceFile: PResourceFile);
  606. begin
  607.   ResourceFile^.Put(FormatDialog, 'FormatDialog');
  608.   ResourceFile^.Put(PasteDialog, 'FormulasDialog');
  609.   ResourceFile^.Put(GoToDialog, 'GoToDialog');
  610.   ResourceFile^.Put(ChangeHeaderDialog, 'ChangeHeaderDialog');
  611.   ResourceFile^.Put(PrintDialog, 'PrintDialog');
  612.   ResourceFile^.Put(SortDialog, 'SortDialog');
  613.   ResourceFile^.Put(GetWidthDialog, 'GetWidthDialog');
  614.   ResourceFile^.Put(InputLine, 'InputLine');
  615.   ResourceFile^.Put(PrintToDialog, 'PrintToDialog');
  616.   ResourceFile^.Put(PrintingDialog, 'PrintingDialog');
  617.   ResourceFile^.Put(SortingDialog, 'SortingDialog');
  618.   ResourceFile^.Put(UpdatingTablesDialog, 'UpdatingTablesDialog');
  619. end; {...CreateOOGLDialogs }
  620.  
  621. {****************************************************************************}
  622. {**                       CreateOOGLStrings procedure                      **}
  623. {****************************************************************************}
  624.  
  625. procedure CreateOOGLStrings(ResourceFile: PResourceFile);
  626. var
  627.   S: PStrListMaker;
  628. begin
  629.   S := New(PStrListMaker, Init(10000, 100));
  630.  
  631.   S^.Put(sAutoCalcLetter, 'C');
  632.   S^.Put(sBlockDeleteMsg, 'Deleting selected cells... please wait.');
  633.   S^.Put(sBlockName, 'Block:');
  634.   S^.Put(sCancelPrintJob, 'Cancel print job ?');
  635.   S^.Put(sCellError, 'ERROR');
  636.   S^.Put(sCellLockedInfo, '[Pr]');
  637.   S^.Put(sCellsProtectedMsg, 'The selected cells are protected and can not be modified.');
  638.   S^.Put(sCellUnlockedInfo, '[U]');
  639.   S^.Put(sColumnEntryIndicator, 'Column');
  640.   S^.Put(sCopyCellsMsg, 'Copy: Select destination cell & press ENTER (or select ''Paste'' from the menu)');
  641.   S^.Put(sDisplayFormulasLetter, 'F');
  642.   S^.Put(sDisplayHeadersLetter, 'N');
  643.   S^.Put(sEmptyCellName, 'Empty');
  644.   S^.Put(sEndKeyPressedLetter, 'E');
  645.   S^.Put(sFilePrintErrorMsg, 'Error while printing document. Retry ?');
  646.   S^.Put(sFormatErrorMsg, 'Format errors:');
  647.   S^.Put(sFormatError1Msg, ^M'∙ Number of decimals out of range');
  648.   S^.Put(sFormatError2Msg, ^M'∙ Invalid currency');
  649.   S^.Put(sFormulaCellName, 'Formula');
  650.   S^.Put(sInvalidCellMsg, 'Invalid cell.');
  651.   S^.Put(sInvalidWidthMsg, 'Width is not within the allowed range.');
  652.   S^.Put(sMoveCellsMsg, 'Move: Select destination cell & press ENTER (or select ''Paste'' from the menu)');
  653.   S^.Put(sParseError1, 'Parser stack overflow.');
  654.   S^.Put(sParseError2, 'Bad cell range.');
  655.   S^.Put(sParseError3, 'Expected expression.');
  656.   S^.Put(sParseError4, 'Expected operator.');
  657.   S^.Put(sParseError5, 'Expected opening parenthesis.');
  658.   S^.Put(sParseError6, 'Expected cell.');
  659.   S^.Put(sParseError7, 'Expected operator or closing parenthesis.');
  660.   S^.Put(sPrinterPrintErrorMsg, 'Printer is not answering. Retry ?');
  661.   S^.Put(sPrintInitErrorMsg, 'Printer could not be initiated. Retry ?');
  662.   S^.Put(sPrintToWildCard, '*.TXT');
  663.   S^.Put(sRecalcMsg, 'Recalculating cell values... please wait.');
  664.   S^.Put(sRepeatCellName, 'Repeat');
  665.   S^.Put(sTempFileName, 'tstemp.tmp');
  666.   S^.Put(sTextCellName, 'Text');
  667.   S^.Put(sValueCellName, 'Value');
  668.   S^.Put(sWidthLetter, 'W');
  669.  
  670.   ResourceFile^.Put(S, 'SheetStrings');
  671.   Dispose(S, Done);
  672. end; {...CreateOOGLStrings }
  673.  
  674. {****************************************************************************}
  675. {**                                                                        **}
  676. {**                       Unit's initialization Section                    **}
  677. {**                                                                        **}
  678. {****************************************************************************}
  679. begin
  680.   DisplayEnabled := False;
  681. end. {...GLTVR_US unit }