Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se cambia estilo de file en edición a amarillo para que resalte más.

Browse Source
This commit is contained in:
roberto 2024-11-25 17:37:42 +01:00
parent 723b21b31a
commit 73d8135f26
4 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Build/Build.fbpInf
View File

@ -1,6 +1,6 @@
<project ServerProjectName=""> <project ServerProjectName="">
<watches/> <watches/>
<collapsedNodes></collapsedNodes> <collapsedNodes>{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{282C2736-74F5-49C2-95D0-C1C4D359AEB2},{331AC851-CE2F-4986-9381-A257AB26B1AD},{68D393D0-7234-4D5A-9D3A-A3FDC1593E55},{789902B1-5E64-4FD9-80BF-6113B13BFE12},{816E4470-A0A2-4675-A270-7721426D4FD2},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{B70F0EA3-7874-42B0-BFB8-430D43AC2D61}</collapsedNodes>
<breakpoints></breakpoints> <breakpoints></breakpoints>
<actions/> <actions/>
<propertysets/> <propertysets/>
@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:03:22</LastBuildRun> <LastBuildRun>00:00:00</LastBuildRun>
<LastBuildStart>09/09/2016 18:07:38</LastBuildStart> <LastBuildStart>25/11/2024 16:36:32</LastBuildStart>
<LastBuildState>False</LastBuildState> <LastBuildState>False</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

6
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
DroppedDownWidth = 145 DroppedDownWidth = 145
MaxMRUCount = 0 MaxMRUCount = 0
FontName = 'Tahoma' FontName = 'Tahoma'
ItemIndex = 35 ItemIndex = 43
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg] Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
Sorted = True Sorted = True
TabOrder = 2 TabOrder = 2
@ -839,5 +839,9 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Font.Name = 'Lucida Console' Font.Name = 'Lucida Console'
Font.Style = [] Font.Style = []
end end
object cxStyleEdicion: TcxStyle
AssignedValues = [svColor]
Color = 13303807
end
end end
end end

5
Source/GUIBase/uViewDetallesBase.pas
View File

@ -112,6 +112,7 @@ type
cxStyle_DESCUENTO: TcxStyle; cxStyle_DESCUENTO: TcxStyle;
cxStyleDesactivado: TcxStyle; cxStyleDesactivado: TcxStyle;
cxGridViewVISIBLE2: TcxGridDBColumn; cxGridViewVISIBLE2: TcxGridDBColumn;
cxStyleEdicion: TcxStyle;
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
@ -450,6 +451,10 @@ begin
else else
if Length(AEditValue) = 0 then if Length(AEditValue) = 0 then
CurEdit.DefAttributes.Assign(FuentePorDefecto); CurEdit.DefAttributes.Assign(FuentePorDefecto);
//Establecemos un color de edición único para evitar el fallo de color verde en conceptos
CurEdit.Style.Color := cxStyleEdicion.Color;
finally finally
FreeAndNil(FuentePorDefecto); FreeAndNil(FuentePorDefecto);
end; end;