You've already forked lazarus-ccr
045c799d49
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7882 8e941d3f-bd1b-0410-a28a-d453659cc2b4
353 lines
9.9 KiB
ObjectPascal
353 lines
9.9 KiB
ObjectPascal
unit DictionaryUnit;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls, Grids, ExtCtrls, Globals, OptionsUnit, contexthelpunit;
|
|
|
|
type
|
|
|
|
{ TDictionaryFrm }
|
|
|
|
TDictionaryFrm = class(TForm)
|
|
HelpBtn: TButton;
|
|
Label2: TLabel;
|
|
DescMemo: TMemo;
|
|
RowDelBtn: TButton;
|
|
RowInstBtn: TButton;
|
|
JustCombo: TComboBox;
|
|
TypeCombo: TComboBox;
|
|
Label1: TLabel;
|
|
ReturnBtn: TButton;
|
|
CancelBtn: TButton;
|
|
DictGrid: TStringGrid;
|
|
Panel1: TPanel;
|
|
procedure CancelBtnClick(Sender: TObject);
|
|
procedure DictGridClick(Sender: TObject);
|
|
procedure DictGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
|
|
);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure HelpBtnClick(Sender: TObject);
|
|
procedure JustComboClick(Sender: TObject);
|
|
procedure JustComboSelect(Sender: TObject);
|
|
procedure ReturnBtnClick(Sender: TObject);
|
|
procedure RowDelBtnClick(Sender: TObject);
|
|
procedure RowInstBtnClick(Sender: TObject);
|
|
procedure Defaults(Sender: TObject; row : integer);
|
|
procedure TypeComboSelect(Sender: TObject);
|
|
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
procedure DelRow(row : integer);
|
|
procedure NewVar(row : integer);
|
|
procedure PasteVar(row : integer);
|
|
procedure CopyVar(row : integer);
|
|
end;
|
|
|
|
var
|
|
DictionaryFrm: TDictionaryFrm;
|
|
|
|
implementation
|
|
|
|
{ TDictionaryFrm }
|
|
|
|
uses MainUnit;
|
|
|
|
procedure TDictionaryFrm.ReturnBtnClick(Sender: TObject);
|
|
var
|
|
i, j, count : integer;
|
|
NoRows : integer;
|
|
begin
|
|
// determine number of rows with complete data
|
|
NoRows := 0;
|
|
for i := 1 to DictGrid.RowCount - 1 do
|
|
begin
|
|
count := 0;
|
|
for j := 1 to 5 do
|
|
begin
|
|
if DictGrid.Cells[j,i] <> '' then count := count + 1;
|
|
end;
|
|
if count > 4 then NoRows := NoRows + 1;
|
|
end;
|
|
if NoRows < DictGrid.RowCount - 1 then
|
|
begin
|
|
ShowMessage('Error! A definition entry for one or more variables missing!');
|
|
DictGrid.SetFocus;
|
|
exit;
|
|
end;
|
|
|
|
// Place short labels in main grid
|
|
OS3MainFrm.DataGrid.ColCount := NoRows + 1;
|
|
for i := 1 to NoRows do OS3MainFrm.DataGrid.Cells[i,0] := DictGrid.Cells[1,i];
|
|
|
|
// Make sure integers have a 0 for decimals
|
|
for i := 1 to NoRows do
|
|
if DictGrid.Cells[4,i] = 'I' then DictGrid.Cells[5,i] := '0';
|
|
OS3MainFrm.NoVarsEdit.Text := IntToStr(OS3MainFrm.DataGrid.ColCount-1);
|
|
if OS3MainFrm.FileNameEdit.Text = '' then exit;
|
|
end;
|
|
|
|
procedure TDictionaryFrm.RowDelBtnClick(Sender: TObject);
|
|
var
|
|
index : integer;
|
|
i, j : integer;
|
|
|
|
begin
|
|
index := DictGrid.Row;
|
|
if index = DictGrid.RowCount-1 then // last row
|
|
begin
|
|
for i := 0 to 7 do DictGrid.Cells[i,index] := '';
|
|
DictGrid.RowCount := DictGrid.RowCount - 1;
|
|
VarDefined[index] := false;
|
|
end
|
|
else
|
|
begin // move lines below current lines up and delete last
|
|
for i := index+1 to DictGrid.RowCount - 1 do
|
|
begin
|
|
for j := 0 to 6 do DictGrid.Cells[j,i-1] := DictGrid.Cells[j,i];
|
|
VarDefined[i-1] := VarDefined[i];
|
|
end;
|
|
VarDefined[DictGrid.RowCount-1] := false;
|
|
DictGrid.RowCount := DictGrid.RowCount - 1;
|
|
for i := 1 to DictGrid.RowCount - 1 do // renumber rows
|
|
DictGrid.Cells[0,i] := IntToStr(i);
|
|
end;
|
|
end;
|
|
|
|
procedure TDictionaryFrm.RowInstBtnClick(Sender: TObject);
|
|
var
|
|
index : integer;
|
|
i, j : integer;
|
|
|
|
begin
|
|
index := DictGrid.Row;
|
|
DictGrid.RowCount := DictGrid.RowCount + 1; // add new row to grid
|
|
// move all rows from index down 1
|
|
for i := DictGrid.RowCount - 1 downto index+1 do
|
|
begin
|
|
for j := 1 to 6 do
|
|
begin
|
|
DictGrid.Cells[j,i] := DictGrid.Cells[j,i-1];
|
|
end;
|
|
VarDefined[i] := VarDefined[i-1];
|
|
end;
|
|
|
|
// place default values in new row
|
|
Defaults(Self,index);
|
|
VarDefined[index] := true;
|
|
end;
|
|
|
|
|
|
procedure TDictionaryFrm.FormShow(Sender: TObject);
|
|
begin
|
|
DictGrid.ColCount := 8;
|
|
if NoVariables = 0 then DictGrid.RowCount := 2
|
|
else DictGrid.RowCount := NoVariables + 1;
|
|
|
|
// insert headings
|
|
DictGrid.Cells[0,0] := 'VAR/CHAR.';
|
|
DictGrid.Cells[1,0] := 'Short Name';
|
|
DictGrid.Cells[2,0] := 'Long Name';
|
|
DictGrid.Cells[3,0] := 'Width';
|
|
DictGrid.Cells[4,0] := 'Type';
|
|
DictGrid.Cells[5,0] := 'Decimals';
|
|
DictGrid.Cells[6,0] := 'Missing';
|
|
DictGrid.Cells[7,0] := 'Justify';
|
|
DictGrid.Cells[0,1] := '1';
|
|
DictGrid.ColWidths[1] := 100;
|
|
DictGrid.ColWidths[2] := 200;
|
|
DictGrid.ColWidths[3] := 50;
|
|
DictGrid.ColWidths[4] := 50;
|
|
DictGrid.ColWidths[5] := 50;
|
|
DictGrid.ColWidths[6] := 50;
|
|
DictGrid.ColWidths[7] := 50;
|
|
|
|
// check for absence of a defined variable
|
|
if VarDefined[1] = false then
|
|
begin
|
|
// load defaults
|
|
Defaults(Self,1);
|
|
VarDefined[1] := true;
|
|
end;
|
|
end;
|
|
|
|
procedure TDictionaryFrm.HelpBtnClick(Sender: TObject);
|
|
begin
|
|
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
|
end;
|
|
|
|
procedure TDictionaryFrm.JustComboClick(Sender: TObject);
|
|
var
|
|
achar : char;
|
|
astr : string;
|
|
index : integer;
|
|
GRow : integer;
|
|
|
|
begin
|
|
index := JustCombo.ItemIndex;
|
|
astr := JustCombo.Items.Strings[index];
|
|
achar := astr[2];
|
|
GRow := DictGrid.Row;
|
|
DictGrid.Cells[7,GRow] := achar;
|
|
JustCombo.Text := 'Justification';
|
|
end;
|
|
|
|
procedure TDictionaryFrm.JustComboSelect(Sender: TObject);
|
|
var
|
|
achar : char;
|
|
astr : string;
|
|
index : integer;
|
|
GRow : integer;
|
|
|
|
begin
|
|
index := JustCombo.ItemIndex;
|
|
astr := JustCombo.Items.Strings[index];
|
|
achar := astr[2];
|
|
GRow := DictGrid.Row;
|
|
if GRow>0 then DictGrid.Cells[7,GRow] := achar;
|
|
JustCombo.Text := 'Justification';
|
|
DictGrid.SetFocus;
|
|
end;
|
|
|
|
procedure TDictionaryFrm.CancelBtnClick(Sender: TObject);
|
|
begin
|
|
DictionaryFrm.Hide;
|
|
end;
|
|
|
|
procedure TDictionaryFrm.DictGridClick(Sender: TObject);
|
|
begin
|
|
DictGrid.SelectedColor := clGray;
|
|
end;
|
|
|
|
procedure TDictionaryFrm.DictGridKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
var
|
|
x, y, v : integer;
|
|
begin
|
|
x := DictGrid.Row;
|
|
y := DictGrid.Col;
|
|
v := ord(Key);
|
|
case v of
|
|
13 : if y = 7 then DictGrid.Col := 1 else DictGrid.Col := DictGrid.Col + 1;
|
|
40 : begin // arrow down key
|
|
if x = DictGrid.RowCount - 1 then
|
|
begin
|
|
if DictGrid.RowCount < (x + 2) then
|
|
DictGrid.RowCount := DictGrid.RowCount + 1;
|
|
Defaults(Self,x+1);
|
|
VarDefined[x+1] := true;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TDictionaryFrm.Defaults(Sender: TObject; row : integer);
|
|
var i : integer;
|
|
begin
|
|
DictGrid.Cells[0,row] := IntToStr(row);
|
|
DictGrid.Cells[1,row] := 'VAR.' + IntToStr(row);
|
|
DictGrid.Cells[2,row] := 'VARIABLE ' + IntToStr(row);
|
|
DictGrid.Cells[3,row] := '8';
|
|
DictGrid.Cells[4,row] := 'F';
|
|
DictGrid.Cells[5,row] := '2';
|
|
DictGrid.Cells[6,row] := ' ';
|
|
DictGrid.Cells[7,row] := 'L';
|
|
for i := 1 to DictGrid.RowCount - 1 do DictGrid.Cells[0,i] := IntToStr(i);
|
|
if OptionsFrm.DefaultMiss = 0 then DictGrid.Cells[6,row] := '';
|
|
if OptionsFrm.DefaultMiss = 1 then DictGrid.Cells[6,row] := '.';
|
|
if OptionsFrm.DefaultMiss = 2 then DictGrid.Cells[6,row] := '0';
|
|
If OptionsFrm.DefaultMiss = 3 then DictGrid.Cells[6,row] := '99999';
|
|
if OptionsFrm.DefaultJust <> 0 then
|
|
begin
|
|
if OptionsFrm.DefaultJust = 1 then DictGrid.Cells[7,row] := 'C'
|
|
else DictGrid.Cells[7,row] := 'R';
|
|
end;
|
|
end;
|
|
|
|
procedure TDictionaryFrm.TypeComboSelect(Sender: TObject);
|
|
var
|
|
achar : char;
|
|
astr : string;
|
|
index : integer;
|
|
GRow : integer;
|
|
begin
|
|
index := TypeCombo.ItemIndex;
|
|
astr := TypeCombo.Items.Strings[index];
|
|
achar := astr[2];
|
|
GRow := DictGrid.Row;
|
|
if GRow>0 then
|
|
begin
|
|
DictGrid.Cells[4,GRow] := achar;
|
|
if achar='F' then DictGrid.Cells[5,GRow] := '3' // set decimal digits
|
|
else DictGrid.Cells[5,GRow] := '0';
|
|
end;
|
|
TypeCombo.Text := 'Type';
|
|
DictGrid.SetFocus;
|
|
end;
|
|
|
|
procedure TDictionaryFrm.DelRow(row : integer);
|
|
begin
|
|
DictGrid.Row := row;
|
|
TempVarItm.Clear;
|
|
DictGrid.Rows[row].SaveToStream(TempVarItm);
|
|
RowDelBtnClick(Self);
|
|
end;
|
|
//-------------------------------------------------------------------
|
|
|
|
procedure TDictionaryFrm.NewVar(row : integer);
|
|
var
|
|
i, j : integer;
|
|
begin
|
|
DictGrid.RowCount := DictGrid.RowCount + 1; // add new row
|
|
NoVariables := NoVariables + 1;
|
|
if (row < NoVariables) AND (NoVariables > 1) then // move current rows down 1
|
|
begin
|
|
for i := NoVariables downto row + 1 do
|
|
begin
|
|
for j := 1 to 7 do DictGrid.Cells[j,i] := DictGrid.Cells[j,i-1];
|
|
VarDefined[i] := VarDefined[i-1];
|
|
end;
|
|
end;
|
|
// put default values in new variable
|
|
Defaults(Self,row);
|
|
VarDefined[row] := true;
|
|
|
|
// add to grid if grid column does not exist
|
|
if OS3MainFrm.DataGrid.ColCount < row then
|
|
begin
|
|
OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount + 1;
|
|
OS3MainFrm.DataGrid.Cells[row,0] := DictionaryFrm.DictGrid.Cells[1,row];
|
|
end;
|
|
ReturnBtnClick(Self);
|
|
end;
|
|
//-------------------------------------------------------------------
|
|
|
|
procedure TDictionaryFrm.PasteVar(row : integer);
|
|
var i : integer;
|
|
begin
|
|
TempVarItm.Position := 0;
|
|
DictGrid.Rows[row].LoadFromStream(TempVarItm);
|
|
for i := 1 to DictGrid.RowCount - 1 do DictGrid.Cells[0,i] := IntToStr(i);
|
|
// FormShow(Self);
|
|
end;
|
|
//-------------------------------------------------------------------
|
|
|
|
procedure TDictionaryFrm.CopyVar(row : integer);
|
|
begin
|
|
DictGrid.Row := row;
|
|
TempVarItm.Clear;
|
|
DictGrid.Rows[row].SaveToStream(TempVarItm);
|
|
end;
|
|
//-------------------------------------------------------------------
|
|
|
|
initialization
|
|
{$I dictionaryunit.lrs}
|
|
|
|
end.
|
|
|