Update of /cvsroot/lngcompiler/lngcompiler
In directory usw-pr-cvs1:/tmp/cvs-serv3302
Modified Files:
LngForm.dfm LngForm.pas
Log Message:
Support for "TAction" component; Changed shortcuts for Save and Compile to Alt+S and Alt+C.
Index: LngForm.dfm
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/LngForm.dfm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** LngForm.dfm 5 Apr 2002 18:47:32 -0000 1.9
--- LngForm.dfm 18 May 2002 16:14:40 -0000 1.10
***************
*** 481,490 ****
object Savechanges1: TMenuItem
Caption = '&Save changes'
! ShortCut = 16467
OnClick = Savechanges1Click
end
object Save1: TMenuItem
Caption = '&Compile LNG'
! ShortCut = 16451
OnClick = Save1Click
end
--- 481,490 ----
object Savechanges1: TMenuItem
Caption = '&Save changes'
! ShortCut = 32851
OnClick = Savechanges1Click
end
object Save1: TMenuItem
Caption = '&Compile LNG'
! ShortCut = 32835
OnClick = Save1Click
end
Index: LngForm.pas
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/LngForm.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** LngForm.pas 5 Apr 2002 16:16:21 -0000 1.8
--- LngForm.pas 18 May 2002 16:14:40 -0000 1.9
***************
*** 51,55 ****
idComboBox,
idToolbar97,
! idMemo
);
--- 51,60 ----
idComboBox,
idToolbar97,
! idMemo,
! id_ctForm,
! id_ctStrings,
! id_ctEndForm,
! id_ctEndStrings,
! idAction
);
***************
*** 74,78 ****
ctStrings,
ctEndForm,
! ctEndStrings
);
--- 79,84 ----
ctStrings,
ctEndForm,
! ctEndStrings,
! ctAction
);
***************
*** 768,771 ****
--- 774,778 ----
IDL.AddObject('ENDFORM', Pointer(ctEndForm));
IDL.AddObject('ENDSTRINGS', Pointer(ctEndStrings));
+ IDL.AddObject('ACTION', Pointer(ctAction));
//XSL := TStringList.Create;
SL := TStringList.Create;
***************
*** 1261,1265 ****
ctToolbar: S := 'Toolbar';
ctMemo: S := 'Memo';
! else S := 'unknown';
end;
gForm.Rows[I][1] := '<'+S+'>';
--- 1268,1273 ----
ctToolbar: S := 'Toolbar';
ctMemo: S := 'Memo';
! ctAction: S := 'Action';
! else S := 'unknown';
end;
gForm.Rows[I][1] := '<'+S+'>';
***************
*** 1665,1668 ****
--- 1673,1677 ----
idToolbar97: S := 'Toolbar';
idMemo: S := 'Memo';
+ idAction: S := 'Action';
else S := 'UnknownControl';
end;
***************
*** 2054,2058 ****
ctToolbar: S := 'Toolbar';
ctMemo: S := 'Memo';
! else S := 'Unknown'
end;
S := ' ' + S + ' ' + LI.Name + ' ';
--- 2063,2068 ----
ctToolbar: S := 'Toolbar';
ctMemo: S := 'Memo';
! ctAction: S := 'Action';
! else S := 'Unknown'
end;
S := ' ' + S + ' ' + LI.Name + ' ';
|