Changeset 32
- Timestamp:
- Jun 29, 2024, 7:58:36 AM (5 months ago)
- Location:
- trunk
- Files:
-
- 3 added
- 2 deleted
- 4 edited
- 37 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Core.lfm
r31 r32 3 3 OnDestroy = DataModuleDestroy 4 4 OldCreateOrder = False 5 Height = 8676 HorizontalOffset = 8007 VerticalOffset = 3448 Width = 1 2269 PPI = 1 445 Height = 753 6 HorizontalOffset = 694 7 VerticalOffset = 269 8 Width = 1064 9 PPI = 125 10 10 object ImageList1: TImageList 11 11 Height = 32 12 12 Width = 32 13 Left = 55214 Top = 2 5513 Left = 479 14 Top = 221 15 15 Bitmap = { 16 16 4C7A0C0000002000000020000000043200000000000078DAED9D075854D7D6F7 … … 419 419 object ActionList1: TActionList 420 420 Images = ImageList1 421 Left = 558422 Top = 1 46421 Left = 484 422 Top = 127 423 423 object AExit: TAction 424 424 Caption = 'Exit' … … 450 450 POFilesFolder = 'Languages' 451 451 OnTranslate = Translator1Translate 452 Left = 540453 Top = 570452 Left = 469 453 Top = 495 454 454 end 455 455 object ApplicationInfo1: TApplicationInfo … … 8664 8664 0000000000000000000000000000000000000000000000000000 8665 8665 } 8666 Left = 1 508667 Top = 1 568666 Left = 130 8667 Top = 135 8668 8668 end 8669 8669 object PersistentForm1: TPersistentForm 8670 8670 MinVisiblePart = 50 8671 8671 EntireVisible = False 8672 Left = 1 528673 Top = 2 678672 Left = 132 8673 Top = 232 8674 8674 end 8675 8675 object ScaleDPI1: TScaleDPI 8676 8676 AutoDetect = False 8677 Left = 549 8678 Top = 410 8677 Left = 477 8678 Top = 356 8679 end 8680 object ThemeManager1: TThemeManager 8681 Left = 133 8682 Top = 316 8679 8683 end 8680 8684 end -
trunk/Core.pas
r31 r32 1 unit UCore;1 unit Core; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, Controls, ActnList, UDatabase, Translator,7 ApplicationInfo, PersistentForm, Forms, RegistryEx, ScaleDPI ;6 Classes, SysUtils, FileUtil, Controls, ActnList, DbEngine, Translator, 7 ApplicationInfo, PersistentForm, Forms, RegistryEx, ScaleDPI, Theme, FormMain; 8 8 9 9 type … … 18 18 AExit: TAction; 19 19 ActionList1: TActionList; 20 ThemeManager1: TThemeManager; 20 21 Translator1: TTranslator; 21 22 ImageList1: TImageList; … … 37 38 Preferences: TPreferences; 38 39 DbManager: TDbManager; 40 FormMain: TFormMain; 39 41 procedure LoadConfig; 40 42 procedure SaveConfig; … … 55 57 56 58 uses 57 UFormTables, UFormConnect, FormAbout, UFormDatabases, UFormPreferences, 58 UFormMain; 59 FormTables, FormAbout, FormDatabases, FormPreferences, FormEx; 59 60 60 61 {$R *.lfm} … … 66 67 DbManager := TDbManager.Create; 67 68 Preferences := TPreferences.Create; 69 70 TFormEx.ScaleDPI := ScaleDPI1; 71 TFormEx.Translator := Translator1; 72 TFormEx.ThemeManager := ThemeManager1; 73 TFormEx.PersistentForm := PersistentForm1; 74 75 FormMain := TFormMain.Create(nil); 76 FormMain.Show; 68 77 end; 69 78 70 79 procedure TCore.DataModuleDestroy(Sender: TObject); 71 80 begin 81 FreeAndNil(FormMain); 72 82 DbClient := nil; 73 83 FreeAndNil(Preferences); … … 89 99 with TFormDatabases.Create(nil) do 90 100 try 101 DbManager := Self.DbManager; 91 102 if ShowModal = mrOk then begin 92 103 DbClient := nil; … … 201 212 SaveConfig; 202 213 DbClient := nil; 214 Application.Terminate; 203 215 end; 204 216 -
trunk/DataTypes.pas
r31 r32 1 unit UDataTypes;1 unit DataTypes; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UDatabase, USqlDatabase;6 Classes, SysUtils, DbEngine, USqlDatabase; 7 7 8 8 type … … 193 193 end; 194 194 195 196 195 { TValueFloat } 197 196 -
trunk/DbEngine.pas
r31 r32 1 unit UDatabase;1 unit DbEngine; 2 2 3 3 interface … … 264 264 265 265 uses 266 UDataTypes, UEngineXML, UEngineMySQL, UEngineSQLite, UDbClientRegistry;266 DataTypes, EngineXML, EngineMySQL, EngineSQLite, EngineRegistry; 267 267 268 268 { TDbManager } -
trunk/DbEngines/EngineMySQL.pas
r31 r32 1 unit UEngineMySQL;1 unit EngineMySQL; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, Dialogs, SysUtils, UDatabase, USqlDatabase, UHtmlClasses,6 Classes, Dialogs, SysUtils, DbEngine, USqlDatabase, HtmlClasses, 7 7 Generics; 8 8 -
trunk/DbEngines/EngineRegistry.pas
r31 r32 1 unit UDbClientRegistry;1 unit EngineRegistry; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UDatabase;6 Classes, SysUtils, DbEngine; 7 7 8 8 type -
trunk/DbEngines/EngineSQLite.pas
r31 r32 1 unit UEngineSQLite;1 unit EngineSQLite; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UDatabase;6 Classes, SysUtils, DbEngine; 7 7 8 8 type -
trunk/DbEngines/EngineXML.pas
r31 r32 1 unit UEngineXML;1 unit EngineXML; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, DOM, XMLRead, XMLWrite, UDatabase, XML, FileUtil,7 UHtmlClasses, USqlDatabase, Generics;6 Classes, SysUtils, DOM, XMLRead, XMLWrite, DbEngine, XML, FileUtil, 7 HtmlClasses, USqlDatabase, Generics; 8 8 9 9 type … … 60 60 61 61 uses 62 UDataTypes;62 DataTypes; 63 63 64 64 resourcestring -
trunk/Forms/FormConnect.lfm
r31 r32 1 1 object FormConnect: TFormConnect 2 Left = 7953 Height = 5424 Top = 5095 Width = 7392 Left = 590 3 Height = 470 4 Top = 269 5 Width = 641 6 6 Caption = 'Connection parameters' 7 ClientHeight = 542 8 ClientWidth = 739 9 DesignTimePPI = 144 10 OnCreate = FormCreate 11 LCLVersion = '2.2.2.0' 7 ClientHeight = 470 8 ClientWidth = 641 9 DesignTimePPI = 125 10 LCLVersion = '3.2.0.0' 12 11 object EditName: TEdit 13 Left = 2 5614 Height = 4315 Top = 2 516 Width = 31012 Left = 222 13 Height = 39 14 Top = 22 15 Width = 269 17 16 TabOrder = 0 18 17 end 19 18 object Label1: TLabel 20 Left = 1 821 Height = 2 622 Top = 3223 Width = 5619 Left = 16 20 Height = 22 21 Top = 28 22 Width = 49 24 23 Caption = 'Name:' 25 24 ParentColor = False 26 25 end 27 26 object Label2: TLabel 28 Left = 1 829 Height = 2 630 Top = 8031 Width = 1 4727 Left = 16 28 Height = 22 29 Top = 69 30 Width = 130 32 31 Caption = 'Database engine:' 33 32 ParentColor = False 34 33 end 35 34 object ComboBoxDbEngines: TComboBox 36 Left = 2 5637 Height = 4238 Top = 7239 Width = 31035 Left = 222 36 Height = 38 37 Top = 62 38 Width = 269 40 39 ItemHeight = 0 41 OnChange = ComboBoxDbEnginesChange42 40 Style = csDropDownList 43 41 TabOrder = 1 42 OnChange = ComboBoxDbEnginesChange 44 43 end 45 44 object ButtonOk: TButton 46 Left = 62447 Height = 3048 Top = 4 9649 Width = 9045 Left = 541 46 Height = 26 47 Top = 430 48 Width = 78 50 49 Anchors = [akRight, akBottom] 51 50 Caption = 'Ok' … … 54 53 end 55 54 object ButtonCancel: TButton 56 Left = 4 8857 Height = 3058 Top = 4 9659 Width = 9055 Left = 423 56 Height = 26 57 Top = 430 58 Width = 78 60 59 Anchors = [akRight, akBottom] 61 60 Caption = 'Cancel' … … 64 63 end 65 64 object PageControl1: TPageControl 66 Left = 1 867 Height = 34068 Top = 1 3969 Width = 70365 Left = 16 66 Height = 295 67 Top = 121 68 Width = 609 70 69 ActivePage = TabSheetRegistry 71 70 Anchors = [akTop, akLeft, akRight] … … 74 73 TabOrder = 4 75 74 object TabSheetXml: TTabSheet 76 ClientHeight = 33677 ClientWidth = 69375 ClientHeight = 291 76 ClientWidth = 599 78 77 object Label3: TLabel 79 Left = 1 780 Height = 2 681 Top = 2 482 Width = 6978 Left = 15 79 Height = 22 80 Top = 21 81 Width = 58 83 82 Caption = 'Xml file:' 84 83 ParentColor = False 85 84 end 86 85 object EditXml: TEdit 87 Left = 11088 Height = 4389 Top = 1 690 Width = 44686 Left = 95 87 Height = 39 88 Top = 14 89 Width = 385 91 90 Anchors = [akTop, akLeft, akRight] 92 91 TabOrder = 0 93 92 end 94 93 object ButtonXmlBrowse: TButton 95 Left = 56696 Height = 3 797 Top = 1 998 Width = 11394 Left = 489 95 Height = 32 96 Top = 16 97 Width = 98 99 98 Anchors = [akTop, akRight] 100 99 Caption = 'Browse' 100 TabOrder = 1 101 101 OnClick = ButtonXmlBrowseClick 102 TabOrder = 1103 102 end 104 103 end 105 104 object TabSheetSql: TTabSheet 106 ClientHeight = 336107 ClientWidth = 693105 ClientHeight = 291 106 ClientWidth = 599 108 107 object Label4: TLabel 109 Left = 1 9110 Height = 2 6111 Top = 1 9112 Width = 44108 Left = 16 109 Height = 22 110 Top = 16 111 Width = 38 113 112 Caption = 'Host:' 114 113 ParentColor = False 115 114 end 116 115 object EditHost: TEdit 117 Left = 1 50118 Height = 43119 Top = 1 4120 Width = 312116 Left = 130 117 Height = 39 118 Top = 12 119 Width = 271 121 120 TabOrder = 0 122 121 end 123 122 object Label5: TLabel 124 Left = 1 9125 Height = 2 6126 Top = 72127 Width = 40123 Left = 16 124 Height = 22 125 Top = 62 126 Width = 34 128 127 Caption = 'Port:' 129 128 ParentColor = False 130 129 end 131 130 object SpinEditPort: TSpinEdit 132 Left = 1 52133 Height = 43134 Top = 64135 Width = 1 33131 Left = 132 132 Height = 39 133 Top = 56 134 Width = 115 136 135 MaxValue = 65535 137 136 TabOrder = 1 … … 144 143 end 145 144 object OpenDialog1: TOpenDialog 146 Left = 632147 Top = 32145 Left = 549 146 Top = 28 148 147 end 149 148 end -
trunk/Forms/FormConnect.pas
r31 r32 1 unit UFormConnect;1 unit FormConnect; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 ComCtrls, Spin, UDatabase;7 ComCtrls, Spin, DbEngine, FormEx; 8 8 9 9 type … … 11 11 { TFormConnect } 12 12 13 TFormConnect = class(TForm )13 TFormConnect = class(TFormEx) 14 14 ButtonXmlBrowse: TButton; 15 15 ButtonOk: TButton; … … 33 33 procedure ButtonXmlBrowseClick(Sender: TObject); 34 34 procedure ComboBoxDbEnginesChange(Sender: TObject); 35 procedure FormCreate(Sender: TObject); 35 private 36 FDbManager: TDbManager; 37 procedure SetDbManager(AValue: TDbManager); 36 38 public 37 39 procedure Load(ConnectProfile: TDbConnectProfile); … … 39 41 procedure ReloadDbEngines; 40 42 procedure UpdateInterface; 43 property DbManager: TDbManager read FDbManager write SetDbManager; 41 44 end; 42 45 … … 47 50 48 51 uses 49 UCore, UEngineXML, UEngineMySQL;52 EngineXML, EngineMySQL; 50 53 51 54 resourcestring … … 69 72 end; 70 73 71 procedure TFormConnect. FormCreate(Sender: TObject);74 procedure TFormConnect.SetDbManager(AValue: TDbManager); 72 75 begin 76 if FDbManager = AValue then Exit; 77 FDbManager := AValue; 73 78 ReloadDbEngines; 74 79 end; … … 110 115 try 111 116 ComboBoxDbEngines.Items.Clear; 112 for I := 0 to Core.DbManager.ClientTypes.Count - 1 do113 ComboBoxDbEngines.Items.AddObject( Core.DbManager.ClientTypes[I].Name,114 Core.DbManager.ClientTypes[I]);117 for I := 0 to DbManager.ClientTypes.Count - 1 do 118 ComboBoxDbEngines.Items.AddObject(DbManager.ClientTypes[I].Name, 119 DbManager.ClientTypes[I]); 115 120 finally 116 121 ComboBoxDbEngines.Items.Endupdate; -
trunk/Forms/FormDatabases.pas
r31 r32 1 unit UFormDatabases;1 unit FormDatabases; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 Menus, ActnList, UDatabase;7 Menus, ActnList, DbEngine, FormEx; 8 8 9 9 type … … 11 11 { TFormDatabases } 12 12 13 TFormDatabases = class(TForm )13 TFormDatabases = class(TFormEx) 14 14 AAdd: TAction; 15 15 AOpen: TAction; … … 39 39 public 40 40 SelectedProfile: TDbConnectProfile; 41 DbManager: TDbManager; 41 42 procedure ReloadList; 42 43 procedure UpdateInterface; … … 49 50 50 51 uses 51 UCore, UFormConnect;52 FormConnect; 52 53 53 54 resourcestring … … 76 77 if MessageDlg(SRemoveDatabaseConnection, Format(SRemoveDatabaseConnectionQuery, [ 77 78 TDbConnectProfile(ListView1.Selected.Data).Name]), mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin 78 Core.DbManager.ConnectProfiles.Remove(ListView1.Selected.Data);79 DbManager.ConnectProfiles.Remove(ListView1.Selected.Data); 79 80 ReloadList; 80 81 end; … … 90 91 with TFormConnect.Create(nil) do 91 92 try 93 DbManager := Self.DbManager; 92 94 Load(NewConnectProfile); 93 95 if ShowModal = mrOk then begin 94 96 Save(NewConnectProfile); 95 Core.DbManager.ConnectProfiles.Add(NewConnectProfile);97 DbManager.ConnectProfiles.Add(NewConnectProfile); 96 98 ReloadList; 97 99 end else NewConnectProfile.Free; … … 104 106 begin 105 107 if Assigned(ListView1.Selected) then begin 108 DbManager := Self.DbManager; 106 109 with TFormConnect.Create(nil) do 107 110 try 111 DbManager := Self.DbManager; 108 112 Load(TDbConnectProfile(ListView1.Selected.Data)); 109 113 if ShowModal = mrOk then begin … … 128 132 procedure TFormDatabases.ListView1Data(Sender: TObject; Item: TListItem); 129 133 begin 130 if (Item.Index >= 0) and (Item.Index < Core.DbManager.ConnectProfiles.Count) then131 with TDbConnectProfile( Core.DbManager.ConnectProfiles[Item.Index]) do begin134 if (Item.Index >= 0) and (Item.Index < DbManager.ConnectProfiles.Count) then 135 with TDbConnectProfile(DbManager.ConnectProfiles[Item.Index]) do begin 132 136 Item.Caption := Name; 133 137 Item.SubItems.Add(ClientType.Name); 134 138 Item.SubItems.Add(Params.ConnectionString); 135 Item.Data := Core.DbManager.ConnectProfiles[Item.Index];139 Item.Data := DbManager.ConnectProfiles[Item.Index]; 136 140 end 137 141 end; … … 145 149 procedure TFormDatabases.ReloadList; 146 150 begin 147 ListView1.Items.Count := Core.DbManager.ConnectProfiles.Count;151 ListView1.Items.Count := DbManager.ConnectProfiles.Count; 148 152 ListView1.Repaint; 149 153 UpdateInterface; -
trunk/Forms/FormField.lfm
r31 r32 1 1 object FormField: TFormField 2 2 Left = 721 3 Height = 5333 Height = 463 4 4 Top = 85 5 Width = 1 1695 Width = 1015 6 6 Caption = 'Field' 7 ClientHeight = 5338 ClientWidth = 1 1699 DesignTimePPI = 1 447 ClientHeight = 463 8 ClientWidth = 1015 9 DesignTimePPI = 125 10 10 OnCreate = FormCreate 11 11 OnShow = FormShow 12 12 Position = poMainFormCenter 13 LCLVersion = ' 2.2.2.0'13 LCLVersion = '3.2.0.0' 14 14 object EditName: TEdit 15 Left = 20216 Height = 4317 Top = 1 318 Width = 31715 Left = 175 16 Height = 39 17 Top = 11 18 Width = 275 19 19 TabOrder = 0 20 20 end 21 21 object Label1: TLabel 22 Left = 20 22 Left = 17 23 Height = 22 24 Top = 22 25 Width = 49 26 Caption = 'Name:' 27 ParentColor = False 28 end 29 object ButtonOk: TButton 30 Left = 917 23 31 Height = 26 24 Top = 25 25 Width = 56 26 Caption = 'Name:' 27 ParentColor = False 28 end 29 object ButtonOk: TButton 30 Left = 1056 31 Height = 30 32 Top = 480 33 Width = 90 32 Top = 417 33 Width = 78 34 34 Anchors = [akRight, akBottom] 35 35 Caption = 'Ok' … … 38 38 end 39 39 object EditTextBefore: TEdit 40 Left = 20041 Height = 4342 Top = 10643 Width = 31840 Left = 174 41 Height = 39 42 Top = 92 43 Width = 276 44 44 TabOrder = 2 45 45 end 46 46 object Label2: TLabel 47 Left = 1 948 Height = 2 649 Top = 1 1850 Width = 10047 Left = 16 48 Height = 22 49 Top = 102 50 Width = 87 51 51 Caption = 'Text before:' 52 52 ParentColor = False 53 53 end 54 54 object EditTextAfter: TEdit 55 Left = 20056 Height = 4357 Top = 1 6358 Width = 31855 Left = 174 56 Height = 39 57 Top = 141 58 Width = 276 59 59 TabOrder = 3 60 60 end 61 61 object Label3: TLabel 62 Left = 1 963 Height = 2 664 Top = 1 7365 Width = 8462 Left = 16 63 Height = 22 64 Top = 150 65 Width = 74 66 66 Caption = 'Text after:' 67 67 ParentColor = False 68 68 end 69 69 object Label4: TLabel 70 Left = 2071 Height = 2 672 Top = 6773 Width = 8570 Left = 17 71 Height = 22 72 Top = 58 73 Width = 76 74 74 Caption = 'Data type:' 75 75 ParentColor = False 76 76 end 77 77 object ComboBoxType: TComboBox 78 Left = 20079 Height = 4280 Top = 5 881 Width = 31878 Left = 174 79 Height = 38 80 Top = 50 81 Width = 276 82 82 ItemHeight = 0 83 OnChange = ComboBoxTypeChange84 83 Style = csDropDownList 85 84 TabOrder = 4 85 OnChange = ComboBoxTypeChange 86 86 end 87 87 object ButtonCancel: TButton 88 Left = 94189 Height = 3090 Top = 4 8091 Width = 9088 Left = 817 89 Height = 26 90 Top = 417 91 Width = 78 92 92 Anchors = [akRight, akBottom] 93 93 Caption = 'Cancel' … … 96 96 end 97 97 object PageControl1: TPageControl 98 Left = 1 999 Height = 2 40100 Top = 221101 Width = 112498 Left = 16 99 Height = 209 100 Top = 192 101 Width = 976 102 102 ActivePage = TabSheetBoolean 103 103 Anchors = [akTop, akLeft, akRight, akBottom] … … 106 106 TabOrder = 6 107 107 object TabSheetString: TTabSheet 108 ClientHeight = 2 36109 ClientWidth = 1114108 ClientHeight = 205 109 ClientWidth = 966 110 110 object EditStringDefault: TEdit 111 Left = 1 92112 Height = 43113 Top = 10114 Width = 318111 Left = 167 112 Height = 39 113 Top = 9 114 Width = 276 115 115 TabOrder = 0 116 116 end 117 117 object Label5: TLabel 118 Left = 1 9119 Height = 2 6120 Top = 10121 Width = 1 16118 Left = 16 119 Height = 22 120 Top = 9 121 Width = 102 122 122 Caption = 'Default value:' 123 123 ParentColor = False … … 125 125 end 126 126 object TabSheetInteger: TTabSheet 127 ClientHeight = 2 36128 ClientWidth = 1114127 ClientHeight = 205 128 ClientWidth = 966 129 129 object Label10: TLabel 130 Left = 14 131 Height = 26 130 Left = 12 131 Height = 22 132 Top = 22 133 Width = 76 134 Caption = 'Minimum:' 135 ParentColor = False 136 end 137 object SpinEditMin: TSpinEdit 138 Left = 160 139 Height = 39 140 Top = 20 141 Width = 266 142 MaxValue = 10000000 143 TabOrder = 0 144 end 145 object SpinEditMax: TSpinEdit 146 Left = 160 147 Height = 39 148 Top = 58 149 Width = 266 150 TabOrder = 1 151 end 152 object Label11: TLabel 153 Left = 12 154 Height = 22 155 Top = 61 156 Width = 79 157 Caption = 'Maximum:' 158 ParentColor = False 159 end 160 end 161 object TabSheetDateTime: TTabSheet 162 ClientHeight = 205 163 ClientWidth = 966 164 object DateEditMin: TDateEdit 165 Left = 141 166 Height = 39 132 167 Top = 25 133 Width = 87 134 Caption = 'Minimum:' 135 ParentColor = False 136 end 137 object SpinEditMin: TSpinEdit 138 Left = 184 139 Height = 43 140 Top = 23 141 Width = 306 142 MaxValue = 10000000 143 TabOrder = 0 144 end 145 object SpinEditMax: TSpinEdit 146 Left = 184 147 Height = 43 148 Top = 67 149 Width = 306 150 TabOrder = 1 151 end 152 object Label11: TLabel 153 Left = 14 154 Height = 26 155 Top = 70 156 Width = 91 157 Caption = 'Maximum:' 158 ParentColor = False 159 end 160 end 161 object TabSheetDateTime: TTabSheet 162 ClientHeight = 236 163 ClientWidth = 1114 164 object DateEditMin: TDateEdit 165 Left = 163 166 Height = 43 167 Top = 29 168 Width = 259 168 Width = 225 169 169 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] 170 170 DateOrder = doNone 171 ButtonWidth = 2 8171 ButtonWidth = 24 172 172 NumGlyphs = 1 173 173 MaxLength = 0 … … 175 175 end 176 176 object Label6: TLabel 177 Left = 1 9178 Height = 2 6179 Top = 3 8180 Width = 87177 Left = 16 178 Height = 22 179 Top = 33 180 Width = 76 181 181 Caption = 'Minimum:' 182 182 ParentColor = False 183 183 end 184 184 object DateEditMax: TDateEdit 185 Left = 1 63186 Height = 43187 Top = 86188 Width = 2 59185 Left = 141 186 Height = 39 187 Top = 75 188 Width = 225 189 189 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] 190 190 DateOrder = doNone 191 ButtonWidth = 2 8191 ButtonWidth = 24 192 192 NumGlyphs = 1 193 193 MaxLength = 0 … … 195 195 end 196 196 object Label7: TLabel 197 Left = 1 9198 Height = 2 6199 Top = 96200 Width = 91197 Left = 16 198 Height = 22 199 Top = 83 200 Width = 79 201 201 Caption = 'Maximum:' 202 202 ParentColor = False … … 206 206 end 207 207 object TabSheetFloat: TTabSheet 208 ClientHeight = 2 36209 ClientWidth = 1114208 ClientHeight = 205 209 ClientWidth = 966 210 210 object FloatSpinEditMin: TFloatSpinEdit 211 Left = 1 73212 Height = 43213 Top = 1 9214 Width = 319211 Left = 150 212 Height = 39 213 Top = 16 214 Width = 277 215 215 MaxValue = 100000000 216 216 TabOrder = 0 217 217 end 218 218 object Label8: TLabel 219 Left = 10220 Height = 2 6221 Top = 30222 Width = 87219 Left = 9 220 Height = 22 221 Top = 26 222 Width = 76 223 223 Caption = 'Minimum:' 224 224 ParentColor = False 225 225 end 226 226 object FloatSpinEditMax: TFloatSpinEdit 227 Left = 1 73228 Height = 43229 Top = 77230 Width = 319227 Left = 150 228 Height = 39 229 Top = 67 230 Width = 277 231 231 MaxValue = 100 232 232 TabOrder = 1 233 233 end 234 234 object Label9: TLabel 235 Left = 10236 Height = 2 6237 Top = 88238 Width = 91235 Left = 9 236 Height = 22 237 Top = 76 238 Width = 79 239 239 Caption = 'Maximum:' 240 240 ParentColor = False -
trunk/Forms/FormField.pas
r31 r32 1 unit UFormField;1 unit FormField; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 ComCtrls, EditBtn, Spin, UDatabase;7 ComCtrls, EditBtn, Spin, DbEngine, FormEx; 8 8 9 9 type … … 11 11 { TFormField } 12 12 13 TFormField = class(TForm )13 TFormField = class(TFormEx) 14 14 ButtonOk: TButton; 15 15 ButtonCancel: TButton; … … 54 54 55 55 uses 56 UDataTypes;56 DataTypes; 57 57 58 58 {$R *.lfm} -
trunk/Forms/FormFields.pas
r31 r32 1 unit UFormFields;1 unit FormFields; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, 7 ActnList, ComCtrls, Menus, UDatabase;7 ActnList, ComCtrls, Menus, DbEngine, FormEx; 8 8 9 9 type … … 11 11 { TFormFields } 12 12 13 TFormFields = class(TForm )13 TFormFields = class(TFormEx) 14 14 AAdd: TAction; 15 15 AOk: TAction; … … 45 45 end; 46 46 47 47 48 implementation 48 49 49 50 uses 50 UFormField;51 FormField; 51 52 52 53 {$R *.lfm} -
trunk/Forms/FormMain.pas
r31 r32 1 unit UFormMain;1 unit FormMain; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus, 7 ComCtrls, UFormTables;7 ComCtrls, FormTables, FormEx; 8 8 9 9 type … … 11 11 { TFormMain } 12 12 13 TFormMain = class(TForm )13 TFormMain = class(TFormEx) 14 14 CoolBar1: TCoolBar; 15 15 MainMenu1: TMainMenu; … … 41 41 end; 42 42 43 var44 FormMain: TFormMain;45 46 43 47 44 implementation … … 50 47 51 48 uses 52 UCore;49 Core; 53 50 54 51 { TFormMain } … … 56 53 procedure TFormMain.FormActivate(Sender: TObject); 57 54 begin 58 Core. Init;55 Core.Core.Init; 59 56 // TODO: Toolbar height is incorrectly calculated 60 57 ToolBar1.ButtonHeight := ToolBar1.Height; … … 63 60 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction); 64 61 begin 65 Core.Done; 66 Core.PersistentForm1.Save(Self); 62 Core.Core.Done; 67 63 end; 68 64 … … 79 75 procedure TFormMain.FormShow(Sender: TObject); 80 76 begin 81 Core.PersistentForm1.Load(Self, True);82 77 SetToolbarHints; 83 78 DockInit; … … 86 81 procedure TFormMain.DockInit; 87 82 begin 88 FormTables.ManualDock( FormMain, nil, alClient);83 FormTables.ManualDock(Self, nil, alClient); 89 84 FormTables.Align := alClient; 90 85 FormTables.Show; … … 96 91 begin 97 92 NewCaption := Application.Title; 98 if Assigned(Core. DbClient) then99 NewCaption := Core. DbClient.ConnectProfile.Name + ' - ' + NewCaption;100 FormMain.Caption := NewCaption;93 if Assigned(Core.Core.DbClient) then 94 NewCaption := Core.Core.DbClient.ConnectProfile.Name + ' - ' + NewCaption; 95 Caption := NewCaption; 101 96 FormTables.UpdateInterface; 102 97 end; -
trunk/Forms/FormPreferences.lfm
r31 r32 1 1 object FormPreferences: TFormPreferences 2 2 Left = 765 3 Height = 4223 Height = 366 4 4 Top = 230 5 Width = 5 775 Width = 501 6 6 Caption = 'Preferences' 7 ClientHeight = 422 8 ClientWidth = 577 9 DesignTimePPI = 144 10 OnClose = FormClose 11 OnShow = FormShow 12 LCLVersion = '2.2.2.0' 7 ClientHeight = 366 8 ClientWidth = 501 9 DesignTimePPI = 125 10 LCLVersion = '3.2.0.0' 13 11 object CheckBoxRememberDatabase: TCheckBox 14 Left = 1 815 Height = 3016 Top = 2017 Width = 20112 Left = 16 13 Height = 26 14 Top = 17 15 Width = 182 18 16 Caption = 'Remember database' 19 17 TabOrder = 0 20 18 end 21 19 object ButtonSave: TButton 22 Left = 4 8023 Height = 2 524 Top = 3 7625 Width = 7520 Left = 417 21 Height = 22 22 Top = 326 23 Width = 65 26 24 Anchors = [akRight, akBottom] 27 25 Caption = 'Save' … … 30 28 end 31 29 object ButtonCancel: TButton 32 Left = 3 8833 Height = 2 534 Top = 3 7535 Width = 7530 Left = 337 31 Height = 22 32 Top = 325 33 Width = 65 36 34 Anchors = [akRight, akBottom] 37 35 Caption = 'Cancel' … … 40 38 end 41 39 object ComboBoxLanguage: TComboBox 42 Left = 20043 Height = 4244 Top = 5645 Width = 2 9240 Left = 174 41 Height = 38 42 Top = 49 43 Width = 253 46 44 ItemHeight = 0 47 45 Style = csDropDownList … … 49 47 end 50 48 object Label1: TLabel 51 Left = 1 852 Height = 2 653 Top = 6554 Width = 8849 Left = 16 50 Height = 22 51 Top = 56 52 Width = 79 55 53 Caption = 'Language:' 56 54 ParentColor = False -
trunk/Forms/FormPreferences.pas
r31 r32 1 unit UFormPreferences;1 unit FormPreferences; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 UDatabase;7 DbEngine, FormEx; 8 8 9 9 type 10 10 { TFormPreferences } 11 11 12 TFormPreferences = class(TForm )12 TFormPreferences = class(TFormEx) 13 13 ButtonSave: TButton; 14 14 ButtonCancel: TButton; … … 16 16 ComboBoxLanguage: TComboBox; 17 17 Label1: TLabel; 18 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);19 procedure FormShow(Sender: TObject);20 18 public 21 19 procedure Load(Preferences: TPreferences); … … 29 27 30 28 uses 31 UCore,Languages;29 Languages; 32 30 33 31 { TFormPreferences } 34 35 procedure TFormPreferences.FormShow(Sender: TObject);36 begin37 Core.PersistentForm1.Load(Self);38 end;39 40 procedure TFormPreferences.FormClose(Sender: TObject;41 var CloseAction: TCloseAction);42 begin43 Core.PersistentForm1.Save(Self)44 end;45 32 46 33 procedure TFormPreferences.Load(Preferences: TPreferences); 47 34 begin 48 35 CheckBoxRememberDatabase.Checked := Preferences.RememberDatabase; 49 Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items); 50 ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Translator1.Language); 36 TFormEx.Translator.LanguageListToStrings(ComboBoxLanguage.Items); 37 ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject( 38 TFormEx.Translator.Language); 51 39 if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0; 52 40 end; … … 56 44 Preferences.RememberDatabase := CheckBoxRememberDatabase.Checked; 57 45 if ComboBoxLanguage.ItemIndex <> -1 then 58 Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);46 TFormEx.Translator.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]); 59 47 end; 60 48 -
trunk/Forms/FormRecord.pas
r31 r32 1 unit UFormRecord;1 unit FormRecord; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, 7 ComCtrls, ActnList, StdCtrls, EditBtn, UDatabase, Spin, Generics.Collections; 7 ComCtrls, ActnList, StdCtrls, EditBtn, DbEngine, Spin, Generics.Collections, 8 FormEx; 8 9 9 10 type … … 11 12 { TFormRecord } 12 13 13 TFormRecord = class(TForm )14 TFormRecord = class(TFormEx) 14 15 ASave: TAction; 15 16 ACancel: TAction; … … 37 38 38 39 uses 39 UDataTypes, UCore;40 DataTypes; 40 41 41 42 {$R *.lfm} … … 89 90 LineHeight: Integer; 90 91 begin 91 LineHeight := Core.ScaleDPI1.ScaleY(35, Core.ScaleDPI1.DesignDPI.Y);92 LineHeight := TFormEx.ScaleDPI.ScaleY(35, TFormEx.ScaleDPI.DesignDPI.Y); 92 93 93 94 Row := DataRecord; -
trunk/Forms/FormRecords.pas
r31 r32 1 unit UFormRecords;1 unit FormRecords; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 ActnList, Menus, UDatabase;7 ActnList, Menus, DbEngine, FormEx; 8 8 9 9 type … … 11 11 { TFormRecords } 12 12 13 TFormRecords = class(TForm )13 TFormRecords = class(TFormEx) 14 14 AAdd: TAction; 15 15 ActionList1: TActionList; … … 42 42 43 43 uses 44 UFormRecord;44 FormRecord; 45 45 46 46 {$R *.lfm} -
trunk/Forms/FormTable.pas
r31 r32 1 unit UFormTable;1 unit FormTable; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 UDatabase;7 DbEngine, FormEx; 8 8 9 9 type … … 11 11 { TFormTable } 12 12 13 TFormTable = class(TForm )13 TFormTable = class(TFormEx) 14 14 ButtonOk: TButton; 15 15 ButtonCancel: TButton; -
trunk/Forms/FormTables.lfm
r31 r32 1 1 object FormTables: TFormTables 2 2 Left = 731 3 Height = 7923 Height = 688 4 4 Top = 117 5 Width = 1 1745 Width = 1019 6 6 Caption = 'Tables' 7 ClientHeight = 7928 ClientWidth = 1 1749 DesignTimePPI = 1 447 ClientHeight = 688 8 ClientWidth = 1019 9 DesignTimePPI = 125 10 10 OnCreate = FormCreate 11 11 OnDestroy = FormDestroy 12 12 OnShow = FormShow 13 LCLVersion = ' 2.2.2.0'13 LCLVersion = '3.2.0.0' 14 14 object ListViewTables: TListView 15 Left = 516 Height = 73917 Top = 518 Width = 1 16415 Left = 4 16 Height = 643 17 Top = 4 18 Width = 1011 19 19 Align = alClient 20 BorderSpacing.Around = 520 BorderSpacing.Around = 4 21 21 Columns = < 22 22 item 23 23 Caption = 'Name' 24 Width = 60024 Width = 521 25 25 end 26 26 item 27 27 Caption = 'Records' 28 Width = 54928 Width = 477 29 29 end> 30 30 OwnerData = True … … 40 40 object ToolBar1: TToolBar 41 41 Left = 0 42 Height = 4343 Top = 74944 Width = 1 17442 Height = 37 43 Top = 651 44 Width = 1019 45 45 Align = alBottom 46 ButtonHeight = 3 847 ButtonWidth = 3 846 ButtonHeight = 33 47 ButtonWidth = 33 48 48 Images = Core.ImageList1 49 49 ParentShowHint = False … … 56 56 end 57 57 object ToolButton2: TToolButton 58 Left = 3 958 Left = 37 59 59 Top = 2 60 60 Action = AModify 61 61 end 62 62 object ToolButton3: TToolButton 63 Left = 7 763 Left = 73 64 64 Top = 2 65 65 Action = ARemove 66 66 end 67 67 object ToolButton4: TToolButton 68 Left = 1 1568 Left = 109 69 69 Top = 2 70 70 Action = AShowRecords 71 71 end 72 72 object ToolButton5: TToolButton 73 Left = 1 5373 Left = 145 74 74 Top = 2 75 75 Action = AShowFields … … 78 78 object ActionList1: TActionList 79 79 Images = Core.ImageList1 80 Left = 3 6881 Top = 1 7380 Left = 319 81 Top = 150 82 82 object AAdd: TAction 83 83 Caption = 'Add' … … 108 108 object PopupMenu1: TPopupMenu 109 109 Images = Core.ImageList1 110 Left = 557111 Top = 1 73110 Left = 484 111 Top = 150 112 112 object MenuItem4: TMenuItem 113 113 Action = AShowRecords -
trunk/Forms/FormTables.pas
r31 r32 1 unit UFormTables;1 unit FormTables; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 ActnList, Menus, UDatabase;7 ActnList, Menus, DbEngine, FormEx; 8 8 9 9 type … … 11 11 { TFormTables } 12 12 13 TFormTables = class(TForm )13 TFormTables = class(TFormEx) 14 14 AAdd: TAction; 15 15 AShowFields: TAction; … … 57 57 58 58 uses 59 UFormTable, UFormRecords, UFormFields;59 FormTable, FormRecords, FormFields; 60 60 61 61 {$R *.lfm} -
trunk/HtmlClasses.pas
r31 r32 1 unit UHtmlClasses;1 unit HtmlClasses; 2 2 3 3 interface 4 4 5 5 uses 6 UXmlClasses, Classes, SysUtils, Generics.Collections, Generics, UIpAddress;6 XmlClasses, Classes, SysUtils, Generics.Collections, Generics, IpAddress; 7 7 8 8 type -
trunk/IpAddress.pas
r31 r32 1 unit UIpAddress;1 unit IpAddress; 2 2 3 3 interface -
trunk/Languages/MyData.cs.po
r30 r32 12 12 "X-Generator: Poedit 3.0.1\n" 13 13 14 #: dbengine.sfieldnotfound 15 #, object-pascal-format 16 msgctxt "dbengine.sfieldnotfound" 17 msgid "Field %s not found" 18 msgstr "Pole %s nenalezeno" 19 20 #: dbengine.stypeboolean 21 msgctxt "dbengine.stypeboolean" 22 msgid "Boolean" 23 msgstr "Logická hodnota" 24 25 #: dbengine.stypedate 26 msgctxt "dbengine.stypedate" 27 msgid "Date" 28 msgstr "Datum" 29 30 #: dbengine.stypedatetime 31 msgctxt "dbengine.stypedatetime" 32 msgid "Date and time" 33 msgstr "Datum a čas" 34 35 #: dbengine.stypefloat 36 msgctxt "dbengine.stypefloat" 37 msgid "Float" 38 msgstr "Desetinné číslo" 39 40 #: dbengine.stypeimage 41 msgctxt "dbengine.stypeimage" 42 msgid "Image" 43 msgstr "Obrázek" 44 45 #: dbengine.stypeinteger 46 msgctxt "dbengine.stypeinteger" 47 msgid "Integer" 48 msgstr "Celé číslo" 49 50 #: dbengine.stypemapposition 51 msgctxt "dbengine.stypemapposition" 52 msgid "Map position" 53 msgstr "Pozice na mapě" 54 55 #: dbengine.stypereference 56 msgctxt "dbengine.stypereference" 57 msgid "Reference" 58 msgstr "Odkaz" 59 60 #: dbengine.stypestring 61 msgctxt "dbengine.stypestring" 62 msgid "String" 63 msgstr "Řetězec" 64 65 #: dbengine.stypetime 66 msgctxt "dbengine.stypetime" 67 msgid "Time" 68 msgstr "Čas" 69 70 #: enginexml.scolumnnotfoundintable 71 #, object-pascal-format 72 msgctxt "enginexml.scolumnnotfoundintable" 73 msgid "Column %s not found in table %s" 74 msgstr "Sloupec %s nenalezen v tabulce %s" 75 76 #: enginexml.sfieldnotfound 77 #, object-pascal-format 78 msgctxt "enginexml.sfieldnotfound" 79 msgid "Table field %s not found" 80 msgstr "Pole tabulky %s nenalezeno" 81 82 #: enginexml.stablenotfound 83 #, object-pascal-format 84 msgctxt "enginexml.stablenotfound" 85 msgid "Table %s not found" 86 msgstr "Tabulka %s nenalezena" 87 88 #: enginexml.sunsupportedsqlcommand 89 #, object-pascal-format 90 msgctxt "enginexml.sunsupportedsqlcommand" 91 msgid "Unsupported SQL command: %s" 92 msgstr "Nepodporovaný SQL příkaz: %s" 93 94 #: enginexml.swrongfileformat 95 msgctxt "enginexml.swrongfileformat" 96 msgid "Wrong file format" 97 msgstr "Špatný formát souboru" 98 99 #: formconnect.sanyfile 100 msgctxt "formconnect.sanyfile" 101 msgid "Any file" 102 msgstr "Jakýkoliv soubor" 103 104 #: formconnect.sxmlfiles 105 msgctxt "formconnect.sxmlfiles" 106 msgid "XML files" 107 msgstr "XML soubory" 108 109 #: formdatabases.snewdatabase 110 msgctxt "formdatabases.snewdatabase" 111 msgid "New database" 112 msgstr "Nová databáze" 113 114 #: formdatabases.sremovedatabaseconnection 115 msgctxt "formdatabases.sremovedatabaseconnection" 116 msgid "Remove database connection" 117 msgstr "Odstranění databázového spojení" 118 119 #: formdatabases.sremovedatabaseconnectionquery 120 #, object-pascal-format 121 msgctxt "formdatabases.sremovedatabaseconnectionquery" 122 msgid "Do you want to really remove database connection %s?" 123 msgstr "Opravdu chcete odstranit databázové spojení %s?" 124 125 #: formfields.sfieldsnotset 126 msgctxt "formfields.sfieldsnotset" 127 msgid "Fields not set" 128 msgstr "Políčka nejsou nastavena" 129 130 #: formfields.snewfield 131 msgctxt "formfields.snewfield" 132 msgid "New field" 133 msgstr "Nové políčko" 134 135 #: formfields.stablefields 136 #, object-pascal-format 137 msgctxt "formfields.stablefields" 138 msgid "Table fields - %s" 139 msgstr "Políčka tabulky - %s" 140 141 #: formrecord.stablerecordedit 142 msgctxt "formrecord.stablerecordedit" 143 msgid "Table record edit" 144 msgstr "Úprava záznamu tabulky" 145 146 #: formrecords.sremoverecord 147 msgctxt "formrecords.sremoverecord" 148 msgid "Remove record" 149 msgstr "Odstranit záznam" 150 151 #: formrecords.sremoverecordconfirm 152 msgctxt "formrecords.sremoverecordconfirm" 153 msgid "Do you want to remove record?" 154 msgstr "Opravdu chcete odstranit záznam?" 155 156 #: formrecords.stable 157 msgctxt "formrecords.stable" 158 msgid "Table" 159 msgstr "Tabulka" 160 161 #: formtables.snewtable 162 msgctxt "formtables.snewtable" 163 msgid "New table" 164 msgstr "Nová tabulka" 165 166 #: formtables.sremovetable 167 msgctxt "formtables.sremovetable" 168 msgid "Remove table" 169 msgstr "Odstranit tabulku" 170 171 #: formtables.sremovetableconfirm 172 #, object-pascal-format 173 msgctxt "formtables.sremovetableconfirm" 174 msgid "Do you want to really remove table '%s' ?" 175 msgstr "Opravdu chcete odstranit tabulku '%s'?" 176 177 #: ipaddress.sstringtoipconversionerror 178 msgctxt "ipaddress.sstringtoipconversionerror" 179 msgid "String to IP address conversion error" 180 msgstr "Chyba převodu řetězce na IP adresu" 181 182 #: tcore.aabout.caption 183 msgid "About" 184 msgstr "O aplikaci" 185 186 #: tcore.adatabaseconnect.caption 187 msgid "Connect" 188 msgstr "Připojit" 189 190 #: tcore.adatabasedisconnect.caption 191 msgid "Disconnect" 192 msgstr "Odpojit" 193 194 #: tcore.aexit.caption 195 msgid "Exit" 196 msgstr "Ukončit" 197 198 #: tcore.applicationinfo1.description 199 msgid "Customizable database storage" 200 msgstr "Nastavitelné databázové úložiště" 201 202 #: tcore.apreferences.caption 203 msgctxt "tcore.apreferences.caption" 204 msgid "Preferences" 205 msgstr "Předvolby" 206 14 207 #: tformconnect.buttoncancel.caption 15 208 msgctxt "tformconnect.buttoncancel.caption" … … 333 526 msgid "Records" 334 527 msgstr "Záznamy" 335 336 #: udatabase.sfieldnotfound337 #, object-pascal-format338 msgid "Field %s not found"339 msgstr "Pole %s nenalezeno"340 341 #: udatabase.stypeboolean342 msgctxt "udatabase.stypeboolean"343 msgid "Boolean"344 msgstr "Logická hodnota"345 346 #: udatabase.stypedate347 msgctxt "udatabase.stypedate"348 msgid "Date"349 msgstr "Datum"350 351 #: udatabase.stypedatetime352 msgctxt "udatabase.stypedatetime"353 msgid "Date and time"354 msgstr "Datum a čas"355 356 #: udatabase.stypefloat357 msgctxt "udatabase.stypefloat"358 msgid "Float"359 msgstr "Desetinné číslo"360 361 #: udatabase.stypeimage362 msgctxt "udatabase.stypeimage"363 msgid "Image"364 msgstr "Obrázek"365 366 #: udatabase.stypeinteger367 msgctxt "udatabase.stypeinteger"368 msgid "Integer"369 msgstr "Celé číslo"370 371 #: udatabase.stypemapposition372 msgctxt "udatabase.stypemapposition"373 msgid "Map position"374 msgstr "Pozice na mapě"375 376 #: udatabase.stypereference377 msgctxt "udatabase.stypereference"378 msgid "Reference"379 msgstr "Odkaz"380 381 #: udatabase.stypestring382 msgctxt "udatabase.stypestring"383 msgid "String"384 msgstr "Řetězec"385 386 #: udatabase.stypetime387 msgctxt "udatabase.stypetime"388 msgid "Time"389 msgstr "Čas"390 391 #: uenginexml.scolumnnotfoundintable392 #, object-pascal-format393 msgid "Column %s not found in table %s"394 msgstr "Sloupec %s nenalezen v tabulce %s"395 396 #: uenginexml.sfieldnotfound397 #, object-pascal-format398 msgid "Table field %s not found"399 msgstr "Pole tabulky %s nenalezeno"400 401 #: uenginexml.stablenotfound402 #, object-pascal-format403 msgid "Table %s not found"404 msgstr "Tabulka %s nenalezena"405 406 #: uenginexml.sunsupportedsqlcommand407 #, object-pascal-format408 msgid "Unsupported SQL command: %s"409 msgstr "Nepodporovaný SQL příkaz: %s"410 411 #: uenginexml.swrongfileformat412 msgid "Wrong file format"413 msgstr "Špatný formát souboru"414 415 #: uformconnect.sanyfile416 msgid "Any file"417 msgstr "Jakýkoliv soubor"418 419 #: uformconnect.sxmlfiles420 msgid "XML files"421 msgstr "XML soubory"422 423 #: uformdatabases.snewdatabase424 msgid "New database"425 msgstr "Nová databáze"426 427 #: uformdatabases.sremovedatabaseconnection428 msgid "Remove database connection"429 msgstr "Odstranění databázového spojení"430 431 #: uformdatabases.sremovedatabaseconnectionquery432 #, object-pascal-format433 msgid "Do you want to really remove database connection %s?"434 msgstr "Opravdu chcete odstranit databázové spojení %s?"435 436 #: uformfields.sfieldsnotset437 msgid "Fields not set"438 msgstr "Políčka nejsou nastavena"439 440 #: uformfields.snewfield441 msgid "New field"442 msgstr "Nové políčko"443 444 #: uformfields.stablefields445 #, object-pascal-format446 msgid "Table fields - %s"447 msgstr "Políčka tabulky - %s"448 449 #: uformrecord.stablerecordedit450 msgid "Table record edit"451 msgstr "Úprava záznamu tabulky"452 453 #: uformrecords.sremoverecord454 msgid "Remove record"455 msgstr "Odstranit záznam"456 457 #: uformrecords.sremoverecordconfirm458 msgid "Do you want to remove record?"459 msgstr "Opravdu chcete odstranit záznam?"460 461 #: uformrecords.stable462 msgctxt "uformrecords.stable"463 msgid "Table"464 msgstr "Tabulka"465 466 #: uformtables.snewtable467 msgid "New table"468 msgstr "Nová tabulka"469 470 #: uformtables.sremovetable471 msgid "Remove table"472 msgstr "Odstranit tabulku"473 474 #: uformtables.sremovetableconfirm475 #, object-pascal-format476 msgid "Do you want to really remove table '%s' ?"477 msgstr "Opravdu chcete odstranit tabulku '%s'?"478 479 #: uipaddress.sstringtoipconversionerror480 msgctxt "uipaddress.sstringtoipconversionerror"481 msgid "String to IP address conversion error"482 msgstr "Chyba převodu řetězce na IP adresu"483 -
trunk/Languages/MyData.pot
r30 r32 1 1 msgid "" 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 4 #: dbengine.sfieldnotfound 5 #, object-pascal-format 6 msgctxt "dbengine.sfieldnotfound" 7 msgid "Field %s not found" 8 msgstr "" 9 10 #: dbengine.stypeboolean 11 msgctxt "dbengine.stypeboolean" 12 msgid "Boolean" 13 msgstr "" 14 15 #: dbengine.stypedate 16 msgctxt "dbengine.stypedate" 17 msgid "Date" 18 msgstr "" 19 20 #: dbengine.stypedatetime 21 msgctxt "dbengine.stypedatetime" 22 msgid "Date and time" 23 msgstr "" 24 25 #: dbengine.stypefloat 26 msgctxt "dbengine.stypefloat" 27 msgid "Float" 28 msgstr "" 29 30 #: dbengine.stypeimage 31 msgctxt "dbengine.stypeimage" 32 msgid "Image" 33 msgstr "" 34 35 #: dbengine.stypeinteger 36 msgctxt "dbengine.stypeinteger" 37 msgid "Integer" 38 msgstr "" 39 40 #: dbengine.stypemapposition 41 msgctxt "dbengine.stypemapposition" 42 msgid "Map position" 43 msgstr "" 44 45 #: dbengine.stypereference 46 msgctxt "dbengine.stypereference" 47 msgid "Reference" 48 msgstr "" 49 50 #: dbengine.stypestring 51 msgctxt "dbengine.stypestring" 52 msgid "String" 53 msgstr "" 54 55 #: dbengine.stypetime 56 msgctxt "dbengine.stypetime" 57 msgid "Time" 58 msgstr "" 59 60 #: enginexml.scolumnnotfoundintable 61 #, object-pascal-format 62 msgctxt "enginexml.scolumnnotfoundintable" 63 msgid "Column %s not found in table %s" 64 msgstr "" 65 66 #: enginexml.sfieldnotfound 67 #, object-pascal-format 68 msgctxt "enginexml.sfieldnotfound" 69 msgid "Table field %s not found" 70 msgstr "" 71 72 #: enginexml.stablenotfound 73 #, object-pascal-format 74 msgctxt "enginexml.stablenotfound" 75 msgid "Table %s not found" 76 msgstr "" 77 78 #: enginexml.sunsupportedsqlcommand 79 #, object-pascal-format 80 msgctxt "enginexml.sunsupportedsqlcommand" 81 msgid "Unsupported SQL command: %s" 82 msgstr "" 83 84 #: enginexml.swrongfileformat 85 msgctxt "enginexml.swrongfileformat" 86 msgid "Wrong file format" 87 msgstr "" 88 89 #: formconnect.sanyfile 90 msgctxt "formconnect.sanyfile" 91 msgid "Any file" 92 msgstr "" 93 94 #: formconnect.sxmlfiles 95 msgctxt "formconnect.sxmlfiles" 96 msgid "XML files" 97 msgstr "" 98 99 #: formdatabases.snewdatabase 100 msgctxt "formdatabases.snewdatabase" 101 msgid "New database" 102 msgstr "" 103 104 #: formdatabases.sremovedatabaseconnection 105 msgctxt "formdatabases.sremovedatabaseconnection" 106 msgid "Remove database connection" 107 msgstr "" 108 109 #: formdatabases.sremovedatabaseconnectionquery 110 #, object-pascal-format 111 msgctxt "formdatabases.sremovedatabaseconnectionquery" 112 msgid "Do you want to really remove database connection %s?" 113 msgstr "" 114 115 #: formfields.sfieldsnotset 116 msgctxt "formfields.sfieldsnotset" 117 msgid "Fields not set" 118 msgstr "" 119 120 #: formfields.snewfield 121 msgctxt "formfields.snewfield" 122 msgid "New field" 123 msgstr "" 124 125 #: formfields.stablefields 126 #, object-pascal-format 127 msgctxt "formfields.stablefields" 128 msgid "Table fields - %s" 129 msgstr "" 130 131 #: formrecord.stablerecordedit 132 msgctxt "formrecord.stablerecordedit" 133 msgid "Table record edit" 134 msgstr "" 135 136 #: formrecords.sremoverecord 137 msgctxt "formrecords.sremoverecord" 138 msgid "Remove record" 139 msgstr "" 140 141 #: formrecords.sremoverecordconfirm 142 msgctxt "formrecords.sremoverecordconfirm" 143 msgid "Do you want to remove record?" 144 msgstr "" 145 146 #: formrecords.stable 147 msgctxt "formrecords.stable" 148 msgid "Table" 149 msgstr "" 150 151 #: formtables.snewtable 152 msgctxt "formtables.snewtable" 153 msgid "New table" 154 msgstr "" 155 156 #: formtables.sremovetable 157 msgctxt "formtables.sremovetable" 158 msgid "Remove table" 159 msgstr "" 160 161 #: formtables.sremovetableconfirm 162 #, object-pascal-format 163 msgctxt "formtables.sremovetableconfirm" 164 msgid "Do you want to really remove table '%s' ?" 165 msgstr "" 166 167 #: ipaddress.sstringtoipconversionerror 168 msgctxt "ipaddress.sstringtoipconversionerror" 169 msgid "String to IP address conversion error" 170 msgstr "" 171 172 #: tcore.aabout.caption 173 msgid "About" 174 msgstr "" 175 176 #: tcore.adatabaseconnect.caption 177 msgid "Connect" 178 msgstr "" 179 180 #: tcore.adatabasedisconnect.caption 181 msgid "Disconnect" 182 msgstr "" 183 184 #: tcore.aexit.caption 185 msgid "Exit" 186 msgstr "" 187 188 #: tcore.applicationinfo1.description 189 msgid "Customizable database storage" 190 msgstr "" 191 192 #: tcore.apreferences.caption 193 msgctxt "tcore.apreferences.caption" 194 msgid "Preferences" 195 msgstr "" 3 196 4 197 #: tformconnect.buttoncancel.caption … … 324 517 msgstr "" 325 518 326 #: udatabase.sfieldnotfound327 #, object-pascal-format328 msgid "Field %s not found"329 msgstr ""330 331 #: udatabase.stypeboolean332 msgid "Boolean"333 msgstr ""334 335 #: udatabase.stypedate336 msgid "Date"337 msgstr ""338 339 #: udatabase.stypedatetime340 msgid "Date and time"341 msgstr ""342 343 #: udatabase.stypefloat344 msgid "Float"345 msgstr ""346 347 #: udatabase.stypeimage348 msgid "Image"349 msgstr ""350 351 #: udatabase.stypeinteger352 msgid "Integer"353 msgstr ""354 355 #: udatabase.stypemapposition356 msgid "Map position"357 msgstr ""358 359 #: udatabase.stypereference360 msgid "Reference"361 msgstr ""362 363 #: udatabase.stypestring364 msgid "String"365 msgstr ""366 367 #: udatabase.stypetime368 msgid "Time"369 msgstr ""370 371 #: uenginexml.scolumnnotfoundintable372 #, object-pascal-format373 msgid "Column %s not found in table %s"374 msgstr ""375 376 #: uenginexml.sfieldnotfound377 #, object-pascal-format378 msgid "Table field %s not found"379 msgstr ""380 381 #: uenginexml.stablenotfound382 #, object-pascal-format383 msgid "Table %s not found"384 msgstr ""385 386 #: uenginexml.sunsupportedsqlcommand387 #, object-pascal-format388 msgid "Unsupported SQL command: %s"389 msgstr ""390 391 #: uenginexml.swrongfileformat392 msgid "Wrong file format"393 msgstr ""394 395 #: uformconnect.sanyfile396 msgid "Any file"397 msgstr ""398 399 #: uformconnect.sxmlfiles400 msgid "XML files"401 msgstr ""402 403 #: uformdatabases.snewdatabase404 msgid "New database"405 msgstr ""406 407 #: uformdatabases.sremovedatabaseconnection408 msgid "Remove database connection"409 msgstr ""410 411 #: uformdatabases.sremovedatabaseconnectionquery412 #, object-pascal-format413 msgid "Do you want to really remove database connection %s?"414 msgstr ""415 416 #: uformfields.sfieldsnotset417 msgid "Fields not set"418 msgstr ""419 420 #: uformfields.snewfield421 msgid "New field"422 msgstr ""423 424 #: uformfields.stablefields425 #, object-pascal-format426 msgid "Table fields - %s"427 msgstr ""428 429 #: uformrecord.stablerecordedit430 msgid "Table record edit"431 msgstr ""432 433 #: uformrecords.sremoverecord434 msgid "Remove record"435 msgstr ""436 437 #: uformrecords.sremoverecordconfirm438 msgid "Do you want to remove record?"439 msgstr ""440 441 #: uformrecords.stable442 msgctxt "uformrecords.stable"443 msgid "Table"444 msgstr ""445 446 #: uformtables.snewtable447 msgid "New table"448 msgstr ""449 450 #: uformtables.sremovetable451 msgid "Remove table"452 msgstr ""453 454 #: uformtables.sremovetableconfirm455 #, object-pascal-format456 msgid "Do you want to really remove table '%s' ?"457 msgstr ""458 459 #: uipaddress.sstringtoipconversionerror460 msgctxt "uipaddress.sstringtoipconversionerror"461 msgid "String to IP address conversion error"462 msgstr ""463 -
trunk/MyData.lpi
r30 r32 102 102 </Unit0> 103 103 <Unit1> 104 <Filename Value="Forms/ UFormTables.pas"/>104 <Filename Value="Forms/FormTables.pas"/> 105 105 <IsPartOfProject Value="True"/> 106 106 <ComponentName Value="FormTables"/> … … 109 109 </Unit1> 110 110 <Unit2> 111 <Filename Value=" UDatabase.pas"/>111 <Filename Value="DbEngine.pas"/> 112 112 <IsPartOfProject Value="True"/> 113 113 </Unit2> 114 114 <Unit3> 115 <Filename Value=" UCore.pas"/>115 <Filename Value="Core.pas"/> 116 116 <IsPartOfProject Value="True"/> 117 117 <ComponentName Value="Core"/> … … 120 120 </Unit3> 121 121 <Unit4> 122 <Filename Value="DbEngines/ UEngineXML.pas"/>122 <Filename Value="DbEngines/EngineXML.pas"/> 123 123 <IsPartOfProject Value="True"/> 124 124 </Unit4> 125 125 <Unit5> 126 <Filename Value="Forms/ UFormTable.pas"/>126 <Filename Value="Forms/FormTable.pas"/> 127 127 <IsPartOfProject Value="True"/> 128 128 <ComponentName Value="FormTable"/> … … 131 131 </Unit5> 132 132 <Unit6> 133 <Filename Value="Forms/ UFormRecords.pas"/>133 <Filename Value="Forms/FormRecords.pas"/> 134 134 <IsPartOfProject Value="True"/> 135 135 <ComponentName Value="FormRecords"/> … … 138 138 </Unit6> 139 139 <Unit7> 140 <Filename Value="Forms/ UFormRecord.pas"/>140 <Filename Value="Forms/FormRecord.pas"/> 141 141 <IsPartOfProject Value="True"/> 142 142 <ComponentName Value="FormRecord"/> … … 145 145 </Unit7> 146 146 <Unit8> 147 <Filename Value="Forms/ UFormFields.pas"/>147 <Filename Value="Forms/FormFields.pas"/> 148 148 <IsPartOfProject Value="True"/> 149 149 <ComponentName Value="FormFields"/> … … 152 152 </Unit8> 153 153 <Unit9> 154 <Filename Value="Forms/ UFormField.pas"/>154 <Filename Value="Forms/FormField.pas"/> 155 155 <IsPartOfProject Value="True"/> 156 156 <ComponentName Value="FormField"/> … … 159 159 </Unit9> 160 160 <Unit10> 161 <Filename Value=" UDataTypes.pas"/>161 <Filename Value="DataTypes.pas"/> 162 162 <IsPartOfProject Value="True"/> 163 163 </Unit10> 164 164 <Unit11> 165 <Filename Value="DbEngines/ UEngineMySQL.pas"/>165 <Filename Value="DbEngines/EngineMySQL.pas"/> 166 166 <IsPartOfProject Value="True"/> 167 167 </Unit11> 168 168 <Unit12> 169 <Filename Value="DbEngines/ UEngineSQLite.pas"/>169 <Filename Value="DbEngines/EngineSQLite.pas"/> 170 170 <IsPartOfProject Value="True"/> 171 171 </Unit12> 172 172 <Unit13> 173 <Filename Value="Forms/ UFormMain.pas"/>173 <Filename Value="Forms/FormMain.pas"/> 174 174 <IsPartOfProject Value="True"/> 175 175 <ComponentName Value="FormMain"/> … … 178 178 </Unit13> 179 179 <Unit14> 180 <Filename Value="Forms/ UFormConnect.pas"/>180 <Filename Value="Forms/FormConnect.pas"/> 181 181 <IsPartOfProject Value="True"/> 182 182 <ComponentName Value="FormConnect"/> … … 185 185 </Unit14> 186 186 <Unit15> 187 <Filename Value="Forms/ UFormDatabases.pas"/>187 <Filename Value="Forms/FormDatabases.pas"/> 188 188 <IsPartOfProject Value="True"/> 189 189 <ComponentName Value="FormDatabases"/> … … 192 192 </Unit15> 193 193 <Unit16> 194 <Filename Value="Forms/ UFormPreferences.pas"/>194 <Filename Value="Forms/FormPreferences.pas"/> 195 195 <IsPartOfProject Value="True"/> 196 196 <ComponentName Value="FormPreferences"/> … … 199 199 </Unit16> 200 200 <Unit17> 201 <Filename Value=" UHtmlClasses.pas"/>201 <Filename Value="HtmlClasses.pas"/> 202 202 <IsPartOfProject Value="True"/> 203 203 </Unit17> 204 204 <Unit18> 205 <Filename Value=" UXmlClasses.pas"/>205 <Filename Value="XmlClasses.pas"/> 206 206 <IsPartOfProject Value="True"/> 207 207 </Unit18> 208 208 <Unit19> 209 <Filename Value="DbEngines/ UDbClientRegistry.pas"/>209 <Filename Value="DbEngines/EngineRegistry.pas"/> 210 210 <IsPartOfProject Value="True"/> 211 211 </Unit19> 212 212 <Unit20> 213 <Filename Value=" UIpAddress.pas"/>213 <Filename Value="IpAddress.pas"/> 214 214 <IsPartOfProject Value="True"/> 215 215 </Unit20> -
trunk/MyData.lpr
r28 r32 4 4 {$IFDEF UNIX}cthreads, clocale,{$ENDIF} 5 5 Interfaces, // this includes the LCL widgetset 6 Forms, UFormTables, UCore, UIpAddress, Common,7 UFormTable, UFormRecords, UFormRecord, UFormFields, UFormField,8 UFormMain, SysUtils, UFormConnect, UFormDatabases, UFormPreferences;6 Forms, FormTables, Core, IpAddress, Common, 7 FormTable, FormRecords, FormRecord, FormFields, FormField, 8 FormMain, SysUtils, FormConnect, FormDatabases, FormPreferences; 9 9 10 10 {$R *.res} … … 25 25 Application.Scaled:=True; 26 26 Application.Initialize; 27 Application.CreateForm(TCore, Core); 28 Application.CreateForm(TFormMain, FormMain); 27 Application.CreateForm(TCore, Core.Core); 29 28 Application.Run; 30 29 end. -
trunk/XmlClasses.pas
r31 r32 1 unit UXmlClasses;1 unit XmlClasses; 2 2 3 3 interface
Note:
See TracChangeset
for help on using the changeset viewer.