From 0de76a7f90db8ef4f26af7617d79c54a641050c2 Mon Sep 17 00:00:00 2001 From: Chixpy Date: Tue, 5 Jun 2018 12:13:29 +0200 Subject: [PATCH] =?UTF-8?q?*=20A=C3=B1adido=20bot=C3=B3n=20para=20abrir=20?= =?UTF-8?q?las=20carpetas=20de=20MAME,=20im=C3=A1genes,=20INP=20y=20NVRAM.?= =?UTF-8?q?=20*=20Cambiado=20el=20orden=20de=20tabulaci=C3=B3n=20de=20tal?= =?UTF-8?q?=20forma=20que=20inicialmente=20esta=20activa=20la=20lista=20de?= =?UTF-8?q?=20juegos,=20en=20vez=20de=20el=20nick=20del=20jugar.=20De=20es?= =?UTF-8?q?ta=20forma=20se=20puede=20elegir=20juego=20con=20las=20flechas?= =?UTF-8?q?=20directamente=20y=20se=20evita=20el=20borrar=20el=20nick=20si?= =?UTF-8?q?n=20querer.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- LNSCompFE.wiki | 2 +- Resources/GUI Icons/folder-open.png | Bin 0 -> 647 bytes Resources/GUI Icons/folders-stack.png | Bin 0 -> 563 bytes Source/Forms/ufrLNSCompFE.lfm | 316 +++++++++++++++++++------- Source/Forms/ufrLNSCompFE.pas | 47 +++- Source/LNSCompFE.lpi | 4 +- Source/LNSCompFE.res | Bin 198043 -> 198043 bytes 7 files changed, 278 insertions(+), 91 deletions(-) create mode 100644 Resources/GUI Icons/folder-open.png create mode 100644 Resources/GUI Icons/folders-stack.png diff --git a/LNSCompFE.wiki b/LNSCompFE.wiki index 43dd97c..e04db80 160000 --- a/LNSCompFE.wiki +++ b/LNSCompFE.wiki @@ -1 +1 @@ -Subproject commit 43dd97c56536793835277a4d8f6e4450560b2b01 +Subproject commit e04db801a8bc4436220d27fa47571b7e496fb909 diff --git a/Resources/GUI Icons/folder-open.png b/Resources/GUI Icons/folder-open.png new file mode 100644 index 0000000000000000000000000000000000000000..adc99d5f0c4741e8b51ee6c94e902714f4848dfe GIT binary patch literal 647 zcmV;20(kw2P)^@RCwBqQ_pJ?K^T2Iv(|3?(UNFE z=pkyWrCx-Hr=GkC3SK8iM;6ETjMX3Ko@mx>{c<~^`qYwnO)*n@BThmqxp~jGG zvO6>D_f2LuSx|7;$IQ-t@9lfv?s(M&*x`AYqp5`d8yiW2$Gq?pw?iAJX0AWF*Q$Mj zM>iwKP9hkafRICZs_&z^c=KU)YfSb?96COQk>Y7Y%{{bsKV$pDD@>KI<@jC@fH)!} zX|muTj8-sF7yiLfjGdW9rxT&s>Od1CAy*c(=Gv4eG&yjPiPp%VNK8d&G(+s}HTnVs zu1$G9)uzJ=unTKV2(-g43NE8@v!EKfWYX&!eAVxPG&+V>u?y!RRyrf5GdF-Zl2&CB zcs&@wH%zeB85)WmV0F^&@C$9dPE}XLd6QG{TU?t&3a)auCC~ z2!?u~=%I1MG=fL-e!I;veEXtzn_xAo$kw$3ua(w+jc{wdXzQ6L?k@o>5-SYZ|9~3V zgR%~6s|P+I3)JgvThBcHqk;!dQ1~6sCiz?*Fs&2I_RV*D1sl8b+AJ)RN4eeQPZY`8q^3; z6W_ZZp7SKpmxQ1P&bya;&iVh&xx8zDYlYGXlVKk+^m!c_Ta*RdDgnzdJpqm}d5p+|3xU;*-D>~}E-Tg!C(aht#y?uTqzyRx-g>by$6KDVc002ovPDHLkV1id7 B2rU2r literal 0 HcmV?d00001 diff --git a/Source/Forms/ufrLNSCompFE.lfm b/Source/Forms/ufrLNSCompFE.lfm index bc9ddbe..78fa45a 100644 --- a/Source/Forms/ufrLNSCompFE.lfm +++ b/Source/Forms/ufrLNSCompFE.lfm @@ -11,32 +11,32 @@ inherited frmLNSCompFE: TfrmLNSCompFE Width = 632 AutoHint = True Panels = <> + SizeGrip = False end object Splitter1: TSplitter[1] Left = 285 - Height = 279 - Top = 131 + Height = 271 + Top = 148 Width = 5 Align = alRight ResizeAnchor = akRight end object pMain: TPanel[2] Left = 4 - Height = 279 - Top = 131 + Height = 271 + Top = 148 Width = 277 Align = alClient - ChildSizing.LeftRightSpacing = 4 - ChildSizing.TopBottomSpacing = 4 - ClientHeight = 279 + BevelOuter = bvNone + ClientHeight = 271 ClientWidth = 277 TabOrder = 1 object rgbJuegos: TRadioGroup - Left = 5 - Height = 236 + Left = 0 + Height = 271 Hint = 'Selecciona el juego' - Top = 38 - Width = 267 + Top = 0 + Width = 277 Align = alClient AutoFill = True Caption = 'Elige un juego' @@ -50,62 +50,27 @@ inherited frmLNSCompFE: TfrmLNSCompFE ColumnLayout = clVerticalThenHorizontal OnResize = rgbJuegosResize OnSelectionChanged = rgbJuegosSelectionChanged - TabOrder = 1 - end - object pNick: TPanel - Left = 5 - Height = 33 - Top = 5 - Width = 267 - Align = alTop - AutoSize = True - ChildSizing.LeftRightSpacing = 4 - ChildSizing.TopBottomSpacing = 4 - ChildSizing.HorizontalSpacing = 4 - ChildSizing.VerticalSpacing = 4 - ClientHeight = 33 - ClientWidth = 267 TabOrder = 0 - object lNick: TLabel - Left = 5 - Height = 23 - Top = 5 - Width = 27 - Align = alLeft - Caption = 'Nick:' - Layout = tlCenter - ParentColor = False - end - object eNick: TEdit - Left = 36 - Height = 23 - Top = 5 - Width = 226 - Align = alClient - TabOrder = 0 - TextHint = 'Escribe tu nick en el foro LNS' - end end end object pTop: TPanel[3] Left = 4 - Height = 123 + Height = 113 Top = 4 Width = 632 Align = alTop AutoSize = True - ChildSizing.LeftRightSpacing = 4 - ChildSizing.TopBottomSpacing = 4 - ClientHeight = 123 + BevelOuter = bvNone + ClientHeight = 113 ClientWidth = 632 TabOrder = 0 object iLogo: TImage Cursor = crHandPoint - Left = 5 + Left = 0 Height = 113 Hint = 'Pulsa para ver información de la versión de LNSCompFE.' - Top = 5 - Width = 622 + Top = 0 + Width = 632 Align = alClient AutoSize = True Center = True @@ -2367,25 +2332,25 @@ inherited frmLNSCompFE: TfrmLNSCompFE end object pBottom: TPanel[4] Left = 4 - Height = 35 - Top = 414 + Height = 26 + Top = 423 Width = 632 Align = alBottom AutoSize = True - ChildSizing.LeftRightSpacing = 4 - ChildSizing.TopBottomSpacing = 4 - ChildSizing.HorizontalSpacing = 4 - ChildSizing.VerticalSpacing = 4 + BevelOuter = bvNone ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsHomogenousChildResize + ChildSizing.ShrinkVertical = crsHomogenousChildResize ChildSizing.Layout = cclTopToBottomThenLeftToRight ChildSizing.ControlsPerLine = 1 - ClientHeight = 35 + ClientHeight = 26 ClientWidth = 632 TabOrder = 4 object bJugar: TBitBtn Left = 16 Height = 26 - Top = 4 + Top = 0 Width = 103 Action = actGrabarINP TabOrder = 0 @@ -2393,7 +2358,7 @@ inherited frmLNSCompFE: TfrmLNSCompFE object bReproducir: TBitBtn Left = 135 Height = 26 - Top = 4 + Top = 0 Width = 126 Action = actReproducirINP TabOrder = 1 @@ -2401,7 +2366,7 @@ inherited frmLNSCompFE: TfrmLNSCompFE object bGrabarAVI: TBitBtn Left = 277 Height = 26 - Top = 4 + Top = 0 Width = 95 Action = actGrabarAVI TabOrder = 2 @@ -2409,7 +2374,7 @@ inherited frmLNSCompFE: TfrmLNSCompFE object bProbar: TBitBtn Left = 388 Height = 26 - Top = 4 + Top = 0 Width = 114 Action = actProbarJuego TabOrder = 3 @@ -2417,7 +2382,7 @@ inherited frmLNSCompFE: TfrmLNSCompFE object bConfig: TBitBtn Left = 518 Height = 26 - Top = 4 + Top = 0 Width = 103 Action = actEditarConfig TabOrder = 4 @@ -2425,30 +2390,93 @@ inherited frmLNSCompFE: TfrmLNSCompFE end object pRight: TPanel[5] Left = 294 - Height = 279 - Top = 131 + Height = 271 + Top = 148 Width = 342 Align = alRight - ChildSizing.LeftRightSpacing = 4 - ChildSizing.TopBottomSpacing = 4 - ChildSizing.HorizontalSpacing = 4 - ChildSizing.VerticalSpacing = 4 - ClientHeight = 279 - ClientWidth = 342 + BevelOuter = bvNone TabOrder = 3 - object lMAMEExe: TLabel - Left = 5 - Height = 15 - Top = 5 - Width = 332 - Align = alTop - Caption = 'Ejecutable de MAME' - ParentColor = False + end + object pTop2: TPanel[6] + Left = 4 + Height = 23 + Top = 121 + Width = 632 + Align = alTop + AutoSize = True + BevelOuter = bvNone + ChildSizing.HorizontalSpacing = 4 + ClientHeight = 23 + ClientWidth = 632 + TabOrder = 6 + object pEjecutable: TPanel + Left = 205 + Height = 23 + Top = 0 + Width = 427 + Align = alClient + BevelOuter = bvNone + ChildSizing.HorizontalSpacing = 4 + ClientHeight = 23 + ClientWidth = 427 + TabOrder = 1 + object bOpenFolder: TSpeedButton + Left = 0 + Height = 23 + Top = 0 + Width = 23 + Action = actpuCarpetas + Align = alLeft + ShowCaption = False + PopupMenu = pumAbrirCarpetas + end + object lMAMEExe: TLabel + Left = 27 + Height = 23 + Top = 0 + Width = 400 + Align = alClient + Caption = 'Ejecutable de MAME' + Layout = tlCenter + ParentColor = False + WordWrap = True + end + end + object pNick: TPanel + Left = 0 + Height = 23 + Top = 0 + Width = 201 + Align = alLeft + BevelOuter = bvNone + ChildSizing.HorizontalSpacing = 4 + ClientHeight = 23 + ClientWidth = 201 + TabOrder = 0 + object lNick: TLabel + Left = 0 + Height = 23 + Top = 0 + Width = 27 + Align = alLeft + Caption = 'Nick:' + Layout = tlCenter + ParentColor = False + end + object eNick: TEdit + Left = 31 + Height = 23 + Top = 0 + Width = 170 + Align = alClient + TabOrder = 0 + TextHint = 'Escribe tu nick en el foro LNS' + end end end - inherited IniPropStorage: TIniPropStorage[6] + inherited IniPropStorage: TIniPropStorage[7] end - object ActionList: TActionList[7] + object ActionList: TActionList[8] Images = ilActions left = 304 top = 136 @@ -2487,12 +2515,47 @@ inherited frmLNSCompFE: TfrmLNSCompFE ImageIndex = 1 OnExecute = actReproducirINPExecute end + object actpuCarpetas: TAction + Category = 'Carpetas' + Caption = 'Carpetas' + Hint = 'muestra el menú para abrir las distintas carpetas en el explorador.' + ImageIndex = 5 + OnExecute = actpuCarpetasExecute + end + object actAbrirCarpetaMAME: TAction + Category = 'Carpetas' + Caption = 'Abrir carpeta de MAME...' + Hint = 'Abre la carpeta de MAME con el explorador.' + ImageIndex = 6 + OnExecute = actAbrirCarpetaMAMEExecute + end + object actAbrirCarpetaINP: TAction + Category = 'Carpetas' + Caption = 'Abrir carpeta de INP...' + Hint = 'Abre la carpeta de INP con el explorador.' + ImageIndex = 6 + OnExecute = actAbrirCarpetaINPExecute + end + object actAbrirCarpetaImages: TAction + Category = 'Carpetas' + Caption = 'Abrir carpeta de imágenes...' + Hint = 'Abre la carpeta de imágenes con el explorador.' + ImageIndex = 6 + OnExecute = actAbrirCarpetaImagesExecute + end + object actAbrirCarpetaNVRAM: TAction + Category = 'Carpetas' + Caption = 'Abrir carpeta de NVRAM...' + Hint = 'Abre la carpeta de NVRAM con el explorador.' + ImageIndex = 6 + OnExecute = actAbrirCarpetaNVRAMExecute + end end - object ilActions: TImageList[8] + object ilActions: TImageList[9] left = 304 top = 200 Bitmap = { - 4C69050000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + 4C69070000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF @@ -2652,13 +2715,94 @@ inherited frmLNSCompFE: TfrmLNSCompFE 00150000000F0000000A00000007000000080000000D00000012000075910000 9DCC8888FFFF00009ACB00009A0004040400060606890505056A000000320000 00290000001E000000130000000E0000001000000019000000240000002E0000 - 7194000098CC0000617400003C00 + 7194000098CC0000617400003C0000000000005B89000087CB000088CC000087 + CB000088CC610088CC810088CC810088CC810088CC810088CC810088CC810088 + CC810088CC810088CC610087CB000087CB000088CC000087CB000088CC000088 + CC000087CA83B1F5FFFFAEF2FFFFAEF2FFFFAEF2FFFFAEF2FFFFAEF2FFFFAEF2 + FFFFB1F5FFFF0087CA830087CA000087CB000088CC000087CB000088CC610088 + CC810087CAC355BBE5FF53B8E4FF53B8E4FF53B8E4FF53B8E4FF53B8E4FF68C5 + EAFFABEFFEFF0085C7860085C7000087CB000088CC000088CC000087CA83B1F5 + FFFFAEF2FFFFAEF2FFFFAEF2FFFFAEF2FFFFAEF2FFFFAEF2FFFFB1F5FFFF4FB5 + E2FFA6EBFCFF0083C3890083C3000087CB000088CC610088CC810087CAC355BB + E5FF53B8E4FF53B8E4FF53B8E4FF53B8E4FF53B8E4FF68C5EAFFABEFFEFF4CB2 + DFFF9ADFF3FF0080C08C007FBE070087CA000087CA83B1F5FFFFAEF2FFFFAEF2 + FFFFAEF2FFFFAEF2FFFFAEF2FFFFAEF2FFFFB1F5FFFF4FB5E2FFA6EBFCFF46AB + D9FF6FB3D5FF409ECDAC007DBC740085C7000085C786ABEFFEFFA6EAFDFFA6EA + FDFFA6EAFDFFA6EAFDFFA6EAFDFFA6EAFDFFABEFFEFF4CB2DFFF9ADFF3FF3095 + C8FF89D0ECFFF8F8F4FF007AB8940083C3000083C389A6EBFCFFA1E6FBFFA1E6 + FBFFA1E6FBFFA1E6FBFFA1E6FBFFA1E6FBFFA6EBFCFF46ABD9FF6FB3D5FF62AD + D3FF50B0DAFFECECE0FF0077B3980080C0000080C08CA2E7FAFF9CE2F8FF9CE2 + F8FF9CE2F8FF9CE2F8FF9CE2F8FF9FE5F9FF9ADFF3FF3095C8FF89D0ECFFF8F8 + F4FF3AA0D0FFFEC941FF0074AF9C007DBC00007DBC909CE2F8FF96DDF5FF96DD + F5FF96DDF5FF96DDF5FF99E0F7FF96DAF1FF6FB3D5FF62ADD3FF50B0DAFFECEC + E0FF369BCBFFF4B62EFF0071AAA1007AB800007AB89496DDF5FF8FD7F1FF8FD7 + F1FF8FD7F1FF8FD7F1FF96DDF5FF6BAFD1FF8DD3EDFFF8F8F4FF3AA0D0FFFEC9 + 41FF3598C9FF00689DAD004F773C0077B3000077B39890D8F3FF89D2EEFF89D2 + EEFF89D2EEFF89D2EEFF90D8F3FF67ABCDFF90D8F3FFECECE0FF369BCBFFF4B6 + 2EFF006BA2E700476B99000000220074AF000074AF9C8BD3F1FF83CDEBFF83CD + EBFF83CDEBFF83CDEBFF8BD3F1FF63A7C9FF8BD3F1FFFEC941FF3598C9FF0063 + 95B6003E5C4C0000001A00000011005580000071AAA186D0EFFF7EC9E9FF7EC9 + E9FF7EC9E9FF7EC9E9FF86D0EFFF5FA3C5FF86D0EFFFF4B62EFF006BA2E70047 + 6B990000002200000000000000000000001000689DAD86CFF0FF82CCEDFF82CC + EDFF82CCEDFF82CCEDFF86CFF0FF5296B8FF86CFF0FF006395B600334C590000 + 001A0000001100000000000000000000000000476B99005E8DBC005E8DBC005E + 8DBC005E8DBC005E8DBC005E8DBC005E8DBC005E8DBC00476B99000000220000 + 00000000000000000000000000000087CB000087CB000088CC610088CC810088 + CC810088CC810088CC810088CC810088CC810088CC810088CC810088CC810088 + CC810088CC610087CB000087CB000087CA000087CA000087CA8388DCF4FF60C0 + E9FF5FBFEAFF80D3F4FF9CE3FDFFA2E6FFFFA2E6FFFFA2E6FFFFA2E6FFFFA6EA + FFFF0087CA830087CA000087CA000085C8000085C8000085C885ADF1FFFFABEF + FEFF95E2F8FF6EC9EDFF48A9D9FF98DCFEFF98DCFEFF98DCFEFF98DCFEFFA1E5 + FFFF0085C8850085C8000085C8000084C5000084C5000084C587A9EEFDFFA4E9 + FCFFA4E9FCFFAAEFFDFF42A1D1FF90D1F1FF96DAFBFF97DBFDFF97DBFDFF9FE3 + FEFF0084C5870084C5000084C5000082C2000082C2000082C28AA6EBFCFFA1E6 + FBFFA1E6FBFFA6EBFCFF3C9DCFFF87C4E2FF87C4E2FF96DAFCFF96DAFCFF9EE2 + FDFF0082C28A0082C2000082C200007FBF00007FBF00007FBF8DA3E8FBFF9DE3 + F9FF9DE3F9FFA3E8FBFF3594C5FF85C2E1FF85C2E1FF94D8FAFF94D8FAFF9BDF + FCFF007FBF8D007FBE00007EBD00007DBB00007DBB00007DBB909EE5F9FF98DF + F6FF98DFF6FF9EE5F9FF3290C0FF83C0DFFF83C0DFFF92D6F8FF92D6F8FF99DD + FAFF007DBB90007DBB33007CBA00007BB800007BB800007BB8949BE1F7FF94DB + F4FF94DBF4FF9BE1F7FF308DBCFF81BEDDFF81BEDDFF90D4F6FF90D4F6FF97DB + F9FFFEFEFDFF007BB894007BB8000078B4000078B4000078B49797DEF6FF90D8 + F2FF90D8F2FF97DEF6FF2D89B7FF80BDDCFF80BDDCFF8FD3F5FF8FD3F5FF95D9 + F8FFF5F5EEFF0078B4970078B4000076B0000076B0000076B09B92DAF4FF8BD4 + F0FF8BD4F0FF92DAF4FF2B85B3FF7FBCDAFF7FBCDAFF8DD1F3FF8DD1F3FF93D7 + F6FFEBEBDDFF0076B09B0076B000005782000073AC000073AC9E8ED6F2FF87D0 + EDFF87D0EDFF8ED6F2FF2882AFFF7DBAD8FF7DBAD8FF8BCFF1FF8BCFF1FF91D5 + F5FFFEC941FF0073AC9E0073AC000000000000547E00006FA7A48AD3F0FF82CD + EBFF82CDEBFF8AD3F0FF267EABFF7CB9D8FF7CB9D8FF8ACEF0FF8ACEF0FF8FD3 + F4FFF4B62EFF006FA7A400547E000000000900000012006699B288D0EFFF7FCA + E9FF7FCAE9FF87D0EFFF267DA9FF7FBCDBFF7FBCDBFF8DD1F3FF8DD1F3FF90D4 + F5FF006699B20042634D00000009000000110000002400466A983590BDF269B8 + DDFA82CBECFF85CEEEFF005C8BEF005079C4005079C4005D8CBE005D8CBE005D + 8CBE00466A9800000024000000110000000000000000002E4500006599500064 + 97991C7AA9C052A5CDE0005B89C10000001A00283C07005B8900005B8900005B + 8900002E450000000000000000000000000000000000002E4500006497000062 + 9300005E8E30005C8C7C005987920000000700283C00005B8900005B8900005B + 8900002E45000000000000000000 } end - object OpenINP: TOpenDialog[9] + object OpenINP: TOpenDialog[10] DefaultExt = '.inp' Options = [ofNoChangeDir, ofFileMustExist, ofEnableSizing, ofViewDetail] left = 304 top = 264 end + object pumAbrirCarpetas: TPopupMenu[11] + Images = ilActions + left = 594 + top = 198 + object pmiAbrirMAMEFolder: TMenuItem + Action = actAbrirCarpetaMAME + end + object pmiAbrirINPFolder: TMenuItem + Action = actAbrirCarpetaINP + end + object pmiAbrirImagesFolder: TMenuItem + Action = actAbrirCarpetaImages + end + object pmiAbrirNVRAMFolder: TMenuItem + Action = actAbrirCarpetaNVRAM + end + end end diff --git a/Source/Forms/ufrLNSCompFE.pas b/Source/Forms/ufrLNSCompFE.pas index 8604962..6e8cf83 100644 --- a/Source/Forms/ufrLNSCompFE.pas +++ b/Source/Forms/ufrLNSCompFE.pas @@ -6,8 +6,8 @@ interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, - ComCtrls, ExtCtrls, ActnList, IniPropStorage, Buttons, StdCtrls, - LazFileUtils, StrUtils, dateutils, LazUTF8, inifiles, process, + ComCtrls, ExtCtrls, ActnList, IniPropStorage, Buttons, StdCtrls, Menus, + LazFileUtils, StrUtils, dateutils, LazUTF8, inifiles, process, LCLIntf, // Misc units uVersionSupport, // CHX units @@ -81,12 +81,18 @@ TfrmLNSCompFE = class(TfrmCHXForm) actEditarConfig: TAction; actGrabarAVI: TAction; actGrabarINP: TAction; + actAbrirCarpetaMAME: TAction; + actAbrirCarpetaINP: TAction; + actAbrirCarpetaImages: TAction; + actAbrirCarpetaNVRAM: TAction; + actpuCarpetas: TAction; actReproducirINP: TAction; actProbarJuego: TAction; ActionList: TActionList; bConfig: TBitBtn; bGrabarAVI: TBitBtn; bJugar: TBitBtn; + bOpenFolder: TSpeedButton; bProbar: TBitBtn; bReproducir: TBitBtn; eNick: TEdit; @@ -94,19 +100,31 @@ TfrmLNSCompFE = class(TfrmCHXForm) iLogo: TImage; lMAMEExe: TLabel; lNick: TLabel; + pmiAbrirNVRAMFolder: TMenuItem; + pmiAbrirImagesFolder: TMenuItem; + pmiAbrirINPFolder: TMenuItem; + pmiAbrirMAMEFolder: TMenuItem; OpenINP: TOpenDialog; pBottom: TPanel; + pEjecutable: TPanel; pMain: TPanel; pNick: TPanel; pRight: TPanel; pTop: TPanel; + pTop2: TPanel; + pumAbrirCarpetas: TPopupMenu; rgbJuegos: TRadioGroup; Splitter1: TSplitter; StatusBar1: TStatusBar; + procedure actAbrirCarpetaImagesExecute(Sender: TObject); + procedure actAbrirCarpetaINPExecute(Sender: TObject); + procedure actAbrirCarpetaMAMEExecute(Sender: TObject); + procedure actAbrirCarpetaNVRAMExecute(Sender: TObject); procedure actEditarConfigExecute(Sender: TObject); procedure actGrabarAVIExecute(Sender: TObject); procedure actGrabarINPExecute(Sender: TObject); procedure actProbarJuegoExecute(Sender: TObject); + procedure actpuCarpetasExecute(Sender: TObject); procedure actReproducirINPExecute(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); @@ -251,6 +269,26 @@ procedure TfrmLNSCompFE.actEditarConfigExecute(Sender: TObject); ActualizarConfig; end; +procedure TfrmLNSCompFE.actAbrirCarpetaMAMEExecute(Sender: TObject); +begin + OpenDocument(ExtractFilePath(MAMEExe)); +end; + +procedure TfrmLNSCompFE.actAbrirCarpetaNVRAMExecute(Sender: TObject); +begin + OpenDocument(NVRAMFolder); +end; + +procedure TfrmLNSCompFE.actAbrirCarpetaINPExecute(Sender: TObject); +begin + OpenDocument(INPFolder); +end; + +procedure TfrmLNSCompFE.actAbrirCarpetaImagesExecute(Sender: TObject); +begin + OpenDocument(ImagesFolder); +end; + procedure TfrmLNSCompFE.actGrabarAVIExecute(Sender: TObject); begin CrearAVI; @@ -266,6 +304,11 @@ procedure TfrmLNSCompFE.actProbarJuegoExecute(Sender: TObject); ProbarJuego; end; +procedure TfrmLNSCompFE.actpuCarpetasExecute(Sender: TObject); +begin + pumAbrirCarpetas.PopUp; +end; + procedure TfrmLNSCompFE.actReproducirINPExecute(Sender: TObject); begin ReproducirINP; diff --git a/Source/LNSCompFE.lpi b/Source/LNSCompFE.lpi index 2ab3a3d..09ceb05 100644 --- a/Source/LNSCompFE.lpi +++ b/Source/LNSCompFE.lpi @@ -23,8 +23,8 @@ - - + + diff --git a/Source/LNSCompFE.res b/Source/LNSCompFE.res index 6cdf3465d79dc7d216c3d8547a1b1c88ba5c39e9..7e1e1d276e78fb52fbc2b218aaabe25d48b424d6 100644 GIT binary patch delta 37 tcmbQ;%`>~3XTu3LW=;m?&8OKknOTh)^cXCge{#0}~3XTu3LW)23X&8OKknOTh(^cXCfe{#0}