From d6e91877cf4186881d05b6dcfa8d71f88f9d74b9 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 9 Jul 2009 08:31:23 +0000 Subject: [PATCH] Repaso a mensajes de warnings y hints git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@961 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/GUIBase/uViewDetallesBase.dfm | 51 +++++++++++++++------------- Source/GUIBase/uViewDetallesBase.pas | 16 ++++----- Source/GUIBase/uViewDocumentos.pas | 2 -- Source/GUIBase/uViewGridBase.pas | 6 ++-- 4 files changed, 37 insertions(+), 38 deletions(-) diff --git a/Source/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm index 4b846e7e..e4773168 100644 --- a/Source/GUIBase/uViewDetallesBase.dfm +++ b/Source/GUIBase/uViewDetallesBase.dfm @@ -10,7 +10,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase Left = 0 Top = 0 Width = 451 - Height = 73 + Height = 68 AutoSize = True ButtonWidth = 141 Caption = 'ToolBar1' @@ -42,23 +42,24 @@ inherited frViewDetallesBase: TfrViewDetallesBase Top = 0 Action = actSubir AutoSize = True + Wrap = True end object ToolButton4: TToolButton - Left = 184 - Top = 0 + Left = 0 + Top = 22 Action = actBajar AutoSize = True end object ToolButton14: TToolButton - Left = 240 - Top = 0 + Left = 56 + Top = 22 Action = FontEdit1 AutoSize = True Wrap = True end object FontName: TJvFontComboBox Left = 0 - Top = 22 + Top = 44 Width = 145 Height = 22 DroppedDownWidth = 145 @@ -74,7 +75,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase end object FontSize: TEdit Left = 145 - Top = 22 + Top = 44 Width = 26 Height = 22 Hint = 'Font Size|Select font size' @@ -85,7 +86,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase end object UpDown1: TUpDown Left = 171 - Top = 22 + Top = 44 Width = 16 Height = 22 Associate = FontSize @@ -94,7 +95,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase end object ToolButton13: TToolButton Left = 187 - Top = 22 + Top = 44 Width = 8 Caption = 'ToolButton13' ImageIndex = 10 @@ -102,55 +103,54 @@ inherited frViewDetallesBase: TfrViewDetallesBase end object ToolButton6: TToolButton Left = 195 - Top = 22 + Top = 44 Action = RichEditBold1 AutoSize = True end object ToolButton7: TToolButton Left = 261 - Top = 22 + Top = 44 Action = RichEditItalic1 AutoSize = True end object ToolButton8: TToolButton Left = 328 - Top = 22 + Top = 44 Action = RichEditUnderline1 AutoSize = True end object ToolButton12: TToolButton - Left = 0 - Top = 22 + Left = 411 + Top = 44 Width = 8 Caption = 'ToolButton12' ImageIndex = 10 - Wrap = True Style = tbsSeparator end object ToolButton9: TToolButton - Left = 0 - Top = 49 + Left = 419 + Top = 44 Action = RichEditAlignLeft1 AutoSize = True end object ToolButton10: TToolButton - Left = 145 - Top = 49 + Left = 564 + Top = 44 Action = RichEditAlignCenter1 AutoSize = True end object ToolButton11: TToolButton - Left = 270 - Top = 49 + Left = 689 + Top = 44 Action = RichEditAlignRight1 AutoSize = True end end object cxGrid: TcxGrid Left = 0 - Top = 99 + Top = 94 Width = 451 - Height = 205 + Height = 210 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -161,6 +161,8 @@ inherited frViewDetallesBase: TfrViewDetallesBase TabOrder = 1 LookAndFeel.Kind = lfStandard LookAndFeel.NativeStyle = True + ExplicitTop = 99 + ExplicitHeight = 205 object cxGridView: TcxGridDBTableView OnKeyDown = cxGridViewKeyDown NavigatorButtons.ConfirmDelete = False @@ -344,11 +346,12 @@ inherited frViewDetallesBase: TfrViewDetallesBase end object TBXDock1: TTBXDock Left = 0 - Top = 73 + Top = 68 Width = 451 Height = 26 BackgroundOnToolbars = False UseParentBackground = True + ExplicitTop = 73 object TBXToolbar1: TTBXToolbar Left = 0 Top = 0 diff --git a/Source/GUIBase/uViewDetallesBase.pas b/Source/GUIBase/uViewDetallesBase.pas index 4a41b4e6..095cdff4 100644 --- a/Source/GUIBase/uViewDetallesBase.pas +++ b/Source/GUIBase/uViewDetallesBase.pas @@ -208,7 +208,7 @@ type CurEdit: TcxRichEdit; FUpdating: Boolean; function CurrText: TTextAttributes; - procedure OnSelectChange(Sender:TObject); +// procedure OnSelectChange(Sender:TObject); function GetController: IControllerDetallesBase; procedure SetController(const Value: IControllerDetallesBase); @@ -735,8 +735,6 @@ end; procedure TfrViewDetallesBase.cxGridViewStylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -var - ATipo : String; begin inherited; @@ -946,7 +944,7 @@ begin Result := (_FocusedView.ViewData.RowCount < 1); end; -procedure TfrViewDetallesBase.OnSelectChange(Sender: TObject); +{procedure TfrViewDetallesBase.OnSelectChange(Sender: TObject); begin if (csDestroying in ComponentState) then Exit; @@ -958,7 +956,7 @@ begin finally FUpdating := False; end; -end; +end;} procedure TfrViewDetallesBase.RestoreGridStatus; begin @@ -1058,7 +1056,7 @@ begin //ya que se saltaria la lógica del controllerDetallesBase if cxGridView.Controller.IsFinish then begin - Key := 0; + //Key := 0; if _FocusedView.Controller.EditingController.IsEditing then _FocusedView.Controller.EditingController.Edit.PostEditValue; actAnadir.Execute; @@ -1067,7 +1065,7 @@ begin //Baja los conceptos seleccionados if Shift = [ssAlt] then begin - Key := 0; + //Key := 0; actBajar.Execute; end; end; @@ -1075,7 +1073,7 @@ begin //Sube los conceptos seleccionados if Shift = [ssAlt] then begin - Key := 0; + //Key := 0; actSubir.Execute; end; end; @@ -1087,7 +1085,7 @@ begin if Assigned(AItem) and cxGridView.Controller.IsFinish and AItem.IsLast then begin - Key := 0; + //Key := 0; if _FocusedView.Controller.EditingController.IsEditing then _FocusedView.Controller.EditingController.Edit.PostEditValue; actAnadir.Execute; diff --git a/Source/GUIBase/uViewDocumentos.pas b/Source/GUIBase/uViewDocumentos.pas index 43617cf4..021f759b 100644 --- a/Source/GUIBase/uViewDocumentos.pas +++ b/Source/GUIBase/uViewDocumentos.pas @@ -220,8 +220,6 @@ end; function TfrViewDocumentos.AsignarImagen(ANombreFichero: String): Integer; begin - Result := -1; - if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.txt') or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.ini') or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.sql') then diff --git a/Source/GUIBase/uViewGridBase.pas b/Source/GUIBase/uViewGridBase.pas index 6579c186..1f32fab4 100644 --- a/Source/GUIBase/uViewGridBase.pas +++ b/Source/GUIBase/uViewGridBase.pas @@ -96,7 +96,7 @@ type FFilter: string; FOnFilterChanged : TNotifyEvent; FGridStatus : TcxGridStatus; - procedure BestFitAllColumns; +// procedure BestFitAllColumns; protected FOnDblClick: TNotifyEvent; FPopupMenu: TPopupMenu; @@ -202,7 +202,7 @@ end; { TfrViewGrid } -procedure TfrViewGridBase.BestFitAllColumns; +{procedure TfrViewGridBase.BestFitAllColumns; var i : Integer ; @@ -222,7 +222,7 @@ begin _FocusedView.EndUpdate; HideHourglassCursor; end; -end; +end;} procedure TfrViewGridBase.AjustarAncho; begin