Inclusao Imagem

infocotidiano · Aug 2, 2020 · 398a9c1 · 398a9c1
1 parent b40fe63
commit 398a9c1
Show file tree

Hide file tree

Showing 8 changed files with 30 additions and 40 deletions.
diff --git a/backup/project1.lpi b/backup/project1.lpi
@@ -55,6 +55,7 @@
         <Filename Value="ulogin.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmTelalogin"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
       </Unit2>
     </Units>
@@ -69,6 +70,9 @@
       <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Linking>
+      <Debugging>
+        <GenerateDebugInfo Value="False"/>
+      </Debugging>
       <Options>
         <Win32>
           <GraphicApplication Value="True"/>

diff --git a/backup/project1.lps b/backup/project1.lps
@@ -3,7 +3,7 @@
   <ProjectSession>
     <Version Value="11"/>
     <BuildModes Active="Default"/>
-    <Units Count="12">
+    <Units Count="11">
       <Unit0>
         <Filename Value="project1.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -26,31 +26,35 @@
         <LoadedDesigner Value="True"/>
       </Unit1>
       <Unit2>
+        <Filename Value="ulogin.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="frmTelalogin"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <EditorIndex Value="2"/>
+        <TopLine Value="50"/>
+        <CursorPos X="18" Y="61"/>
+        <UsageCount Value="21"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
+      </Unit2>
+      <Unit3>
         <Filename Value="univel.pas"/>
         <ComponentName Value="frmNivel"/>
         <ResourceBaseClass Value="Form"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="25"/>
         <CursorPos X="36" Y="41"/>
         <UsageCount Value="24"/>
-      </Unit2>
-      <Unit3>
+      </Unit3>
+      <Unit4>
         <Filename Value="uusuario.pas"/>
         <ComponentName Value="frmUsuario"/>
         <ResourceBaseClass Value="Form"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="13"/>
         <CursorPos X="39" Y="22"/>
         <UsageCount Value="23"/>
-      </Unit3>
-      <Unit4>
-        <Filename Value="ulogin.pas"/>
-        <ComponentName Value="frmLogin"/>
-        <ResourceBaseClass Value="Form"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="46"/>
-        <CursorPos X="58" Y="52"/>
-        <UsageCount Value="23"/>
       </Unit4>
       <Unit5>
         <Filename Value="/usr/share/fpcsrc/3.0.4/rtl/objpas/objpas.pp"/>
@@ -65,15 +69,13 @@
         <TopLine Value="3507"/>
         <CursorPos Y="3519"/>
         <UsageCount Value="10"/>
-        <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit6>
       <Unit7>
         <Filename Value="../../.lazarus/onlinepackagemanager/packages/zeosdbo/src/dbc/ZDbcMySqlUtils.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="297"/>
         <CursorPos X="65" Y="309"/>
         <UsageCount Value="10"/>
-        <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit7>
       <Unit8>
         <Filename Value="/usr/share/lazarus/2.0.8/lcl/include/wincontrol.inc"/>
@@ -98,20 +100,8 @@
         <UsageCount Value="10"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit10>
-      <Unit11>
-        <Filename Value="ulogin.pas"/>
-        <IsPartOfProject Value="True"/>
-        <ComponentName Value="frmTelalogin"/>
-        <ResourceBaseClass Value="Form"/>
-        <EditorIndex Value="2"/>
-        <TopLine Value="50"/>
-        <CursorPos X="18" Y="61"/>
-        <UsageCount Value="21"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
-      </Unit11>
     </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
+    <JumpHistory Count="29" HistoryIndex="28">
       <Position1>
         <Filename Value="uprincipal.pas"/>
         <Caret Line="83" Column="3" TopLine="54"/>
@@ -213,25 +203,21 @@
         <Caret Line="42" Column="33" TopLine="27"/>
       </Position25>
       <Position26>
-        <Filename Value="uprincipal.pas"/>
-        <Caret Line="66" Column="53" TopLine="97"/>
+        <Filename Value="ulogin.pas"/>
+        <Caret Line="61" Column="36" TopLine="52"/>
       </Position26>
       <Position27>
         <Filename Value="ulogin.pas"/>
-        <Caret Line="61" Column="36" TopLine="52"/>
+        <Caret Line="43" Column="22" TopLine="33"/>
       </Position27>
       <Position28>
         <Filename Value="ulogin.pas"/>
-        <Caret Line="43" Column="22" TopLine="33"/>
+        <Caret Line="58" Column="70" TopLine="49"/>
       </Position28>
       <Position29>
-        <Filename Value="ulogin.pas"/>
-        <Caret Line="58" Column="70" TopLine="49"/>
-      </Position29>
-      <Position30>
         <Filename Value="uprincipal.pas"/>
         <Caret Line="54" Column="45" TopLine="53"/>
-      </Position30>
+      </Position29>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

diff --git a/backup/uprincipal.pas b/backup/uprincipal.pas
@@ -152,9 +152,9 @@ procedure TfrmPrincipal.protegemenu(nNIVEL: integer);
       for nITEM := 0 to MainMenu1.Items[nPRINCIPAL].Count-1 do
         begin
            if nNIVEL >= RetornaNIVEL(MainMenu1.Items[nPRINCIPAL].Items[nITEM].Name) then
-              MainMenu1.Items[nPRINCIPAL].Items[nITEM].Enabled:=true
+              MainMenu1.Items[nPRINCIPAL].Items[nITEM].Visible:=true
            else
-              MainMenu1.Items[nPRINCIPAL].Items[nITEM].Enabled:=false;
+              MainMenu1.Items[nPRINCIPAL].Items[nITEM].Visible:=false;
         end;
     end;
 

diff --git a/imagem.PNG b/imagem.PNG
diff --git a/lib/i386-win32/uprincipal.o b/lib/i386-win32/uprincipal.o
diff --git a/lib/i386-win32/uprincipal.ppu b/lib/i386-win32/uprincipal.ppu
diff --git a/project1.exe b/project1.exe
diff --git a/uprincipal.pas b/uprincipal.pas
@@ -152,9 +152,9 @@ procedure TfrmPrincipal.protegemenu(nNIVEL: integer);
       for nITEM := 0 to MainMenu1.Items[nPRINCIPAL].Count-1 do
         begin
            if nNIVEL >= RetornaNIVEL(MainMenu1.Items[nPRINCIPAL].Items[nITEM].Name) then
-              MainMenu1.Items[nPRINCIPAL].Items[nITEM].Visible:=true
+              MainMenu1.Items[nPRINCIPAL].Items[nITEM].Enabled:=true
            else
-              MainMenu1.Items[nPRINCIPAL].Items[nITEM].Visible:=false;
+              MainMenu1.Items[nPRINCIPAL].Items[nITEM].Enabled:=false;
         end;
     end;