diff --git a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dpk b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dpk new file mode 100644 index 00000000..8c1d576e --- /dev/null +++ b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dpk @@ -0,0 +1,43 @@ +package Ejercicios_plugin; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} +{$DEFINE DEBUG} + +requires + rtl, + vcl, + Base, + GUIBase, + ApplicationBase, + PluginSDK_D10R, + PngComponentsD10, + PNG_D10, + vclactnband, + vclx; + +contains + uPluginEjercicios in 'uPluginEjercicios.pas'; + +end. diff --git a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dproj b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dproj new file mode 100644 index 00000000..40d39742 --- /dev/null +++ b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dproj @@ -0,0 +1,583 @@ + + + {034ed8d0-77f5-4edb-93cb-a4c96de2e4af} + Ejercicios_plugin.dpk + Debug + AnyCPU + DCC32 + C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\Ejercicios_plugin.bpl + + + 7.0 + False + False + 0 + DEBUG;RELEASE + + + 7.0 + DEBUG + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + + + + + + + + + ExpressPrinting System by Developer Express Inc. + Microsoft Office 2000 Sample Automation Server Wrapper Components + Microsoft Office XP Sample Automation Server Wrapper Components + + + Ejercicios_plugin.dpk + + + + + + + MainSource + + + + + + + + + + + + + + + + + diff --git a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc new file mode 100644 index 00000000..153736af --- /dev/null +++ b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.res b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.res new file mode 100644 index 00000000..02236de8 Binary files /dev/null and b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.res differ diff --git a/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.dfm b/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.dfm new file mode 100644 index 00000000..92379e83 --- /dev/null +++ b/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.dfm @@ -0,0 +1,81 @@ +object PluginEjercicios: TPluginEjercicios + OldCreateOrder = True + DefaultAction = actEjercicios + Description = 'Ejercicios' + ModuleMenu = MainMenu + ModuleName = 'Ejercicios' + SmallImages = SmallImages + LargeImages = SmallImages + Author = 'Rodax Software' + Version = '1.0.0' + Height = 252 + Width = 401 + object LargeImages: TPngImageList + Height = 24 + Width = 24 + PngImages = <> + Left = 232 + Top = 16 + end + object ModuleActionList: TActionList + Images = SmallImages + Left = 40 + Top = 72 + object actEjercicios: TAction + Category = 'Ejercicios' + Caption = 'Ejercicios' + ImageIndex = 0 + OnExecute = actEjerciciosExecute + end + end + object MainMenu: TMainMenu + Images = LargeImages + Left = 40 + Top = 16 + object Ventas1: TMenuItem + Caption = 'Contabilidad' + object N1: TMenuItem + Tag = 18990 + Caption = '-' + end + object Ejercicios1: TMenuItem + Tag = 19001 + Action = actEjercicios + end + end + end + object SmallImages: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6 + B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77 + EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5 + E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D + 6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D + C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6 + 4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141 + 4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15 + F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334 + 2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524 + 15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256 + 20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4 + 3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F + E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end> + PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] + Left = 308 + Top = 16 + Bitmap = {} + end + object ExtraImages: TPngImageList + Height = 28 + Width = 28 + PngImages = <> + Left = 232 + Top = 80 + end +end diff --git a/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.pas b/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.pas new file mode 100644 index 00000000..5e2d1198 --- /dev/null +++ b/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.pas @@ -0,0 +1,74 @@ +unit uPluginEjercicios; + +interface + +uses + uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, + ImgList, Controls, PngImageList; + +type + IMCEjercicios = interface(IInterface) + ['{255E8D6B-282A-48CC-9807-E49C7D31FD2D}'] + end; + + TPluginEjercicios = class(TModuleController, IMCEjercicios) + actEjercicios: TAction; + ExtraImages: TPngImageList; + LargeImages: TPngImageList; + MainMenu: TMainMenu; + ModuleActionList: TActionList; + SmallImages: TPngImageList; + Ventas1: TMenuItem; + Ejercicios1: TMenuItem; + N1: TMenuItem; + procedure actEjerciciosExecute(Sender: TObject); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +{$R *.dfm} + +uses + Forms, Dialogs, SysUtils, + uEjerciciosController, uBizEjercicios, uEjerciciosViewRegister; + +function GetModule : TModuleController; +begin + Result := TPluginEjercicios.Create(NIL); +end; + +exports + GetModule name GET_MODULE_FUNC; + +procedure TPluginEjercicios.actEjerciciosExecute(Sender: TObject); +var + AEjerciciosController : IEjerciciosController; + AEjercicios : IBizEjercicio; +begin + AEjerciciosController := TEjerciciosController.Create; + AEjercicios := (AEjerciciosController.BuscarTodos as IBizEjercicio); + AEjerciciosController.VerTodos(AEjercicios); +end; + +constructor TPluginEjercicios.Create(AOwner: TComponent); +begin + inherited; + uEjerciciosViewRegister.RegisterViews; +end; + +destructor TPluginEjercicios.Destroy; +begin + uEjerciciosViewRegister.UnregisterViews; + inherited; +end; + +initialization + RegisterModuleClass(TPluginEjercicios); + +finalization + UnRegisterModuleClass(TPluginEjercicios); + +end.