Skip to content

Commit 8c211ea

Browse files
SkybuckFlyingSkybuckFlying
committed
UFramesMessages re-designed
Bevels might need some more work.
1 parent 5914eeb commit 8c211ea

File tree

6 files changed

+264
-128
lines changed

6 files changed

+264
-128
lines changed

‎src/gui-classic/Frames/UFrameMessages.dfm‎

Lines changed: 161 additions & 82 deletions
Original file line numberDiff line numberDiff line change
@@ -1,81 +1,26 @@
11
object FrameMessages: TFrameMessages
22
Left = 0
33
Top = 0
4-
Width = 817
5-
Height = 622
4+
Width = 764
5+
Height = 466
66
TabOrder = 0
7-
DesignSize = (
8-
817
9-
622)
10-
object Label11: TLabel
11-
Left = 15
12-
Top = 151
13-
Width = 51
14-
Height = 13
15-
Caption = 'Messages:'
16-
Color = clBtnFace
17-
ParentColor = False
18-
end
19-
object Label12: TLabel
20-
Left = 315
21-
Top = 11
22-
Width = 85
23-
Height = 13
24-
Caption = 'Message to send:'
25-
Color = clBtnFace
26-
ParentColor = False
27-
end
28-
object Label13: TLabel
29-
Left = 15
30-
Top = 11
31-
Width = 109
32-
Height = 13
33-
Caption = 'Available Connections:'
34-
Color = clBtnFace
35-
ParentColor = False
36-
end
37-
object Label14: TLabel
38-
Left = 410
39-
Top = 11
40-
Width = 361
41-
Height = 13
42-
Caption =
43-
'(Messages will be encrypted, so only dest connection will be abl' +
44-
'e to read it)'
45-
Color = clBtnFace
46-
Font.Charset = DEFAULT_CHARSET
47-
Font.Color = clGrayText
48-
Font.Height = -11
49-
Font.Name = 'Tahoma'
50-
Font.Style = []
51-
ParentColor = False
52-
ParentFont = False
53-
end
54-
object lbNetConnections: TListBox
55-
Left = 15
56-
Top = 30
57-
Width = 275
58-
Height = 96
59-
ItemHeight = 13
60-
MultiSelect = True
61-
ScrollWidth = 273
62-
TabOrder = 0
63-
end
64-
object bbSendAMessage: TButton
65-
Left = 292
66-
Top = 101
67-
Width = 525
68-
Height = 25
69-
Caption = 'Send a Message'
70-
TabOrder = 1
71-
OnClick = bbSendAMessageClick
7+
object Splitter1: TSplitter
8+
Left = 0
9+
Top = 233
10+
Width = 764
11+
Height = 3
12+
Cursor = crVSplit
13+
Align = alBottom
14+
ResizeStyle = rsUpdate
15+
ExplicitTop = 0
16+
ExplicitWidth = 304
7217
end
7318
object memoMessages: TMemo
74-
Left = -4
75-
Top = 170
76-
Width = 821
77-
Height = 249
78-
Anchors = [akLeft, akTop, akRight, akBottom]
19+
Left = 0
20+
Top = 256
21+
Width = 764
22+
Height = 210
23+
Align = alBottom
7924
Font.Charset = DEFAULT_CHARSET
8025
Font.Color = clWindowText
8126
Font.Height = -16
@@ -87,16 +32,150 @@ object FrameMessages: TFrameMessages
8732
ParentFont = False
8833
ReadOnly = True
8934
ScrollBars = ssBoth
90-
TabOrder = 2
35+
TabOrder = 0
9136
end
92-
object memoMessageToSend: TMemo
93-
Left = 292
94-
Top = 30
95-
Width = 525
96-
Height = 61
97-
Lines.Strings = (
98-
'memoMessageToSend')
99-
TabOrder = 3
100-
WantReturns = False
37+
object PanelBottom: TPanel
38+
Left = 0
39+
Top = 236
40+
Width = 764
41+
Height = 20
42+
Align = alBottom
43+
Caption = 'Messages:'
44+
TabOrder = 1
45+
ExplicitTop = 238
46+
end
47+
object PanelTop: TPanel
48+
Left = 0
49+
Top = 0
50+
Width = 764
51+
Height = 233
52+
Align = alClient
53+
Caption = ' '
54+
TabOrder = 2
55+
ExplicitLeft = 256
56+
ExplicitTop = 192
57+
ExplicitWidth = 185
58+
ExplicitHeight = 41
59+
object Splitter2: TSplitter
60+
Left = 289
61+
Top = 1
62+
Height = 231
63+
ResizeStyle = rsUpdate
64+
ExplicitLeft = 440
65+
ExplicitTop = 144
66+
ExplicitHeight = 100
67+
end
68+
object PanelLeft: TPanel
69+
Left = 1
70+
Top = 1
71+
Width = 288
72+
Height = 231
73+
Align = alLeft
74+
Caption = ' '
75+
TabOrder = 0
76+
ExplicitHeight = 299
77+
object lbNetConnections: TListBox
78+
Left = 1
79+
Top = 21
80+
Width = 286
81+
Height = 209
82+
Align = alClient
83+
ItemHeight = 13
84+
MultiSelect = True
85+
ScrollWidth = 273
86+
TabOrder = 0
87+
ExplicitLeft = 0
88+
ExplicitTop = 19
89+
ExplicitHeight = 213
90+
end
91+
object Panel5: TPanel
92+
Left = 1
93+
Top = 1
94+
Width = 286
95+
Height = 20
96+
Align = alTop
97+
Caption = 'Available Connections:'
98+
TabOrder = 1
99+
end
100+
end
101+
object PanelRight: TPanel
102+
Left = 292
103+
Top = 1
104+
Width = 471
105+
Height = 231
106+
Align = alClient
107+
Caption = ' '
108+
TabOrder = 1
109+
ExplicitLeft = 504
110+
ExplicitTop = 152
111+
ExplicitWidth = 185
112+
ExplicitHeight = 41
113+
object memoMessageToSend: TMemo
114+
Left = 1
115+
Top = 21
116+
Width = 469
117+
Height = 143
118+
Align = alClient
119+
Lines.Strings = (
120+
'memoMessageToSend')
121+
TabOrder = 0
122+
WantReturns = False
123+
ExplicitLeft = 64
124+
ExplicitTop = 103
125+
ExplicitWidth = 371
126+
ExplicitHeight = 61
127+
end
128+
object Panel6: TPanel
129+
Left = 1
130+
Top = 1
131+
Width = 469
132+
Height = 20
133+
Align = alTop
134+
Caption = 'Message to send:'
135+
TabOrder = 1
136+
end
137+
object Panel7: TPanel
138+
Left = 1
139+
Top = 164
140+
Width = 469
141+
Height = 66
142+
Align = alBottom
143+
Caption = ' '
144+
TabOrder = 2
145+
ExplicitTop = 232
146+
ExplicitWidth = 522
147+
DesignSize = (
148+
469
149+
66)
150+
object Label14: TLabel
151+
Left = 14
152+
Top = 11
153+
Width = 361
154+
Height = 13
155+
Caption =
156+
'(Messages will be encrypted, so only dest connection will be abl' +
157+
'e to read it)'
158+
Color = clBtnFace
159+
Font.Charset = DEFAULT_CHARSET
160+
Font.Color = clGrayText
161+
Font.Height = -11
162+
Font.Name = 'Tahoma'
163+
Font.Style = []
164+
ParentColor = False
165+
ParentFont = False
166+
end
167+
object bbSendAMessage: TButton
168+
Left = 14
169+
Top = 30
170+
Width = 446
171+
Height = 25
172+
Anchors = [akLeft, akTop, akRight]
173+
Caption = 'Send a Message'
174+
TabOrder = 0
175+
OnClick = bbSendAMessageClick
176+
ExplicitWidth = 499
177+
end
178+
end
179+
end
101180
end
102181
end

‎src/gui-classic/Frames/UFrameMessages.pas‎

Lines changed: 13 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -4,18 +4,24 @@ interface
44

55
uses
66
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
7-
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
7+
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
88

99
type
1010
TFrameMessages = class(TFrame)
11-
Label11: TLabel;
12-
Label12: TLabel;
13-
Label13: TLabel;
14-
Label14: TLabel;
15-
lbNetConnections: TListBox;
16-
bbSendAMessage: TButton;
1711
memoMessages: TMemo;
12+
PanelBottom: TPanel;
13+
Splitter1: TSplitter;
14+
PanelTop: TPanel;
15+
PanelLeft: TPanel;
16+
Splitter2: TSplitter;
17+
PanelRight: TPanel;
1818
memoMessageToSend: TMemo;
19+
lbNetConnections: TListBox;
20+
Panel5: TPanel;
21+
Panel6: TPanel;
22+
Panel7: TPanel;
23+
Label14: TLabel;
24+
bbSendAMessage: TButton;
1925
procedure bbSendAMessageClick(Sender: TObject);
2026
private
2127
{ Private declarations }

‎src/gui-classic/Frames/UFrameNodeStats.dfm‎

Lines changed: 14 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ object FrameNodeStats: TFrameNodeStats
66
TabOrder = 0
77
object Splitter1: TSplitter
88
Left = 0
9-
Top = 139
9+
Top = 137
1010
Width = 711
1111
Height = 3
1212
Cursor = crVSplit
@@ -17,7 +17,7 @@ object FrameNodeStats: TFrameNodeStats
1717
end
1818
object Splitter2: TSplitter
1919
Left = 0
20-
Top = 293
20+
Top = 292
2121
Width = 711
2222
Height = 3
2323
Cursor = crVSplit
@@ -29,16 +29,14 @@ object FrameNodeStats: TFrameNodeStats
2929
end
3030
object memoNetConnections: TMemo
3131
Left = 0
32-
Top = 22
32+
Top = 20
3333
Width = 711
3434
Height = 117
3535
Align = alTop
3636
ReadOnly = True
37-
ScrollBars = ssBoth
37+
ScrollBars = ssVertical
3838
TabOrder = 0
3939
WordWrap = False
40-
ExplicitTop = 28
41-
ExplicitWidth = 763
4240
end
4341
object memoNetServers: TMemo
4442
Left = 0
@@ -47,48 +45,47 @@ object FrameNodeStats: TFrameNodeStats
4745
Height = 143
4846
Align = alBottom
4947
ReadOnly = True
50-
ScrollBars = ssBoth
48+
ScrollBars = ssVertical
5149
TabOrder = 1
5250
WordWrap = False
5351
end
5452
object memoNetBlackLists: TMemo
5553
Left = 0
56-
Top = 165
54+
Top = 160
5755
Width = 711
58-
Height = 128
56+
Height = 132
5957
Align = alClient
6058
ReadOnly = True
61-
ScrollBars = ssBoth
59+
ScrollBars = ssVertical
6260
TabOrder = 2
6361
WordWrap = False
64-
ExplicitHeight = 108
6562
end
6663
object Panel1: TPanel
6764
Left = 0
6865
Top = 0
6966
Width = 711
70-
Height = 22
67+
Height = 20
7168
Align = alTop
7269
Caption = 'Active Connections:'
7370
TabOrder = 3
7471
end
7572
object Panel2: TPanel
7673
Left = 0
77-
Top = 142
74+
Top = 140
7875
Width = 711
79-
Height = 23
76+
Height = 20
8077
Align = alTop
8178
Caption = 'Blacklisted Nodes:'
8279
TabOrder = 4
8380
end
8481
object Panel3: TPanel
8582
Left = 0
86-
Top = 296
83+
Top = 295
8784
Width = 711
88-
Height = 19
85+
Height = 20
8986
Align = alBottom
9087
Caption = 'Known Node Servers:'
9188
TabOrder = 5
92-
ExplicitTop = 303
89+
ExplicitTop = 293
9390
end
9491
end

0 commit comments

Comments
 (0)