Display database name in Connect As dialog, remove space from compared Trigger body

	modified:   TurboBird.lpi
	modified:   TurboBird.lpr
	modified:   comparison.lfm
	modified:   comparison.pas
	modified:   enterpass.lfm
	modified:   enterpass.lrs
	modified:   enterpass.pas
	modified:   main.lfm
	modified:   main.lrs
	modified:   main.pas

TurboBird.lpi

@@ -60,10 +60,11 @@
         <Filename Value="TurboBird.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TurboBird"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="26" Y="7"/>
+        <TopLine Value="7"/>
+        <CursorPos X="28" Y="28"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -76,8 +77,8 @@
         <UnitName Value="main"/>
         <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="536"/>
-        <CursorPos X="83" Y="549"/>
+        <TopLine Value="686"/>
+        <CursorPos X="31" Y="695"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -223,10 +224,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EnterPass"/>
-        <EditorIndex Value="8"/>
+        <EditorIndex Value="10"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="22"/>
-        <CursorPos X="17" Y="46"/>
+        <TopLine Value="4"/>
+        <CursorPos X="18" Y="22"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -235,12 +236,16 @@
         <Filename Value="about.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="fmAbout"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="About"/>
+        <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="58"/>
-        <CursorPos X="20" Y="72"/>
+        <TopLine Value="4"/>
+        <CursorPos X="9" Y="7"/>
         <UsageCount Value="200"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit16>
       <Unit17>
         <Filename Value="/usr/lib/lazarus/0.9.28.2/lcl/interfaces/gtk2/interfaces.pas"/>
@@ -627,7 +632,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="13"/>
         <CursorPos X="22" Y="54"/>
-        <UsageCount Value="197"/>
+        <UsageCount Value="199"/>
       </Unit60>
       <Unit61>
         <Filename Value="unitfirebirdservices.pas"/>
@@ -693,18 +698,22 @@
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <CursorPos X="71" Y="7"/>
-        <UsageCount Value="167"/>
+        <UsageCount Value="169"/>
       </Unit68>
       <Unit69>
         <Filename Value="changepass.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="fmChangePass"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="ChangePass"/>
+        <EditorIndex Value="8"/>
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <CursorPos X="88" Y="14"/>
-        <UsageCount Value="166"/>
+        <UsageCount Value="168"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit69>
       <Unit70>
         <Filename Value="permissionmanage.pas"/>
@@ -717,7 +726,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="270"/>
         <CursorPos X="33" Y="284"/>
-        <UsageCount Value="164"/>
+        <UsageCount Value="166"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit70>
@@ -728,12 +737,11 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="SQLHistory"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="7"/>
+        <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="87"/>
+        <TopLine Value="4"/>
         <CursorPos X="20" Y="89"/>
-        <UsageCount Value="149"/>
+        <UsageCount Value="151"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit71>
@@ -760,7 +768,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="18"/>
         <CursorPos X="1" Y="44"/>
-        <UsageCount Value="120"/>
+        <UsageCount Value="122"/>
       </Unit74>
       <Unit75>
         <Filename Value="/usr/lib/lazarus/0.9.30/lcl/comctrls.pp"/>
@@ -953,7 +961,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="31"/>
         <CursorPos X="19" Y="39"/>
-        <UsageCount Value="88"/>
+        <UsageCount Value="90"/>
       </Unit98>
       <Unit99>
         <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60dyn.pp"/>
@@ -987,9 +995,9 @@
         <UnitName Value="Comparison"/>
         <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="666"/>
-        <CursorPos X="3" Y="668"/>
-        <UsageCount Value="75"/>
+        <TopLine Value="706"/>
+        <CursorPos X="11" Y="749"/>
+        <UsageCount Value="77"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit102>
@@ -1025,122 +1033,130 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="1" Y="1"/>
-        <UsageCount Value="21"/>
+        <UsageCount Value="23"/>
       </Unit106>
     </Units>
-    <JumpHistory Count="28" HistoryIndex="27">
+    <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="TurboBird.lpr"/>
-        <Caret Line="24" Column="23" TopLine="13"/>
+        <Filename Value="permissionmanage.pas"/>
+        <Caret Line="288" Column="3" TopLine="284"/>
       </Position1>
       <Position2>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="556" Column="42" TopLine="527"/>
+        <Filename Value="permissionmanage.pas"/>
+        <Caret Line="264" Column="3" TopLine="257"/>
       </Position2>
       <Position3>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="557" Column="42" TopLine="528"/>
+        <Filename Value="permissionmanage.pas"/>
+        <Caret Line="437" Column="3" TopLine="435"/>
       </Position3>
       <Position4>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="948" Column="3" TopLine="946"/>
+        <Filename Value="permissionmanage.pas"/>
+        <Caret Line="150" Column="1" TopLine="128"/>
       </Position4>
       <Position5>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="956" Column="37" TopLine="941"/>
+        <Filename Value="permissionmanage.pas"/>
+        <Caret Line="162" Column="48" TopLine="135"/>
       </Position5>
       <Position6>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="977" Column="1" TopLine="951"/>
+        <Filename Value="permissionmanage.pas"/>
+        <Caret Line="301" Column="3" TopLine="297"/>
       </Position6>
       <Position7>
         <Filename Value="permissionmanage.pas"/>
-        <Caret Line="342" Column="17" TopLine="341"/>
+        <Caret Line="307" Column="45" TopLine="275"/>
       </Position7>
       <Position8>
         <Filename Value="permissionmanage.pas"/>
-        <Caret Line="288" Column="3" TopLine="284"/>
+        <Caret Line="296" Column="102" TopLine="277"/>
       </Position8>
       <Position9>
         <Filename Value="permissionmanage.pas"/>
-        <Caret Line="277" Column="42" TopLine="242"/>
+        <Caret Line="318" Column="3" TopLine="314"/>
       </Position9>
       <Position10>
-        <Filename Value="permissionmanage.pas"/>
-        <Caret Line="288" Column="3" TopLine="284"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="419" Column="20" TopLine="407"/>
       </Position10>
       <Position11>
-        <Filename Value="permissionmanage.pas"/>
-        <Caret Line="264" Column="3" TopLine="257"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="420" Column="20" TopLine="408"/>
       </Position11>
       <Position12>
-        <Filename Value="permissionmanage.pas"/>
-        <Caret Line="437" Column="3" TopLine="435"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="2196" Column="1" TopLine="2170"/>
       </Position12>
       <Position13>
-        <Filename Value="permissionmanage.pas"/>
-        <Caret Line="150" Column="1" TopLine="128"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="968" Column="53" TopLine="944"/>
       </Position13>
       <Position14>
-        <Filename Value="permissionmanage.pas"/>
-        <Caret Line="162" Column="48" TopLine="135"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="196" Column="3" TopLine="193"/>
       </Position14>
       <Position15>
-        <Filename Value="permissionmanage.pas"/>
-        <Caret Line="301" Column="3" TopLine="297"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="190" Column="3" TopLine="188"/>
       </Position15>
       <Position16>
-        <Filename Value="permissionmanage.pas"/>
-        <Caret Line="307" Column="45" TopLine="275"/>
+        <Filename Value="sqlhistory.pas"/>
+        <Caret Line="39" Column="15" TopLine="22"/>
       </Position16>
       <Position17>
-        <Filename Value="permissionmanage.pas"/>
-        <Caret Line="296" Column="102" TopLine="277"/>
+        <Filename Value="sqlhistory.pas"/>
+        <Caret Line="40" Column="15" TopLine="23"/>
       </Position17>
       <Position18>
-        <Filename Value="permissionmanage.pas"/>
-        <Caret Line="318" Column="3" TopLine="314"/>
+        <Filename Value="sqlhistory.pas"/>
+        <Caret Line="71" Column="3" TopLine="61"/>
       </Position18>
       <Position19>
-        <Filename Value="main.pas"/>
-        <Caret Line="419" Column="20" TopLine="407"/>
+        <Filename Value="sqlhistory.pas"/>
+        <Caret Line="72" Column="50" TopLine="46"/>
       </Position19>
       <Position20>
-        <Filename Value="main.pas"/>
-        <Caret Line="420" Column="20" TopLine="408"/>
+        <Filename Value="about.pas"/>
+        <Caret Line="72" Column="20" TopLine="58"/>
       </Position20>
       <Position21>
         <Filename Value="main.pas"/>
-        <Caret Line="2196" Column="1" TopLine="2170"/>
+        <Caret Line="549" Column="83" TopLine="536"/>
       </Position21>
       <Position22>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="968" Column="53" TopLine="944"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position22>
       <Position23>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="196" Column="3" TopLine="193"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="678" Column="30" TopLine="658"/>
       </Position23>
       <Position24>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="190" Column="3" TopLine="188"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="693" Column="3" TopLine="686"/>
       </Position24>
       <Position25>
-        <Filename Value="sqlhistory.pas"/>
-        <Caret Line="39" Column="15" TopLine="22"/>
+        <Filename Value="enterpass.pas"/>
+        <Caret Line="37" Column="32" TopLine="1"/>
       </Position25>
       <Position26>
-        <Filename Value="sqlhistory.pas"/>
-        <Caret Line="40" Column="15" TopLine="23"/>
+        <Filename Value="enterpass.pas"/>
+        <Caret Line="38" Column="32" TopLine="3"/>
       </Position26>
       <Position27>
-        <Filename Value="sqlhistory.pas"/>
-        <Caret Line="71" Column="3" TopLine="61"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="781" Column="8" TopLine="757"/>
       </Position27>
       <Position28>
-        <Filename Value="sqlhistory.pas"/>
-        <Caret Line="72" Column="50" TopLine="46"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="764" Column="19" TopLine="763"/>
       </Position28>
+      <Position29>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="264" Column="3" TopLine="259"/>
+      </Position29>
+      <Position30>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="155" Column="3" TopLine="152"/>
+      </Position30>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>

TurboBird.lpr

@@ -2,7 +2,7 @@
 {  TurboBird: FireBird database administration and management tool          }
 {  Developed by: Motaz Abdel Azeem http://code.sd/                          }
 {  Start development :  5.Dec.2009                                          }
-{  Last updated      : 31.Oct.2012                                          }
+{  Last updated      :  7.Dec.2012                                          }
 {  License           : GPL for GUI, LGPL for Units                          }
 {***************************************************************************}
 
@@ -25,7 +25,7 @@ uses
 
 const
   Version = '0.9.6';
-  VersionDate = '2010 - Oct 2012';
+  VersionDate = '2010 - Dec 2012';
 {$IFDEF Unix}
 {$DEFINE extdecl:=cdecl}
     fbclib = 'libfbclient.' + sharedsuffix;

comparison.lfm

@@ -8,7 +8,7 @@ object fmComparison: TfmComparison
   ClientWidth = 653
   OnClose = FormClose
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.0.4.0'
   object Label1: TLabel
     Left = 15
     Height = 18

comparison.pas

@@ -777,7 +777,8 @@ begin
     dmSysTables.GetTriggerInfo(fdbIndex, TriggerName, AfterBefor, OnTable, Event, Body, TriggerEnabled, TPosition);
     if dmSysTables.GetTriggerInfo(cbComparedDatabase.ItemIndex, TriggerName, CAfterBefor, COnTable, CEvent, CBody,
       CTriggerEnabled, CTPosition) then
-    if  (Trim(Body) <> Trim(CBody)) or (AfterBefor <> CAfterBefor) or (TriggerEnabled <> CTriggerEnabled)
+    if  (StringReplace(Body, ' ', '', [rfReplaceAll]) <> StringReplace(CBody, ' ', '', [rfReplaceAll]))
+       or (AfterBefor <> CAfterBefor) or (TriggerEnabled <> CTriggerEnabled)
        or (TPosition <> CTPosition) then
     begin
       meLog.Lines.Add(' ' + TriggerName);

enterpass.lfm

@@ -12,27 +12,27 @@ object fmEnterPass: TfmEnterPass
   OnActivate = FormActivate
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.0.4.0'
   object Label1: TLabel
-    Left = 14
+    Left = 13
     Height = 18
-    Top = 80
+    Top = 89
     Width = 67
     Caption = 'Password'
     ParentColor = False
   end
   object Label2: TLabel
-    Left = 14
+    Left = 13
     Height = 18
-    Top = 30
+    Top = 44
     Width = 32
     Caption = 'User'
     ParentColor = False
   end
   object Label3: TLabel
-    Left = 14
+    Left = 13
     Height = 18
-    Top = 125
+    Top = 139
     Width = 31
     Caption = 'Role'
     ParentColor = False
@@ -40,7 +40,7 @@ object fmEnterPass: TfmEnterPass
   object edPassword: TEdit
     Left = 89
     Height = 27
-    Top = 72
+    Top = 85
     Width = 176
     EchoMode = emPassword
     PasswordChar = '*'
@@ -49,7 +49,7 @@ object fmEnterPass: TfmEnterPass
   object BitBtn1: TBitBtn
     Left = 14
     Height = 30
-    Top = 168
+    Top = 179
     Width = 75
     Caption = '&OK'
     Color = 16249563
@@ -61,7 +61,7 @@ object fmEnterPass: TfmEnterPass
   object BitBtn2: TBitBtn
     Left = 102
     Height = 30
-    Top = 169
+    Top = 180
     Width = 98
     Cancel = True
     Caption = 'Cancel'
@@ -73,16 +73,34 @@ object fmEnterPass: TfmEnterPass
   object edUser: TEdit
     Left = 89
     Height = 27
-    Top = 24
+    Top = 39
     Width = 176
     TabOrder = 0
   end
   object cbRole: TComboBox
     Left = 89
     Height = 29
-    Top = 114
+    Top = 133
     Width = 176
     ItemHeight = 0
     TabOrder = 2
   end
+  object Label4: TLabel
+    Left = 13
+    Height = 18
+    Top = 9
+    Width = 65
+    Caption = 'Database'
+    ParentColor = False
+  end
+  object laDatabase: TLabel
+    Left = 89
+    Height = 18
+    Top = 9
+    Width = 65
+    Caption = 'Database'
+    Font.Color = clGray
+    ParentColor = False
+    ParentFont = False
+  end
 end

enterpass.lrs

@@ -6,20 +6,24 @@ LazarusResources.Add('TfmEnterPass','FORMDATA',[
   +#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#22'Connect to'
   +' Database As'#12'ClientHeight'#3#236#0#11'ClientWidth'#3#132#1#10'OnActivat'
   +'e'#7#12'FormActivate'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScreenCent'
-  +'er'#10'LCLVersion'#6#6'0.9.31'#0#6'TLabel'#6'Label1'#4'Left'#2#14#6'Height'
-  +#2#18#3'Top'#2'P'#5'Width'#2'C'#7'Caption'#6#8'Password'#11'ParentColor'#8#0
-  +#0#6'TLabel'#6'Label2'#4'Left'#2#14#6'Height'#2#18#3'Top'#2#30#5'Width'#2' '
-  +#7'Caption'#6#4'User'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#14
-  +#6'Height'#2#18#3'Top'#2'}'#5'Width'#2#31#7'Caption'#6#4'Role'#11'ParentColo'
-  +'r'#8#0#0#5'TEdit'#10'edPassword'#4'Left'#2'Y'#6'Height'#2#27#3'Top'#2'H'#5
-  +'Width'#3#176#0#8'EchoMode'#7#10'emPassword'#12'PasswordChar'#6#1'*'#8'TabOr'
-  +'der'#2#1#0#0#7'TBitBtn'#7'BitBtn1'#4'Left'#2#14#6'Height'#2#30#3'Top'#3#168
-  +#0#5'Width'#2'K'#7'Caption'#6#3'&OK'#5'Color'#4#219#242#247#0#7'Default'#9#4
-  +'Kind'#7#4'bkOK'#11'ModalResult'#2#1#8'TabOrder'#2#3#0#0#7'TBitBtn'#7'BitBtn'
-  +'2'#4'Left'#2'f'#6'Height'#2#30#3'Top'#3#169#0#5'Width'#2'b'#6'Cancel'#9#7'C'
-  +'aption'#6#6'Cancel'#5'Color'#4#219#242#247#0#4'Kind'#7#8'bkCancel'#11'Modal'
-  +'Result'#2#2#8'TabOrder'#2#4#0#0#5'TEdit'#6'edUser'#4'Left'#2'Y'#6'Height'#2
-  +#27#3'Top'#2#24#5'Width'#3#176#0#8'TabOrder'#2#0#0#0#9'TComboBox'#6'cbRole'#4
-  +'Left'#2'Y'#6'Height'#2#29#3'Top'#2'r'#5'Width'#3#176#0#10'ItemHeight'#2#0#8
-  +'TabOrder'#2#2#0#0#0
+  +'er'#10'LCLVersion'#6#7'1.0.4.0'#0#6'TLabel'#6'Label1'#4'Left'#2#13#6'Height'
+  +#2#18#3'Top'#2'Y'#5'Width'#2'C'#7'Caption'#6#8'Password'#11'ParentColor'#8#0
+  +#0#6'TLabel'#6'Label2'#4'Left'#2#13#6'Height'#2#18#3'Top'#2','#5'Width'#2' '
+  +#7'Caption'#6#4'User'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#13
+  +#6'Height'#2#18#3'Top'#3#139#0#5'Width'#2#31#7'Caption'#6#4'Role'#11'ParentC'
+  +'olor'#8#0#0#5'TEdit'#10'edPassword'#4'Left'#2'Y'#6'Height'#2#27#3'Top'#2'U'
+  +#5'Width'#3#176#0#8'EchoMode'#7#10'emPassword'#12'PasswordChar'#6#1'*'#8'Tab'
+  +'Order'#2#1#0#0#7'TBitBtn'#7'BitBtn1'#4'Left'#2#14#6'Height'#2#30#3'Top'#3
+  +#179#0#5'Width'#2'K'#7'Caption'#6#3'&OK'#5'Color'#4#219#242#247#0#7'Default'
+  +#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#8'TabOrder'#2#3#0#0#7'TBitBtn'#7'Bi'
+  +'tBtn2'#4'Left'#2'f'#6'Height'#2#30#3'Top'#3#180#0#5'Width'#2'b'#6'Cancel'#9
+  +#7'Caption'#6#6'Cancel'#5'Color'#4#219#242#247#0#4'Kind'#7#8'bkCancel'#11'Mo'
+  +'dalResult'#2#2#8'TabOrder'#2#4#0#0#5'TEdit'#6'edUser'#4'Left'#2'Y'#6'Height'
+  +#2#27#3'Top'#2''''#5'Width'#3#176#0#8'TabOrder'#2#0#0#0#9'TComboBox'#6'cbRol'
+  +'e'#4'Left'#2'Y'#6'Height'#2#29#3'Top'#3#133#0#5'Width'#3#176#0#10'ItemHeigh'
+  +'t'#2#0#8'TabOrder'#2#2#0#0#6'TLabel'#6'Label4'#4'Left'#2#13#6'Height'#2#18#3
+  +'Top'#2#9#5'Width'#2'A'#7'Caption'#6#8'Database'#11'ParentColor'#8#0#0#6'TLa'
+  +'bel'#10'laDatabase'#4'Left'#2'Y'#6'Height'#2#18#3'Top'#2#9#5'Width'#2'A'#7
+  +'Caption'#6#8'Database'#10'Font.Color'#7#6'clGray'#11'ParentColor'#8#10'Pare'
+  +'ntFont'#8#0#0#0
 ]);

enterpass.pas

@@ -21,6 +21,8 @@ type
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
+    Label4: TLabel;
+    laDatabase: TLabel;
     procedure FormActivate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private

main.lfm

@@ -14,7 +14,7 @@ object fmMain: TfmMain
   OnClose = FormClose
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '1.0.2.0'
+  LCLVersion = '1.0.4.0'
   object tvMain: TTreeView
     Left = 0
     Height = 617

main.lrs

@@ -6,7 +6,7 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +'for FireBird'#12'ClientHeight'#3'i'#2#11'ClientWidth'#3#0#4#5'Color'#7#7'cl'
   +'White'#9'Font.Name'#6#4'Sans'#4'Menu'#7#9'MainMenu1'#10'OnActivate'#7#12'Fo'
   +'rmActivate'#7'OnClose'#7#9'FormClose'#8'OnCreate'#7#10'FormCreate'#8'Positi'
-  +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.2.0'#0#9'TTreeView'#6'tvMai'
+  +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.4.0'#0#9'TTreeView'#6'tvMai'
   +'n'#4'Left'#2#0#6'Height'#3'i'#2#3'Top'#2#0#5'Width'#3'h'#1#5'Align'#7#6'alL'
   +'eft'#15'BackgroundColor'#7#7'clWhite'#5'Color'#7#7'clCream'#13'HideSelectio'
   +'n'#8#6'Images'#7#10'ImageList1'#6'Indent'#2#25#8'ReadOnly'#9#16'RightClickS'

main.pas

@@ -692,6 +692,7 @@ var
 begin
   Result:= False;
   Rec:= RegisteredDatabases[dbIndex].RegRec;
+  fmEnterPass.laDatabase.Caption:= Rec.Title;
   fmEnterPass.edUser.Text:= Rec.UserName;
   fmEnterPass.edPassword.Clear;
   fmEnterPass.cbRole.Clear;