Adicionando função de criar cenário

Guiazsan · Apr 28, 2019 · cf9b44e · cf9b44e
1 parent 94a49f8
commit cf9b44e
Show file tree

Hide file tree

Showing 7 changed files with 45 additions and 12 deletions.
diff --git a/src/forms/backup/unitdesktop.pas b/src/forms/backup/unitdesktop.pas
@@ -44,8 +44,8 @@   TDesktop = class(TForm)
     CtrlLeftPanel: TResizeablePanel;
     PcSaidas: TCDPageControl;
     PnBottom: TResizeablePanel;
-    TsMensagens: TTabSheet;
-    TsConsole: TTabSheet;
+    TsMensagens: TCDTabSheet;
+    TsConsole: TCDTabSheet;
     TmExecutor: TTimer;
     ToolBar1: TToolBar;
     BtnNovo: TToolButton;

diff --git a/src/forms/backup/unitpastasprojetos.lfm.bak b/src/forms/backup/unitpastasprojetos.lfm.bak
@@ -75,9 +75,9 @@ object PastasProjetos: TPastasProjetos
       ActivePage = CDTabSheet2
       DrawStyle = dsKDEPlastique
       Caption = 'CDPageControl1'
-      PageIndex = 0
+      PageIndex = 1
       Options = []
-      TabIndex = 0
+      TabIndex = 1
       object CDTabSheet1: TCDTabSheet
         Left = 2
         Height = 294
@@ -275,6 +275,7 @@ object PastasProjetos: TPastasProjetos
     object ActAddFile: TAction
       Caption = 'AddFile'
       ImageIndex = 3
+      OnExecute = ActAddFileExecute
     end
   end
   object MDSCenas: TMemDataset

diff --git a/src/forms/backup/unitpastasprojetos.pas b/src/forms/backup/unitpastasprojetos.pas
@@ -31,6 +31,7 @@   TPastasProjetos = class(TForm)
     Panel1 : TPanel;
     ProjetoTree : TTreeView;
     BtnNewFolder : TSpeedButton;
+    procedure ActAddFileExecute(Sender : TObject);
     procedure ProjetoTreeDblClick(Sender : TObject);
   private
 
@@ -54,6 +55,20 @@ procedure TPastasProjetos.ProjetoTreeDblClick(Sender : TObject);
   Desktop.PageControl1.PageIndex := CDPageControl1.PageCount;
 end;
 
+procedure TPastasProjetos.ActAddFileExecute(Sender : TObject);
+var
+  cenaNome : String;
+  cena : TStringList;
+begin
+  nome := InputBox('Nome da Cena', 'Nome', '');
+  cena := TStringList.Create;
+  try
+    cena.SaveToFile(Desktop.ProjetoPath + 'nome');
+  finally
+    FreeAndNil(cena);
+  end;
+end;
+
 procedure TPastasProjetos.popularTreeProjeto(ProjetoPath, ProjetoNome : String);
   procedure popularChilds(path : String; raiz : TTreeNode);
     var arquivo : TSearchRec;

diff --git a/src/forms/unitdesktop.lfm b/src/forms/unitdesktop.lfm
@@ -13,6 +13,7 @@ object Desktop: TDesktop
   Menu = MainMenu1
   OnClose = FormClose
   OnCreate = FormCreate
+  LCLVersion = '2.0.0.4'
   WindowState = wsMaximized
   object ToolBar1: TToolBar
     Left = 0
@@ -48,7 +49,7 @@ object Desktop: TDesktop
     end
     object ToolButton4: TToolButton
       Left = 93
-      Height = 22
+      Height = 8
       Top = 0
       Caption = 'ToolButton4'
       Style = tbsSeparator
@@ -102,8 +103,8 @@ object Desktop: TDesktop
     Width = 807
     Align = alBottom
     BevelOuter = bvNone
-    ClientHeight = 114
-    ClientWidth = 807
+    ClientHeight = 110
+    ClientWidth = 803
     Font.Color = clHighlightText
     ParentFont = False
     TabOrder = 3
@@ -119,9 +120,9 @@ object Desktop: TDesktop
       Align = alClient
       ActivePage = TsConsole
       DrawStyle = dsDefault
-      PageIndex = 0
+      PageIndex = 1
       Options = []
-      TabIndex = 0
+      TabIndex = 1
       object TsMensagens: TCDTabSheet
         Left = 2
         Height = 79

diff --git a/src/forms/unitdesktop.pas b/src/forms/unitdesktop.pas
@@ -64,14 +64,14 @@   TDesktop = class(TForm)
     procedure ActSalvarExecute(Sender : TObject);
     procedure TmExecutorTimer(Sender : TObject);
   private
-    ProjetoPath, LovePath, ProjetoNome : String;
     IniConfig : TIniFile;
     love : TProcess;
     MemSaida : TMemo;
     FramePastas : TPastasProjetos;
 
     procedure LimparTela;
   public
+    ProjetoPath, LovePath, ProjetoNome : String;
     procedure AlterarCodigo(Sender : TObject);
     procedure AbrirCodigo(Caminho, Nome : String);
 

diff --git a/src/forms/unitpastasprojetos.lfm b/src/forms/unitpastasprojetos.lfm
@@ -75,9 +75,9 @@ object PastasProjetos: TPastasProjetos
       ActivePage = CDTabSheet2
       DrawStyle = dsKDEPlastique
       Caption = 'CDPageControl1'
-      PageIndex = 0
+      PageIndex = 1
       Options = []
-      TabIndex = 0
+      TabIndex = 1
       object CDTabSheet1: TCDTabSheet
         Left = 2
         Height = 294
@@ -275,6 +275,7 @@ object PastasProjetos: TPastasProjetos
     object ActAddFile: TAction
       Caption = 'AddFile'
       ImageIndex = 3
+      OnExecute = ActAddFileExecute
     end
   end
   object MDSCenas: TMemDataset

diff --git a/src/forms/unitpastasprojetos.pas b/src/forms/unitpastasprojetos.pas
@@ -31,6 +31,7 @@   TPastasProjetos = class(TForm)
     Panel1 : TPanel;
     ProjetoTree : TTreeView;
     BtnNewFolder : TSpeedButton;
+    procedure ActAddFileExecute(Sender : TObject);
     procedure ProjetoTreeDblClick(Sender : TObject);
   private
 
@@ -54,6 +55,20 @@ procedure TPastasProjetos.ProjetoTreeDblClick(Sender : TObject);
   Desktop.PageControl1.PageIndex := CDPageControl1.PageCount;
 end;
 
+procedure TPastasProjetos.ActAddFileExecute(Sender : TObject);
+var
+  cenaNome : String;
+  cena : TStringList;
+begin
+  nome := InputBox('Nome da Cena', 'Nome', '');
+  cena := TStringList.Create;
+  try
+    cena.SaveToFile(Desktop.ProjetoPath + nome);
+  finally
+    FreeAndNil(cena);
+  end;
+end;
+
 procedure TPastasProjetos.popularTreeProjeto(ProjetoPath, ProjetoNome : String);
   procedure popularChilds(path : String; raiz : TTreeNode);
     var arquivo : TSearchRec;