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

Repaso a mensajes de warnings y hints

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@961 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-07-09 08:31:23 +00:00
parent 86f045c09a
commit d6e91877cf
4 changed files with 37 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
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,23 +42,24 @@ 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
@ -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
OnKeyDown = cxGridViewKeyDown OnKeyDown = cxGridViewKeyDown
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -344,11 +346,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

16
Source/GUIBase/uViewDetallesBase.pas
View File

@ -208,7 +208,7 @@ type
CurEdit: TcxRichEdit; CurEdit: TcxRichEdit;
FUpdating: Boolean; FUpdating: Boolean;
function CurrText: TTextAttributes; function CurrText: TTextAttributes;
procedure OnSelectChange(Sender:TObject); // procedure OnSelectChange(Sender:TObject);
function GetController: IControllerDetallesBase; function GetController: IControllerDetallesBase;
procedure SetController(const Value: IControllerDetallesBase); procedure SetController(const Value: IControllerDetallesBase);
@ -735,8 +735,6 @@ end;
procedure TfrViewDetallesBase.cxGridViewStylesGetContentStyle( procedure TfrViewDetallesBase.cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
ATipo : String;
begin begin
inherited; inherited;
@ -946,7 +944,7 @@ begin
Result := (_FocusedView.ViewData.RowCount < 1); Result := (_FocusedView.ViewData.RowCount < 1);
end; end;
procedure TfrViewDetallesBase.OnSelectChange(Sender: TObject); {procedure TfrViewDetallesBase.OnSelectChange(Sender: TObject);
begin begin
if (csDestroying in ComponentState) then if (csDestroying in ComponentState) then
Exit; Exit;
@ -958,7 +956,7 @@ begin
finally finally
FUpdating := False; FUpdating := False;
end; end;
end; end;}
procedure TfrViewDetallesBase.RestoreGridStatus; procedure TfrViewDetallesBase.RestoreGridStatus;
begin begin
@ -1058,7 +1056,7 @@ begin
//ya que se saltaria la lógica del controllerDetallesBase //ya que se saltaria la lógica del controllerDetallesBase
if cxGridView.Controller.IsFinish then if cxGridView.Controller.IsFinish then
begin begin
Key := 0; //Key := 0;
if _FocusedView.Controller.EditingController.IsEditing then if _FocusedView.Controller.EditingController.IsEditing then
_FocusedView.Controller.EditingController.Edit.PostEditValue; _FocusedView.Controller.EditingController.Edit.PostEditValue;
actAnadir.Execute; actAnadir.Execute;
@ -1067,7 +1065,7 @@ begin
//Baja los conceptos seleccionados //Baja los conceptos seleccionados
if Shift = [ssAlt] then if Shift = [ssAlt] then
begin begin
Key := 0; //Key := 0;
actBajar.Execute; actBajar.Execute;
end; end;
end; end;
@ -1075,7 +1073,7 @@ begin
//Sube los conceptos seleccionados //Sube los conceptos seleccionados
if Shift = [ssAlt] then if Shift = [ssAlt] then
begin begin
Key := 0; //Key := 0;
actSubir.Execute; actSubir.Execute;
end; end;
end; end;
@ -1087,7 +1085,7 @@ begin
if Assigned(AItem) and if Assigned(AItem) and
cxGridView.Controller.IsFinish and AItem.IsLast then cxGridView.Controller.IsFinish and AItem.IsLast then
begin begin
Key := 0; //Key := 0;
if _FocusedView.Controller.EditingController.IsEditing then if _FocusedView.Controller.EditingController.IsEditing then
_FocusedView.Controller.EditingController.Edit.PostEditValue; _FocusedView.Controller.EditingController.Edit.PostEditValue;
actAnadir.Execute; actAnadir.Execute;

2
Source/GUIBase/uViewDocumentos.pas
View File

@ -220,8 +220,6 @@ end;
function TfrViewDocumentos.AsignarImagen(ANombreFichero: String): Integer; function TfrViewDocumentos.AsignarImagen(ANombreFichero: String): Integer;
begin begin
Result := -1;
if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.txt') if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.txt')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.ini') or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.ini')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.sql') then or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.sql') then

6
Source/GUIBase/uViewGridBase.pas
View File

@ -96,7 +96,7 @@ type
FFilter: string; FFilter: string;
FOnFilterChanged : TNotifyEvent; FOnFilterChanged : TNotifyEvent;
FGridStatus : TcxGridStatus; FGridStatus : TcxGridStatus;
procedure BestFitAllColumns; // procedure BestFitAllColumns;
protected protected
FOnDblClick: TNotifyEvent; FOnDblClick: TNotifyEvent;
FPopupMenu: TPopupMenu; FPopupMenu: TPopupMenu;
@ -202,7 +202,7 @@ end;
{ TfrViewGrid } { TfrViewGrid }
procedure TfrViewGridBase.BestFitAllColumns; {procedure TfrViewGridBase.BestFitAllColumns;
var var
i : Integer ; i : Integer ;
@ -222,7 +222,7 @@ begin
_FocusedView.EndUpdate; _FocusedView.EndUpdate;
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;}
procedure TfrViewGridBase.AjustarAncho; procedure TfrViewGridBase.AjustarAncho;
begin begin