Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tarea #335 -> Quitar 'selección de empresa' de la columna de la izquierda

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@92 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-09 18:12:37 +00:00
parent df6b3fd7d6
commit e75ddc22bb
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/Cliente/Utiles/uNavPaneUtils.pas
View File

@ -28,6 +28,7 @@ begin
for ItemIndex := 0 to (AMenuItem.Count - 1) do for ItemIndex := 0 to (AMenuItem.Count - 1) do
begin begin
if ((not AMenuItem[ItemIndex].IsLine) // que no sea una línea separadora if ((not AMenuItem[ItemIndex].IsLine) // que no sea una línea separadora
and (AMenuItem[ItemIndex].Tag <> -999) // Si TAG = -999 indica que se ignora este item
and (AMenuItem[ItemIndex].Count = 0) // que no sea el padre de un submenú and (AMenuItem[ItemIndex].Count = 0) // que no sea el padre de un submenú
and (AMenuItem[ItemIndex].Visible)) // y que sea visible and (AMenuItem[ItemIndex].Visible)) // y que sea visible
then then

1
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -625,6 +625,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Tag = 1000 Tag = 1000
Caption = 'Empresa' Caption = 'Empresa'
object Listadeempresas1_OLD: TMenuItem object Listadeempresas1_OLD: TMenuItem
Tag = -999
Action = actSeleccionEmpresas Action = actSeleccionEmpresas
end end
object N1_OLD: TMenuItem object N1_OLD: TMenuItem