Cosmetic changes only

main.lfm

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

main.lrs

@@ -6,37 +6,37 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +'for FireBird'#12'ClientHeight'#3'm'#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#3'1.3'#0#9'TTreeView'#6'tvMain'#4
-  +'Left'#2#0#6'Height'#3'Y'#2#3'Top'#2#0#5'Width'#3'h'#1#5'Align'#7#6'alLeft'
-  +#15'BackgroundColor'#7#7'clWhite'#5'Color'#7#7'clCream'#15'ExpandSignColor'#7
-  +#8'clMaroon'#13'HideSelection'#8#6'Images'#7#10'ImageList1'#6'Indent'#2#25#8
-  +'ReadOnly'#9#16'RightClickSelect'#9#9'ShowLines'#8#8'TabOrder'#2#0#10'OnDblC'
-  +'lick'#7#14'tvMainDblClick'#10'OnExpanded'#7#14'tvMainExpanded'#7'Options'#11
-  +#17'tvoAutoItemHeight'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#19'tvoRight'
-  +'ClickSelect'#14'tvoShowButtons'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#9'TSp'
-  +'litter'#9'Splitter1'#4'Left'#3'h'#1#6'Height'#3'Y'#2#3'Top'#2#0#5'Width'#2
-  +#14#7'Beveled'#9#0#0#12'TPageControl'#12'PageControl1'#4'Left'#3'y'#1#6'Heig'
-  +'ht'#3'R'#2#3'Top'#2#3#5'Width'#3#132#2#10'ActivePage'#7#9'TabSheet1'#5'Alig'
-  +'n'#7#8'alClient'#18'BorderSpacing.Left'#2#1#17'BorderSpacing.Top'#2#1#19'Bo'
-  +'rderSpacing.Right'#2#1#20'BorderSpacing.Bottom'#2#2#20'BorderSpacing.Around'
-  +#2#2#25'BorderSpacing.InnerBorder'#2#1#9'Font.Name'#6#4'Sans'#10'ParentFont'
-  +#8#8'TabIndex'#2#0#8'TabOrder'#2#2#17'OnCloseTabClicked'#7#27'PageControl1Cl'
-  +'oseTabClicked'#7'Options'#11#20'nboHidePageListPopup'#0#0#9'TTabSheet'#9'Ta'
-  +'bSheet1'#11'BorderWidth'#2#1#7'Caption'#6#4'Main'#12'ClientHeight'#3'3'#2#11
-  +'ClientWidth'#3'|'#2#10'Font.Color'#7#6'clNavy'#9'Font.Name'#6#5'Arial'#10'P'
-  +'arentFont'#8#0#7'TBitBtn'#11'bbRestoreDB'#4'Left'#2#3#6'Height'#2']'#3'Top'
-  +#3#216#0#5'Width'#3#208#0#7'Caption'#6#16'Restore Database'#5'Color'#7#7'clC'
-  +'ream'#9'Font.Name'#6#4'Sans'#10'Glyph.Data'#10':'#16#0#0'6'#16#0#0'BM6'#16#0
-  +#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0' '#0#0#0#1#0' '#0#0#0#0#0#0#16#0#0'd'#0
-  +#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.2.0.3'#0#9'TTreeView'#6'tvMai'
+  +'n'#4'Left'#2#0#6'Height'#3'Y'#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'#15'ExpandSignCo'
+  +'lor'#7#8'clMaroon'#13'HideSelection'#8#6'Images'#7#10'ImageList1'#6'Indent'
+  +#2#25#8'ReadOnly'#9#16'RightClickSelect'#9#9'ShowLines'#8#8'TabOrder'#2#0#10
+  +'OnDblClick'#7#14'tvMainDblClick'#10'OnExpanded'#7#14'tvMainExpanded'#7'Opti'
+  +'ons'#11#17'tvoAutoItemHeight'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#19
+  +'tvoRightClickSelect'#14'tvoShowButtons'#11'tvoShowRoot'#11'tvoToolTips'#0#0
+  +#0#9'TSplitter'#9'Splitter1'#4'Left'#3'h'#1#6'Height'#3'Y'#2#3'Top'#2#0#5'Wi'
+  +'dth'#2#14#7'Beveled'#9#0#0#12'TPageControl'#12'PageControl1'#4'Left'#3'y'#1
+  +#6'Height'#3'R'#2#3'Top'#2#3#5'Width'#3#132#2#10'ActivePage'#7#9'TabSheet1'#5
+  +'Align'#7#8'alClient'#18'BorderSpacing.Left'#2#1#17'BorderSpacing.Top'#2#1#19
+  +'BorderSpacing.Right'#2#1#20'BorderSpacing.Bottom'#2#2#20'BorderSpacing.Arou'
+  +'nd'#2#2#25'BorderSpacing.InnerBorder'#2#1#9'Font.Name'#6#4'Sans'#10'ParentF'
+  +'ont'#8#8'TabIndex'#2#0#8'TabOrder'#2#2#17'OnCloseTabClicked'#7#27'PageContr'
+  +'ol1CloseTabClicked'#7'Options'#11#20'nboHidePageListPopup'#0#0#9'TTabSheet'
+  +#9'TabSheet1'#11'BorderWidth'#2#1#7'Caption'#6#4'Main'#12'ClientHeight'#3'3'
+  +#2#11'ClientWidth'#3'|'#2#10'Font.Color'#7#6'clNavy'#9'Font.Name'#6#5'Arial'
+  +#10'ParentFont'#8#0#7'TBitBtn'#11'bbRestoreDB'#4'Left'#2#3#6'Height'#2']'#3
+  +'Top'#3#216#0#5'Width'#3#208#0#7'Caption'#6#16'Restore Database'#5'Color'#7#7
+  +'clCream'#9'Font.Name'#6#4'Sans'#10'Glyph.Data'#10':'#16#0#0'6'#16#0#0'BM6'
+  +#16#0#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0' '#0#0#0#1#0' '#0#0#0#0#0#0#16#0#0
+  +'d'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#0#0#0#1'UUU'#3'@``'#8'NNN'#13'UUU'#18'QQQ'#22'YYY'
+  +#23'MYY'#20'UUU'#15'MfM'#10'fff'#5#128#128#128#2#0#0#0#1#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#0#0#0#1'UUU'#3'@``'#8'NNN'#13'UUU'#18'QQQ'#22'YYY'#23'M'
-  +'YY'#20'UUU'#15'MfM'#10'fff'#5#128#128#128#2#0#0#0#1#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#1'UUU'#3'NbN'#13
-  +'R[R'#28'QQQ/SVVDRXUTRWTdQVSqSWUuSXVkSYV\TWTLUUU9SZS%MYY'#20'III'#7#0#0#0#1
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#1'UUU'#3'NbN'
+  +#13'R[R'#28'QQQ/SVVDRXUTRWTdQVSqSWUuSXVkSYV\TWTLUUU9SZS%MYY'#20'III'#7#0#0#0
+  +#1#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#128#128#128#2'III'#14'WWW)SVSSRVT'#130']^'
   +'^'#179'pvs'#215'uyw'#226'uzx'#233'sxv'#240'uzx'#242'v{y'#237'v{x'#230'uzw'

main.pas

@@ -3929,7 +3929,7 @@ begin
             ServerNode.SelectedIndex:= 26;
           end;
 
-          // Put databases
+          // Display databases
           MainNode:= tvMain.Items.AddChild(ServerNode, Rec.Title);
           MainNode.ImageIndex:= 0;
           MainNode.SelectedIndex:= 3;
@@ -3995,13 +3995,12 @@ begin
       tvMain.Items.Add(nil, '');
     end;
     Result:= True;
-
   except
-  on e: exception do
-  begin
-    Result:= False;
-    ShowMessage('Error: ' + e.message);
-  end;
+    on e: exception do
+    begin
+      Result:= False;
+      ShowMessage('Error: ' + e.message);
+    end;
   end;
 end;