diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 1641339f..8b251f31 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/GUIBase/uViewDetallesGenerico.dfm b/Source/GUIBase/uViewDetallesGenerico.dfm index 3afdb87e..c672004e 100644 --- a/Source/GUIBase/uViewDetallesGenerico.dfm +++ b/Source/GUIBase/uViewDetallesGenerico.dfm @@ -73,19 +73,19 @@ inherited frViewDetallesGenerico: TfrViewDetallesGenerico Transparent = True object ToolButton1: TToolButton Left = 0 - Top = 2 + Top = 0 Action = actAnadir AutoSize = True end object ToolButton4: TToolButton Left = 62 - Top = 2 + Top = 0 Action = actModificar AutoSize = True end object ToolButton5: TToolButton Left = 136 - Top = 2 + Top = 0 Width = 8 Caption = 'ToolButton5' ImageIndex = 2 @@ -93,13 +93,13 @@ inherited frViewDetallesGenerico: TfrViewDetallesGenerico end object ToolButton2: TToolButton Left = 144 - Top = 2 + Top = 0 Action = actEliminar AutoSize = True end object ToolButton6: TToolButton Left = 211 - Top = 2 + Top = 0 Width = 8 Caption = 'ToolButton6' ImageIndex = 2 @@ -107,7 +107,7 @@ inherited frViewDetallesGenerico: TfrViewDetallesGenerico end object ToolButton7: TToolButton Left = 219 - Top = 2 + Top = 0 Action = actAnchoAutomatico AutoSize = True end diff --git a/Source/GUIBase/uViewDetallesGenerico.pas b/Source/GUIBase/uViewDetallesGenerico.pas index 6261decc..1689fae0 100644 --- a/Source/GUIBase/uViewDetallesGenerico.pas +++ b/Source/GUIBase/uViewDetallesGenerico.pas @@ -11,7 +11,11 @@ uses cxControls, cxGridCustomView, cxGrid, uDAInterfaces; type - TfrViewDetallesGenerico = class(TfrViewBase) + IViewDetallesGenerico = interface(IViewBase) + ['{CA4BD183-1DCD-453D-A1A2-A3B7349BBE40}'] + end; + + TfrViewDetallesGenerico = class(TfrViewBase, IViewDetallesGenerico) cxGrid: TcxGrid; cxGridView: TcxGridDBTableView; cxGridViewID: TcxGridDBColumn;