[Lngcompiler-commits] CVS: lngcompiler LngForm.dfm,1.9,1.10 LngForm.pas,1.8,1.9

[Maxim M. <max...@us...>]

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 + ' ';