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

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

View File

@ -1,6 +1,6 @@
<project ServerProjectName="">
<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>
<actions/>
<propertysets/>
@ -14,8 +14,8 @@
<Notes>
<![CDATA[]]>
</Notes>
<LastBuildRun>00:03:22</LastBuildRun>
<LastBuildStart>09/09/2016 18:07:38</LastBuildStart>
<LastBuildRun>00:00:00</LastBuildRun>
<LastBuildStart>25/11/2024 16:36:32</LastBuildStart>
<LastBuildState>False</LastBuildState>
</properties>
</project>

Binary file not shown.

View File

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

View File

@ -112,6 +112,7 @@ type
cxStyle_DESCUENTO: TcxStyle;
cxStyleDesactivado: TcxStyle;
cxGridViewVISIBLE2: TcxGridDBColumn;
cxStyleEdicion: TcxStyle;
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
@ -450,6 +451,10 @@ begin
else
if Length(AEditValue) = 0 then
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
FreeAndNil(FuentePorDefecto);
end;