paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 17:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Connections tab first

Browse Source 
git-svn-id: trunk@51122 -
This commit is contained in:
michael 2016-01-02 13:37:19 +00:00
parent dd5a0c7dd9
commit d72933eb26
1 changed files with 38 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
tools/lazdatadesktop/frmmain.lfm
View File

@ -129,46 +129,11 @@ object MainForm: TMainForm
Height = 418
Top = 26
Width = 458
ActivePage = TSAll
ActivePage = TSConnections
Align = alClient
Images = ILMain
TabIndex = 2
TabIndex = 0
TabOrder = 1
object TSRecent: TTabSheet
Caption = 'Dictionaries'
ClientHeight = 380
ClientWidth = 450
ImageIndex = 19
object LVDicts: TListView
Left = 0
Height = 380
Top = 0
Width = 458
Align = alClient
Columns = <
item
Caption = 'Name'
Width = 10
end
item
Caption = 'Filename'
Width = 10
end
item
Caption = 'Last used on'
Width = 617
end>
PopupMenu = PMDataDict
ReadOnly = True
RowSelect = True
SortColumn = 2
SortType = stText
TabOrder = 0
ViewStyle = vsReport
OnDblClick = OpenRecentDatadict
OnKeyUp = LVDictsKeyUp
end
end
object TSConnections: TTabSheet
Caption = 'Connections'
ClientHeight = 380
@ -178,7 +143,7 @@ object MainForm: TMainForm
Left = 0
Height = 380
Top = 0
Width = 458
Width = 450
Align = alClient
Columns = <
item
@ -207,6 +172,41 @@ object MainForm: TMainForm
OnKeyUp = LVConnectionsKeyUp
end
end
object TSRecent: TTabSheet
Caption = 'Dictionaries'
ClientHeight = 380
ClientWidth = 450
ImageIndex = 19
object LVDicts: TListView
Left = 0
Height = 380
Top = 0
Width = 450
Align = alClient
Columns = <
item
Caption = 'Name'
Width = 10
end
item
Caption = 'Filename'
Width = 10
end
item
Caption = 'Last used on'
Width = 617
end>
PopupMenu = PMDataDict
ReadOnly = True
RowSelect = True
SortColumn = 2
SortType = stText
TabOrder = 0
ViewStyle = vsReport
OnDblClick = OpenRecentDatadict
OnKeyUp = LVDictsKeyUp
end
end
object TSAll: TTabSheet
Caption = 'Connections/Dictionaries'
ClientHeight = 380