Add files via upload

Source/Project files/About.dfm

@@ -29,7 +29,7 @@ object About_Form: TAbout_Form
     Align = alTop
     Caption = 
       'Simple Database Manager with Eris Kallisti Dyskordia'#13#10'version 20' +
-      '25.01.24.'#13#10#13#10'MIT License'#13#10#13#10'Copyright (c) 2023 Jacek Mulawka'#13#10#13#10
+      '25.02.11.'#13#10#13#10'MIT License'#13#10#13#10'Copyright (c) 2023 Jacek Mulawka'#13#10#13#10
     WordWrap = True
     ExplicitWidth = 276
   end

Source/Project files/Class helpers/Class_Helper__Win_Control.pas

@@ -0,0 +1,24 @@
+unit Class_Helper__Win_Control;{11.Lut.2025}
+
+interface
+
+uses
+  System.Classes,
+  Vcl.Controls;
+
+type
+  TWinControl_Helper = class helper for Vcl.Controls.TWinControl
+    procedure SetChildOrder( Child : TComponent; Order : Integer );
+  end;
+
+implementation
+
+procedure TWinControl_Helper.SetChildOrder( Child : TComponent; Order : Integer );
+begin
+
+  inherited SetChildOrder( Child, Order );
+
+end;
+
+end.
+

Source/Project files/Database__Informations_Modify_F.dfm

@@ -98,7 +98,7 @@ object Database__Informations_Modify_F_Frame: TDatabase__Informations_Modify_F_F
       Top = 5
       Width = 25
       Height = 25
-      Hint = 'Refresh.'
+      Hint = 'Refresh.'#13#10#13#10'[Ctrl + R]'
       Anchors = [akTop, akRight]
       ImageIndex = 3
       Images = Shared_DataModule.ImageList1

Source/Project files/Database__Informations_Modify_F.pas

@@ -1127,7 +1127,12 @@ procedure TDatabase__Informations_Modify_F_Frame.Metadata_StringGridKeyDown( Sen
     except
       on E : Exception do
         Application.MessageBox(  PChar(Translation.translation__messages_r.failed_to_copy_value_to_clipboard + #13 + #13 + E.Message + ' ' + IntToStr( E.HelpContext )), PChar(Translation.translation__messages_r.error), MB_OK + MB_ICONEXCLAMATION  );
-    end;
+    end
+  else
+  // R.
+  if    ( Key = 82 )
+    and ( Shift = [ ssCtrl ] ) then
+    Refresh_ButtonClick( Sender );
 
 end;
 

Source/Project files/Dependencies_F.dfm

@@ -88,7 +88,7 @@ object Dependencies_F_Frame: TDependencies_F_Frame
         Top = 5
         Width = 25
         Height = 25
-        Hint = 'Refresh.'
+        Hint = 'Refresh.'#13#10#13#10'[Ctrl + R]'
         Anchors = [akTop, akRight]
         ImageIndex = 3
         Images = Shared_DataModule.ImageList1

Source/Project files/Dependencies_F.pas

@@ -961,7 +961,12 @@ procedure TDependencies_F_Frame.Dependencies_TreeViewKeyDown( Sender: TObject; v
     and ( Shift = [ ssCtrl ] )
     and ( Dependencies_TreeView.Selected <> nil )
     and ( Dependencies_TreeView.Selected.Data <> nil ) then
-    Vcl.Clipbrd.Clipboard.AsText := TNode_Data_r_wsk(Dependencies_TreeView.Selected.Data).name__nd;
+    Vcl.Clipbrd.Clipboard.AsText := TNode_Data_r_wsk(Dependencies_TreeView.Selected.Data).name__nd
+  else
+  // R.
+  if    ( Key = 82 )
+    and ( Shift = [ ssCtrl ] ) then
+    Refresh_ButtonClick( Sender );
 
 end;
 

Source/Project files/External_Function__Parameter.pas

@@ -55,6 +55,7 @@ implementation
 
 
 uses
+  Class_Helper__Win_Control,
   Common,
   Translation;
 
@@ -301,6 +302,13 @@ procedure TExternal_Function__Parameter.Positions_Swap__EFP( const direction_f :
   for i := Length( external_function__parameter_t ) - 1 downto 0 do
     begin
 
+      if external_function__parameter_t[ i ] = Self then
+        if direction_f = alTop then
+          Self.Parent.SetChildOrder( external_function__parameter_t[ i ], i - 1 )
+        else
+          Self.Parent.SetChildOrder( external_function__parameter_t[ i ], i + 1 );
+
+
       external_function__parameter_t[ i ].Align := alBottom;
 
 

Source/Project files/Permissions_Modify_F.dfm

@@ -335,7 +335,7 @@ object Permissions_Modify_F_Frame: TPermissions_Modify_F_Frame
         Top = 15
         Width = 25
         Height = 25
-        Hint = 'Refresh.'
+        Hint = 'Refresh.'#13#10#13#10'[Ctrl + R]'
         Anchors = [akTop, akRight]
         ImageIndex = 3
         Images = Shared_DataModule.ImageList1

Source/Project files/Permissions_Modify_F.pas

@@ -1415,7 +1415,12 @@ procedure TPermissions_Modify_F_Frame.Permissions_DBGridKeyDown( Sender: TObject
     except
       on E : Exception do
         Application.MessageBox(  PChar(Translation.translation__messages_r.failed_to_copy_value_to_clipboard + #13 + #13 + E.Message + ' ' + IntToStr( E.HelpContext )), PChar(Translation.translation__messages_r.error), MB_OK + MB_ICONEXCLAMATION  );
-    end;
+    end
+  else
+  // R.
+  if    ( Key = 82 )
+    and ( Shift = [ ssCtrl ] ) then
+    Refresh_ButtonClick( Sender );
 
 end;
 

Source/Project files/Simple_Database_Manager.dfm

@@ -51,7 +51,7 @@ object Simple_Database_Manager_Form: TSimple_Database_Manager_Form
     object Databases_MenuItem: TMenuItem
       Caption = 'Databases'
       object Databases__Hide_Show_Databases_MenuItem: TMenuItem
-        Caption = 'Hide / show databases'
+        Caption = 'Hide / show databases [Ctrl + H]'
         ImageIndex = 19
         OnClick = Databases__Hide_Show_Databases_MenuItemClick
       end
@@ -184,7 +184,7 @@ object Simple_Database_Manager_Form: TSimple_Database_Manager_Form
     Left = 75
     Top = 25
     object Databases__Hide_Show_Databases_2_MenuItem: TMenuItem
-      Caption = 'Hide / show databases'
+      Caption = 'Hide / show databases [Ctrl + H]'
       ImageIndex = 19
       OnClick = Databases__Hide_Show_Databases_MenuItemClick
     end

Source/Project files/Simple_Database_Manager.pas

@@ -1270,6 +1270,16 @@ procedure TSimple_Database_Manager_Form.Databases_List_ListBoxKeyDown( Sender: T
 
     end
   else
+  // H.
+  if    ( Key = 72 )
+    and ( Shift = [ ssCtrl ] ) then
+    begin
+
+      Key := 0;
+      Databases__Hide_Show_Databases_MenuItemClick( Sender );
+
+    end
+  else
   // R.
   if    ( Key = 82 )
     and ( Shift = [ ssCtrl ] ) then

Source/Project files/Stored_Procedure__Edit_Execute_F.pas

@@ -2996,11 +2996,6 @@ procedure TStored_Procedure__Edit_Execute_F_Frame.Stored_Procedure__Output_DBGri
     Exit;
 
 
-  // D.
-  if    ( Key = 68 )
-    and ( Shift = [ ssCtrl ] ) then // Due to writing capitals without ssShift.
-    Column__Values__Distinct()
-  else
   // C.
   if    ( Key = 67 )
     and ( Shift = [ ssCtrl ] )
@@ -3014,6 +3009,11 @@ procedure TStored_Procedure__Edit_Execute_F_Frame.Stored_Procedure__Output_DBGri
         Application.MessageBox(  PChar(Translation.translation__messages_r.failed_to_copy_value_to_clipboard + #13 + #13 + E.Message + ' ' + IntToStr( E.HelpContext )), PChar(Translation.translation__messages_r.error), MB_OK + MB_ICONEXCLAMATION  );
     end
   else
+  // D.
+  if    ( Key = 68 )
+    and ( Shift = [ ssCtrl ] ) then // Due to writing capitals without ssShift.
+    Column__Values__Distinct()
+  else
   // S.
   if    ( Key = 83 )
     and (

Source/Project files/Stored_Procedure__Parameter.pas

@@ -67,6 +67,7 @@ implementation
 
 
 uses
+  Class_Helper__Win_Control,
   Common,
   Translation;
 
@@ -461,6 +462,13 @@ procedure TStored_Procedure__Parameter.Positions_Swap__SPP( const direction_f :
   for i := Length( stored_procedure__parameter_t ) - 1 downto 0 do
     begin
 
+      if stored_procedure__parameter_t[ i ] = Self then
+        if direction_f = alTop then
+          Self.Parent.SetChildOrder( stored_procedure__parameter_t[ i ], i - 1 )
+        else
+          Self.Parent.SetChildOrder( stored_procedure__parameter_t[ i ], i + 1 );
+
+
       stored_procedure__parameter_t[ i ].Align := alBottom;
 
 

Source/Project files/Table__Columns_Sort_F.dfm

@@ -95,7 +95,7 @@ object Table__Columns_Sort_F_Frame: TTable__Columns_Sort_F_Frame
         Top = 5
         Width = 25
         Height = 25
-        Hint = 'Refresh.'
+        Hint = 'Refresh.'#13#10#13#10'[Ctrl + R]'
         Anchors = [akTop, akRight]
         ImageIndex = 3
         Images = Shared_DataModule.ImageList1
@@ -150,6 +150,7 @@ object Table__Columns_Sort_F_Frame: TTable__Columns_Sort_F_Frame
       ViewStyle = vsReport
       OnDragDrop = Columns_Sort_ListViewDragDrop
       OnDragOver = Columns_Sort_ListViewDragOver
+      OnKeyDown = Columns_Sort_ListViewKeyDown
       OnKeyUp = Key_Up_Common
     end
   end

Source/Project files/Table__Columns_Sort_F.pas

@@ -35,6 +35,7 @@   TTable__Columns_Sort_F_Frame = class( TFrame )
     procedure Log_MemoKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
     procedure Columns_Sort_ListViewDragDrop( Sender, Source: TObject; X, Y: Integer );
     procedure Columns_Sort_ListViewDragOver( Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean );
+    procedure Columns_Sort_ListViewKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
   private
     { Private declarations }
     sql__quotation_sign__use__tcsf_g : boolean;
@@ -506,4 +507,14 @@ procedure TTable__Columns_Sort_F_Frame.Columns_Sort_ListViewDragOver( Sender, So
 
 end;
 
+procedure TTable__Columns_Sort_F_Frame.Columns_Sort_ListViewKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
+begin
+
+  // R.
+  if    ( Key = 82 )
+    and ( Shift = [ ssCtrl ] ) then
+    Refresh_ButtonClick( Sender );
+
+end;
+
 end.

Source/Project files/Table__Indexes_Modify_F.dfm

@@ -292,7 +292,7 @@ object Table__Indexes_Modify_F_Frame: TTable__Indexes_Modify_F_Frame
         Top = 15
         Width = 25
         Height = 25
-        Hint = 'Refresh.'
+        Hint = 'Refresh.'#13#10#13#10'[Ctrl + R]'
         Anchors = [akTop, akRight]
         ImageIndex = 3
         Images = Shared_DataModule.ImageList1

Source/Project files/Table__Indexes_Modify_F.pas

@@ -1364,7 +1364,12 @@ procedure TTable__Indexes_Modify_F_Frame.Indexes_DBGridKeyDown( Sender: TObject;
     except
       on E : Exception do
         Application.MessageBox(  PChar(Translation.translation__messages_r.failed_to_copy_value_to_clipboard + #13 + #13 + E.Message + ' ' + IntToStr( E.HelpContext )), PChar(Translation.translation__messages_r.error), MB_OK + MB_ICONEXCLAMATION  );
-    end;
+    end
+  else
+  // R.
+  if    ( Key = 82 )
+    and ( Shift = [ ssCtrl ] ) then
+    Refresh_ButtonClick( Sender );
 
 end;
 

Source/Project files/Table__Metadata_F.dfm

@@ -119,7 +119,7 @@ object Table__Metadata_F_Frame: TTable__Metadata_F_Frame
       Top = 5
       Width = 25
       Height = 25
-      Hint = 'Refresh.'
+      Hint = 'Refresh.'#13#10#13#10'[Ctrl + R]'
       Anchors = [akTop, akRight]
       ImageIndex = 3
       Images = Shared_DataModule.ImageList1

Source/Project files/Table__Metadata_F.pas

@@ -2454,7 +2454,12 @@ procedure TTable__Metadata_F_Frame.Metadata_StringGridKeyDown( Sender: TObject;
   // D.
   if    ( Key = 68 )
     and ( Shift = [ ssCtrl ] ) then // Due to writing capitals without ssShift.
-    Table_Column__Values_Distinct_MenuItemClick( Sender );
+    Table_Column__Values_Distinct_MenuItemClick( Sender )
+  else
+  // R.
+  if    ( Key = 82 )
+    and ( Shift = [ ssCtrl ] ) then
+    Refresh_ButtonClick( Sender );
 
 end;
 

Source/Project files/Translation.pas

@@ -653,7 +653,7 @@ procedure Translation__Default_Set();
     Translation__Component__Add( 'Search_Edit', '', 'Page down - search next;' + #13 + #10 + 'Page up - search prior.' );
     Translation__Component__Add( 'Search__Case_Insensitive_CheckBox', 'Case insensitive' );
     Translation__Component__Add( 'Search__Partial_Key_CheckBox', 'Partial key' );
-    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' );
+    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' + #13 + #10 + #13 + #10 + '[Ctrl + R]' );
     Translation__Component__Add( 'Search_GroupBox', 'Search' );
     Translation__Component__Add( 'Search__Next_Button', '', 'Search next.' );
     Translation__Component__Add( 'Search__Prior_Button', '', 'Search prior.' );
@@ -788,7 +788,7 @@ procedure Translation__Default_Set();
     Translation__Component__Add( 'Dependencies_Type_RadioGroup', 'Type', '', 'Dependent objects;Depended on objects;' );
     Translation__Component__Add( 'Nodes__Collapse_Button', '', 'Collapse nodes.' );
     Translation__Component__Add( 'Nodes__Expand_Button', '', 'Expand  nodes.' );
-    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' );
+    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' + #13 + #10 + #13 + #10 + '[Ctrl + R]' );
     Translation__Component__Add( 'Search_Edit', '', 'Page down - search next;' + #13 + #10 + 'Page up - search prior.' );
     Translation__Component__Add( 'Search_GroupBox', 'Search' );
     Translation__Component__Add( 'Search__Case_Insensitive_CheckBox', 'Case insensitive' );
@@ -1015,7 +1015,7 @@ procedure Translation__Default_Set();
     Translation__Component__Add( 'Modify__Revoke__All_MenuItem', 'Revoke all on all privileges' );
     Translation__Component__Add( 'Modify__Revoke_Button', '', 'Revoke privileges.' );
     Translation__Component__Add( 'Modify__Revoke_MenuItem', 'Revoke privileges' );
-    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' );
+    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' + #13 + #10 + #13 + #10 + '[Ctrl + R]' );
     Translation__Component__Add( 'Search_Edit', '', 'Page down - search next;' + #13 + #10 + 'Page up - search prior.' );
     Translation__Component__Add( 'Search_GroupBox', 'Search' );
     Translation__Component__Add( 'Search__Case_Insensitive_CheckBox', 'Case insensitive' );
@@ -1069,8 +1069,8 @@ procedure Translation__Default_Set();
     Translation__Component__Add( 'Databases__Edit_2_MenuItem', 'Edit list [Spacebar, Ctrl + Enter]' );
     Translation__Component__Add( 'Databases__Exit_MenuItem', 'Exit' );
     Translation__Component__Add( 'Databases__Exit_2_MenuItem', 'Exit' );
-    Translation__Component__Add( 'Databases__Hide_Show_Databases_MenuItem', 'Hide / show databases' );
-    Translation__Component__Add( 'Databases__Hide_Show_Databases_2_MenuItem', 'Hide / show databases' );
+    Translation__Component__Add( 'Databases__Hide_Show_Databases_MenuItem', 'Hide / show databases [Ctrl + H]' );
+    Translation__Component__Add( 'Databases__Hide_Show_Databases_2_MenuItem', 'Hide / show databases [Ctrl + H]' );
     Translation__Component__Add( 'Databases__Move__Down_MenuItem', 'Move down [Ctrl + Down arrow]' );
     Translation__Component__Add( 'Databases__Move__Down_2_MenuItem', 'Move down [Ctrl + Down arrow]' );
     Translation__Component__Add( 'Databases__Move__Up_MenuItem', 'Move up [Ctrl + Up arrow]' );
@@ -1304,7 +1304,7 @@ procedure Translation__Default_Set();
     Translation__Component__Add( 'Buttons_Panel__Hide_Button', '', 'Hide panel.' );
     Translation__Component__Add( 'Columns_Sort_ListView', '', '', 'Column name;Column position;' );
     Translation__Component__Add( 'Execute_Button', '', 'Save changes.' );
-    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' );
+    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' + #13 + #10 + #13 + #10 + '[Ctrl + R]' );
     Translation__Component__Add( 'Sort_Button', '', 'Sort columns.' );
 
   Translation__Unit__Add( 'TTable__Data_Modify_F_Frame' );
@@ -1356,7 +1356,7 @@ procedure Translation__Default_Set();
     Translation__Component__Add( 'Modify__Name_Etiquette_Label', 'Name' );
     Translation__Component__Add( 'Modify__Name__Create_Default_Button', 'D.', 'Create default index name.' );
     Translation__Component__Add( 'Modify__Parameter_Additional_Etiquette_Label', 'Additional parameter' );
-    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' );
+    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' + #13 + #10 + #13 + #10 + '[Ctrl + R]' );
     Translation__Component__Add( 'Search_Edit', '', 'Page down - search next;' + #13 + #10 + 'Page up - search prior.' );
     Translation__Component__Add( 'Search_GroupBox', 'Search' );
     Translation__Component__Add( 'Search__Case_Insensitive_CheckBox', 'Case insensitive' );
@@ -1381,7 +1381,7 @@ procedure Translation__Default_Set();
     Translation__Component__Add( 'Metadata__Write_In_Log_MenuItem', 'Metadata write in log' );
     Translation__Component__Add( 'Owner_Etiquette_Label', 'Owner', 'Double-click - copy the table name to clipboard.' );
     Translation__Component__Add( 'Owner_Label', '<?>', 'Double-click - copy the owner name to clipboard.' );
-    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' );
+    Translation__Component__Add( 'Refresh_Button', '', 'Refresh.' + #13 + #10 + #13 + #10 + '[Ctrl + R]' );
     Translation__Component__Add( 'Search_Edit', '', 'Page down - search next;' + #13 + #10 + 'Page up - search prior.' );
     Translation__Component__Add( 'Search_GroupBox', 'Search' );
     Translation__Component__Add( 'Search__Case_Insensitive_CheckBox', 'Case insensitive' );

Source/Project files/View__Edit_Execute_F.pas

@@ -2588,11 +2588,6 @@ procedure TView__Edit_Execute_F_Frame.View__Output_DBGridKeyDown( Sender: TObjec
     Exit;
 
 
-  // D.
-  if    ( Key = 68 )
-    and ( Shift = [ ssCtrl ] ) then // Due to writing capitals without ssShift.
-    Column__Values__Distinct()
-  else
   // C.
   if    ( Key = 67 )
     and ( Shift = [ ssCtrl ] )
@@ -2606,6 +2601,11 @@ procedure TView__Edit_Execute_F_Frame.View__Output_DBGridKeyDown( Sender: TObjec
         Application.MessageBox(  PChar(Translation.translation__messages_r.failed_to_copy_value_to_clipboard + #13 + #13 + E.Message + ' ' + IntToStr( E.HelpContext )), PChar(Translation.translation__messages_r.error), MB_OK + MB_ICONEXCLAMATION  );
     end
   else
+  // D.
+  if    ( Key = 68 )
+    and ( Shift = [ ssCtrl ] ) then // Due to writing capitals without ssShift.
+    Column__Values__Distinct()
+  else
   // S.
   if    ( Key = 83 )
     and (