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
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

16
Source/GUIBase/uViewDetallesBase.pas
View File

@ -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;

2
Source/GUIBase/uViewDocumentos.pas
View File

@ -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

6
Source/GUIBase/uViewGridBase.pas
View File

@ -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