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

uViewDetallesBase: Fallo al pegar desde el portapapeles. Pega siempre en los conceptos aunque el usuario no esté trabajando en el grid.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@661 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-10-03 08:43:00 +00:00
parent e3d660e36d
commit ad0b8c241e
2 changed files with 38 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -10,7 +10,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 451
Height = 73 Height = 68
AutoSize = True AutoSize = True
ButtonWidth = 141 ButtonWidth = 141
Caption = 'ToolBar1' Caption = 'ToolBar1'
@ -42,29 +42,30 @@ 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 = 184 Left = 0
Top = 0 Top = 22
Action = actBajar Action = actBajar
AutoSize = True AutoSize = True
end end
object ToolButton14: TToolButton object ToolButton14: TToolButton
Left = 240 Left = 56
Top = 0 Top = 22
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 = 22 Top = 44
Width = 145 Width = 145
Height = 22 Height = 22
DroppedDownWidth = 145 DroppedDownWidth = 145
MaxMRUCount = 0 MaxMRUCount = 0
FontName = 'Tahoma' FontName = 'Tahoma'
ItemIndex = 39 ItemIndex = 40
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg] Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
Sorted = True Sorted = True
TabOrder = 2 TabOrder = 2
@ -74,7 +75,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object FontSize: TEdit object FontSize: TEdit
Left = 145 Left = 145
Top = 22 Top = 44
Width = 26 Width = 26
Height = 22 Height = 22
Hint = 'Font Size|Select font size' Hint = 'Font Size|Select font size'
@ -85,7 +86,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object UpDown1: TUpDown object UpDown1: TUpDown
Left = 171 Left = 171
Top = 22 Top = 44
Width = 16 Width = 16
Height = 22 Height = 22
Associate = FontSize Associate = FontSize
@ -94,7 +95,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 187 Left = 187
Top = 22 Top = 44
Width = 8 Width = 8
Caption = 'ToolButton13' Caption = 'ToolButton13'
ImageIndex = 10 ImageIndex = 10
@ -102,55 +103,54 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 195 Left = 195
Top = 22 Top = 44
Action = RichEditBold1 Action = RichEditBold1
AutoSize = True AutoSize = True
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 261 Left = 261
Top = 22 Top = 44
Action = RichEditItalic1 Action = RichEditItalic1
AutoSize = True AutoSize = True
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 328 Left = 328
Top = 22 Top = 44
Action = RichEditUnderline1 Action = RichEditUnderline1
AutoSize = True AutoSize = True
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 0 Left = 411
Top = 22 Top = 44
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 = 0 Left = 419
Top = 49 Top = 44
Action = RichEditAlignLeft1 Action = RichEditAlignLeft1
AutoSize = True AutoSize = True
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 145 Left = 564
Top = 49 Top = 44
Action = RichEditAlignCenter1 Action = RichEditAlignCenter1
AutoSize = True AutoSize = True
end end
object ToolButton11: TToolButton object ToolButton11: TToolButton
Left = 270 Left = 689
Top = 49 Top = 44
Action = RichEditAlignRight1 Action = RichEditAlignRight1
AutoSize = True AutoSize = True
end end
end end
object cxGrid: TcxGrid object cxGrid: TcxGrid
Left = 0 Left = 0
Top = 99 Top = 94
Width = 451 Width = 451
Height = 205 Height = 210
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -161,6 +161,8 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 1 TabOrder = 1
LookAndFeel.Kind = lfStandard LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitTop = 99
ExplicitHeight = 205
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
FilterBox.Visible = fvNever FilterBox.Visible = fvNever
@ -340,11 +342,12 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object TBXDock1: TTBXDock object TBXDock1: TTBXDock
Left = 0 Left = 0
Top = 73 Top = 68
Width = 451 Width = 451
Height = 26 Height = 26
BackgroundOnToolbars = False BackgroundOnToolbars = False
UseParentBackground = True UseParentBackground = True
ExplicitTop = 73
object TBXToolbar1: TTBXToolbar object TBXToolbar1: TTBXToolbar
Left = 0 Left = 0
Top = 0 Top = 0

19
Source/GUIBase/uViewDetallesBase.pas
View File

@ -328,7 +328,7 @@ end;
procedure TfrViewDetallesBase.actAnadirCapituloUpdate(Sender: TObject); procedure TfrViewDetallesBase.actAnadirCapituloUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := not ReadOnly; (Sender as TAction).Enabled := not ReadOnly and (cxGrid.Focused);
end; end;
procedure TfrViewDetallesBase.actAnadirDescuentoExecute(Sender: TObject); procedure TfrViewDetallesBase.actAnadirDescuentoExecute(Sender: TObject);
@ -362,7 +362,7 @@ end;
procedure TfrViewDetallesBase.actAnadirDescuentoUpdate(Sender: TObject); procedure TfrViewDetallesBase.actAnadirDescuentoUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := not ReadOnly; (Sender as TAction).Enabled := not ReadOnly and (cxGrid.Focused);
end; end;
procedure TfrViewDetallesBase.actAnadirExecute(Sender: TObject); procedure TfrViewDetallesBase.actAnadirExecute(Sender: TObject);
@ -424,7 +424,7 @@ end;
procedure TfrViewDetallesBase.actAnadirSubtotalUpdate(Sender: TObject); procedure TfrViewDetallesBase.actAnadirSubtotalUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := not ReadOnly; (Sender as TAction).Enabled := not ReadOnly and (cxGrid.Focused);
end; end;
procedure TfrViewDetallesBase.actAnadirTituloExecute(Sender: TObject); procedure TfrViewDetallesBase.actAnadirTituloExecute(Sender: TObject);
@ -548,7 +548,7 @@ end;
procedure TfrViewDetallesBase.DoPasteText(Sender: TObject; AText: string); procedure TfrViewDetallesBase.DoPasteText(Sender: TObject; AText: string);
begin begin
ShowMessage(AText); // ShowMessage(AText);
end; end;
procedure TfrViewDetallesBase.ContraerTodo; procedure TfrViewDetallesBase.ContraerTodo;
@ -1078,7 +1078,7 @@ end;
procedure TfrViewDetallesBase.actAnchoAutomaticoUpdate(Sender: TObject); procedure TfrViewDetallesBase.actAnchoAutomaticoUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := not IsEmpty; (Sender as TAction).Enabled := not IsEmpty and (cxGrid.Focused);
end; end;
procedure TfrViewDetallesBase.actBajarExecute(Sender: TObject); procedure TfrViewDetallesBase.actBajarExecute(Sender: TObject);
@ -1118,7 +1118,7 @@ end;
procedure TfrViewDetallesBase.actDetallesCopiarUpdate(Sender: TObject); procedure TfrViewDetallesBase.actDetallesCopiarUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := Assigned(cxGridView.Controller.FocusedRow) (Sender as TAction).Enabled := Assigned(cxGridView.Controller.FocusedRow);
end; end;
procedure TfrViewDetallesBase.actDetallesCortarExecute(Sender: TObject); procedure TfrViewDetallesBase.actDetallesCortarExecute(Sender: TObject);
@ -1135,7 +1135,7 @@ 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);
end; end;
procedure TfrViewDetallesBase.actDetallesPegarExecute(Sender: TObject); procedure TfrViewDetallesBase.actDetallesPegarExecute(Sender: TObject);
@ -1151,7 +1151,8 @@ end;
procedure TfrViewDetallesBase.actDetallesPegarUpdate(Sender: TObject); procedure TfrViewDetallesBase.actDetallesPegarUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := HayDatosEnPortapapeles; (Sender as TAction).Enabled := Assigned(cxGridView.Controller.FocusedRow) and
HayDatosEnPortapapeles;
end; end;
procedure TfrViewDetallesBase.actSeleccionarTodoExecute(Sender: TObject); procedure TfrViewDetallesBase.actSeleccionarTodoExecute(Sender: TObject);
@ -1163,7 +1164,7 @@ end;
procedure TfrViewDetallesBase.actSeleccionarTodoUpdate(Sender: TObject); procedure TfrViewDetallesBase.actSeleccionarTodoUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := Assigned(DADataSource.DataTable); (Sender as TAction).Enabled := Assigned(DADataSource.DataTable) and (cxGrid.Focused);
end; end;
procedure TfrViewDetallesBase.actSubirExecute(Sender: TObject); procedure TfrViewDetallesBase.actSubirExecute(Sender: TObject);