Tweak appearance on Gnome 3.

jonentropy · Aug 25, 2012 · 7726382 · 7726382
1 parent 5b0ed37
commit 7726382
Show file tree

Hide file tree

Showing 3 changed files with 63 additions and 63 deletions.
diff --git a/hgdcx.res b/hgdcx.res
diff --git a/login.lfm b/login.lfm
@@ -1,10 +1,10 @@
 object frmLogin: TfrmLogin
   Left = 419
-  Height = 197
+  Height = 233
   Top = 130
   Width = 290
   Caption = 'Log in to hgd'
-  ClientHeight = 197
+  ClientHeight = 233
   ClientWidth = 290
   Color = clForm
   Constraints.MinHeight = 197
@@ -57,11 +57,11 @@ object frmLogin: TfrmLogin
   LCLVersion = '0.9.30.4'
   object gbLastFM: TGroupBox
     Left = 8
-    Height = 189
+    Height = 225
     Top = 216
     Width = 274
     Anchors = [akTop, akLeft, akRight, akBottom]
-    ClientHeight = 171
+    ClientHeight = 221
     ClientWidth = 270
     TabOrder = 0
     Visible = False
@@ -137,9 +137,9 @@ object frmLogin: TfrmLogin
     end
     object lblLastFM: TLabel
       Left = 46
-      Height = 16
+      Height = 22
       Top = 6
-      Width = 42
+      Width = 55
       HelpType = htKeyword
       Caption = 'Last.fm'
       Enabled = False
@@ -150,33 +150,33 @@ object frmLogin: TfrmLogin
     end
     object chkScrobbling: TCheckBox
       Left = 6
-      Height = 19
+      Height = 25
       Top = 38
-      Width = 115
+      Width = 142
       Caption = 'Enable Scrobbling'
       Enabled = False
       TabOrder = 0
     end
     object chkScrobbling1: TCheckBox
       Left = 6
-      Height = 19
+      Height = 25
       Top = 54
-      Width = 120
+      Width = 154
       Caption = 'Scrobble All Tracks'
       Enabled = False
       TabOrder = 1
     end
     object edtLastFMUser: TLabeledEdit
       Left = 6
-      Height = 23
+      Height = 31
       Top = 102
       Width = 144
       EditLabel.AnchorSideLeft.Control = edtLastFMUser
       EditLabel.AnchorSideBottom.Control = edtLastFMUser
       EditLabel.Left = 6
-      EditLabel.Height = 16
-      EditLabel.Top = 83
-      EditLabel.Width = 57
+      EditLabel.Height = 22
+      EditLabel.Top = 77
+      EditLabel.Width = 70
       EditLabel.Caption = 'Username:'
       EditLabel.ParentColor = False
       Enabled = False
@@ -194,17 +194,17 @@ object frmLogin: TfrmLogin
   end
   object gbHGDServer: TGroupBox
     Left = 5
-    Height = 187
+    Height = 223
     Top = 8
     Width = 280
     Anchors = [akTop, akLeft, akRight, akBottom]
     Caption = 'HGD Server'
-    ClientHeight = 169
+    ClientHeight = 200
     ClientWidth = 276
     TabOrder = 1
     object edtHost: TEdit
       Left = 112
-      Height = 23
+      Height = 31
       Top = 6
       Width = 154
       Anchors = [akTop, akLeft, akRight]
@@ -213,17 +213,17 @@ object frmLogin: TfrmLogin
     end
     object edtPort: TEdit
       Left = 112
-      Height = 23
-      Top = 40
+      Height = 31
+      Top = 53
       Width = 154
       Anchors = [akTop, akLeft, akRight]
       TabOrder = 2
       Text = '6633'
     end
     object edtPwd: TEdit
       Left = 112
-      Height = 23
-      Top = 94
+      Height = 31
+      Top = 119
       Width = 154
       Anchors = [akTop, akLeft, akRight]
       EchoMode = emPassword
@@ -232,41 +232,41 @@ object frmLogin: TfrmLogin
     end
     object edtUser: TEdit
       Left = 112
-      Height = 23
-      Top = 67
+      Height = 31
+      Top = 86
       Width = 154
       Anchors = [akTop, akLeft, akRight]
       TabOrder = 3
     end
     object lblPassword: TLabel
       Left = 34
-      Height = 16
-      Top = 103
-      Width = 54
+      Height = 22
+      Top = 125
+      Width = 69
       Caption = 'Password:'
       ParentColor = False
     end
     object lblUser: TLabel
       Left = 34
-      Height = 16
-      Top = 76
-      Width = 27
+      Height = 22
+      Top = 93
+      Width = 36
       Caption = 'User:'
       ParentColor = False
     end
     object lblPort: TLabel
       Left = 34
-      Height = 16
-      Top = 49
-      Width = 26
+      Height = 22
+      Top = 59
+      Width = 34
       Caption = 'Port:'
       ParentColor = False
     end
     object lblHost: TLabel
       Left = 34
-      Height = 16
+      Height = 22
       Top = 10
-      Width = 29
+      Width = 37
       Caption = 'Host:'
       Layout = tlBottom
       ParentColor = False
@@ -275,7 +275,7 @@ object frmLogin: TfrmLogin
       Left = 143
       Height = 26
       Hint = 'Apply changes to the connection settings.'
-      Top = 132
+      Top = 163
       Width = 114
       Anchors = [akRight, akBottom]
       Caption = 'Log in'
@@ -324,10 +324,10 @@ object frmLogin: TfrmLogin
     end
     object chkSSL: TCheckBox
       Left = 32
-      Height = 19
+      Height = 25
       Hint = 'Encrypt connection to server (if server supports it).'
-      Top = 25
-      Width = 38
+      Top = 27
+      Width = 50
       Caption = 'SSL'
       ParentFont = False
       ParentShowHint = False
@@ -363,7 +363,7 @@ object frmLogin: TfrmLogin
     object imPort: TImage
       Left = 8
       Height = 16
-      Top = 49
+      Top = 59
       Width = 16
       ParentShowHint = False
       Picture.Data = {
@@ -397,7 +397,7 @@ object frmLogin: TfrmLogin
     object imUser: TImage
       Left = 8
       Height = 16
-      Top = 76
+      Top = 93
       Width = 16
       ParentShowHint = False
       Picture.Data = {
@@ -427,7 +427,7 @@ object frmLogin: TfrmLogin
     object imPassword: TImage
       Left = 8
       Height = 16
-      Top = 103
+      Top = 125
       Width = 16
       ParentShowHint = False
       Picture.Data = {
@@ -466,7 +466,7 @@ object frmLogin: TfrmLogin
     object btnCancel: TBitBtn
       Left = 23
       Height = 26
-      Top = 132
+      Top = 163
       Width = 110
       Anchors = [akLeft, akBottom]
       Caption = 'Cancel'
@@ -515,7 +515,7 @@ object frmLogin: TfrmLogin
   end
   object XMLPropStorage1: TXMLPropStorage
     StoredValues = <>
-    left = 81
-    top = 32
+    left = 240
+    top = 8
   end
 end
diff --git a/main.lfm b/main.lfm
@@ -5,7 +5,7 @@ object frmMain: TfrmMain
   Width = 579
   AllowDropFiles = True
   Caption = 'Hgdc-X'
-  ClientHeight = 527
+  ClientHeight = 498
   ClientWidth = 579
   Color = clForm
   Constraints.MinHeight = 200
@@ -8353,7 +8353,7 @@ object frmMain: TfrmMain
   Visible = True
   object sgPlaylist: TStringGrid
     Left = 5
-    Height = 339
+    Height = 310
     Top = 160
     Width = 568
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -8397,13 +8397,13 @@ object frmMain: TfrmMain
     Width = 568
     Anchors = [akTop, akLeft, akRight]
     Caption = 'Now Playing'
-    ClientHeight = 99
-    ClientWidth = 560
+    ClientHeight = 98
+    ClientWidth = 564
     TabOrder = 1
     object lblNoAlbumArt: TLabel
       Left = 7
       Height = 38
-      Top = 32
+      Top = 28
       Width = 90
       Alignment = taCenter
       AutoSize = False
@@ -8415,9 +8415,9 @@ object frmMain: TfrmMain
     end
     object lblNoPlaylist: TLabel
       Left = -2
-      Height = 16
-      Top = 38
-      Width = 566
+      Height = 32
+      Top = 37
+      Width = 570
       Alignment = taCenter
       Anchors = [akLeft, akRight, akBottom]
       AutoSize = False
@@ -8430,7 +8430,7 @@ object frmMain: TfrmMain
     object lblTitle: TLabel
       Left = 120
       Height = 1
-      Top = 6
+      Top = 4
       Width = 1
       ParentColor = False
       ParentFont = False
@@ -8439,7 +8439,7 @@ object frmMain: TfrmMain
     object lblArtist: TLabel
       Left = 120
       Height = 1
-      Top = 22
+      Top = 20
       Width = 1
       ParentColor = False
       ParentFont = False
@@ -8448,7 +8448,7 @@ object frmMain: TfrmMain
     object lblAlbum: TLabel
       Left = 120
       Height = 1
-      Top = 38
+      Top = 36
       Width = 1
       ParentColor = False
       ParentFont = False
@@ -8457,7 +8457,7 @@ object frmMain: TfrmMain
     object Bevel1: TBevel
       Left = 7
       Height = 92
-      Top = 6
+      Top = 2
       Width = 92
       Shape = bsFrame
       Visible = False
@@ -8466,7 +8466,7 @@ object frmMain: TfrmMain
       Left = 8
       Height = 90
       Hint = 'Artwork provided by Last.fm.'
-      Top = 7
+      Top = 3
       Width = 90
       ParentShowHint = False
       ShowHint = True
@@ -8477,7 +8477,7 @@ object frmMain: TfrmMain
       Left = 21
       Height = 64
       Hint = 'You have voted this song off.'
-      Top = 19
+      Top = 15
       Width = 64
       ParentShowHint = False
       Picture.Data = {
@@ -8702,7 +8702,7 @@ object frmMain: TfrmMain
     object lblGenre: TLabel
       Left = 120
       Height = 1
-      Top = 55
+      Top = 53
       Width = 1
       ParentColor = False
       ParentFont = False
@@ -8735,13 +8735,13 @@ object frmMain: TfrmMain
     object lblYear: TLabel
       Left = 120
       Height = 1
-      Top = 72
+      Top = 70
       Width = 1
       ParentColor = False
       ParentFont = False
     end
     object btnCrapSong: TSpeedButton
-      Left = 526
+      Left = 530
       Height = 32
       Hint = 'Vote off current song.'
       Top = 2
@@ -8890,7 +8890,7 @@ object frmMain: TfrmMain
     Left = 4
     Height = 16
     Hint = 'Connection is encrypted.'
-    Top = 504
+    Top = 475
     Width = 16
     Anchors = [akLeft, akBottom]
     ParentShowHint = False
@@ -8926,7 +8926,7 @@ object frmMain: TfrmMain
     Left = 4
     Height = 16
     Hint = 'Connection is not encrypted.'
-    Top = 504
+    Top = 475
     Width = 16
     Anchors = [akLeft, akBottom]
     ParentShowHint = False