Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

uViewDetallesBase: deshabilitar acciones cuando el dataset es de sólo lectura.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@669 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-10-08 11:21:24 +00:00
parent a05aa3f5b8
commit 531d5f1aac
2 changed files with 36 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -1,6 +1,6 @@
inherited frViewDetallesBase: TfrViewDetallesBase inherited frViewDetallesBase: TfrViewDetallesBase
Width = 451 Width = 480
Height = 304 Height = 379
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 480
Height = 68 Height = 73
AutoSize = True AutoSize = True
ButtonWidth = 141 ButtonWidth = 141
Caption = 'ToolBar1' Caption = 'ToolBar1'
@ -25,6 +25,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 0 TabOrder = 0
Transparent = True Transparent = True
Visible = False Visible = False
ExplicitWidth = 451
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -42,24 +43,23 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Top = 0 Top = 0
Action = actSubir Action = actSubir
AutoSize = True AutoSize = True
Wrap = True
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 0 Left = 184
Top = 22 Top = 0
Action = actBajar Action = actBajar
AutoSize = True AutoSize = True
end end
object ToolButton14: TToolButton object ToolButton14: TToolButton
Left = 56 Left = 240
Top = 22 Top = 0
Action = FontEdit1 Action = FontEdit1
AutoSize = True AutoSize = True
Wrap = True Wrap = True
end end
object FontName: TJvFontComboBox object FontName: TJvFontComboBox
Left = 0 Left = 0
Top = 44 Top = 22
Width = 145 Width = 145
Height = 22 Height = 22
DroppedDownWidth = 145 DroppedDownWidth = 145
@ -75,7 +75,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object FontSize: TEdit object FontSize: TEdit
Left = 145 Left = 145
Top = 44 Top = 22
Width = 26 Width = 26
Height = 22 Height = 22
Hint = 'Font Size|Select font size' Hint = 'Font Size|Select font size'
@ -86,7 +86,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object UpDown1: TUpDown object UpDown1: TUpDown
Left = 171 Left = 171
Top = 44 Top = 22
Width = 16 Width = 16
Height = 22 Height = 22
Associate = FontSize Associate = FontSize
@ -95,7 +95,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 187 Left = 187
Top = 44 Top = 22
Width = 8 Width = 8
Caption = 'ToolButton13' Caption = 'ToolButton13'
ImageIndex = 10 ImageIndex = 10
@ -103,54 +103,55 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 195 Left = 195
Top = 44 Top = 22
Action = RichEditBold1 Action = RichEditBold1
AutoSize = True AutoSize = True
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 261 Left = 261
Top = 44 Top = 22
Action = RichEditItalic1 Action = RichEditItalic1
AutoSize = True AutoSize = True
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 328 Left = 328
Top = 44 Top = 22
Action = RichEditUnderline1 Action = RichEditUnderline1
AutoSize = True AutoSize = True
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 411 Left = 0
Top = 44 Top = 22
Width = 8 Width = 8
Caption = 'ToolButton12' Caption = 'ToolButton12'
ImageIndex = 10 ImageIndex = 10
Wrap = True
Style = tbsSeparator Style = tbsSeparator
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 419 Left = 0
Top = 44 Top = 49
Action = RichEditAlignLeft1 Action = RichEditAlignLeft1
AutoSize = True AutoSize = True
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 564 Left = 145
Top = 44 Top = 49
Action = RichEditAlignCenter1 Action = RichEditAlignCenter1
AutoSize = True AutoSize = True
end end
object ToolButton11: TToolButton object ToolButton11: TToolButton
Left = 689 Left = 270
Top = 44 Top = 49
Action = RichEditAlignRight1 Action = RichEditAlignRight1
AutoSize = True AutoSize = True
end end
end end
object cxGrid: TcxGrid object cxGrid: TcxGrid
Left = 0 Left = 0
Top = 94 Top = 99
Width = 451 Width = 480
Height = 210 Height = 280
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -161,7 +162,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 1 TabOrder = 1
LookAndFeel.Kind = lfStandard LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitTop = 99 ExplicitWidth = 451
ExplicitHeight = 205 ExplicitHeight = 205
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -342,12 +343,12 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object TBXDock1: TTBXDock object TBXDock1: TTBXDock
Left = 0 Left = 0
Top = 68 Top = 73
Width = 451 Width = 480
Height = 26 Height = 26
BackgroundOnToolbars = False BackgroundOnToolbars = False
UseParentBackground = True UseParentBackground = True
ExplicitTop = 73 ExplicitWidth = 451
object TBXToolbar1: TTBXToolbar object TBXToolbar1: TTBXToolbar
Left = 0 Left = 0
Top = 0 Top = 0

7
Source/GUIBase/uViewDetallesBase.pas
View File

@ -1135,7 +1135,8 @@ end;
procedure TfrViewDetallesBase.actDetallesCortarUpdate(Sender: TObject); procedure TfrViewDetallesBase.actDetallesCortarUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := Assigned(cxGridView.Controller.FocusedRow); (Sender as TAction).Enabled := Assigned(cxGridView.Controller.FocusedRow)
and not ReadOnly ;
end; end;
procedure TfrViewDetallesBase.actDetallesPegarExecute(Sender: TObject); procedure TfrViewDetallesBase.actDetallesPegarExecute(Sender: TObject);
@ -1151,8 +1152,8 @@ end;
procedure TfrViewDetallesBase.actDetallesPegarUpdate(Sender: TObject); procedure TfrViewDetallesBase.actDetallesPegarUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := Assigned(cxGridView.Controller.FocusedRow) and (Sender as TAction).Enabled := Assigned(cxGridView.Controller.FocusedRow)
HayDatosEnPortapapeles; and not ReadOnly and HayDatosEnPortapapeles;
end; end;
procedure TfrViewDetallesBase.actSeleccionarTodoExecute(Sender: TObject); procedure TfrViewDetallesBase.actSeleccionarTodoExecute(Sender: TObject);