[GExperts-Checkins] SF.net SVN: gexperts:[4307] trunk/Source

[<tw...@us...>]

Revision: 4307
          http://sourceforge.net/p/gexperts/code/4307
Author:   twm
Date:     2024-09-10 15:55:22 +0000 (Tue, 10 Sep 2024)
Log Message:
-----------
* output the detected IDE version
* only make the project leader name an url label if the feedback wizard form exists

Modified Paths:
--------------
    trunk/Source/Formatter/GX_AboutExperimental.dfm
    trunk/Source/Framework/GX_About.dfm
    trunk/Source/Framework/GX_About.pas

Modified: trunk/Source/Formatter/GX_AboutExperimental.dfm
===================================================================
--- trunk/Source/Formatter/GX_AboutExperimental.dfm	2024-09-10 15:49:36 UTC (rev 4306)
+++ trunk/Source/Formatter/GX_AboutExperimental.dfm	2024-09-10 15:55:22 UTC (rev 4307)
@@ -1,6 +1,6 @@
 inherited fmAboutExperimental: TfmAboutExperimental
   Caption = 'About GExperts - Experimental'
-  ClientHeight = 330
+  ClientHeight = 329
   PixelsPerInch = 96
   TextHeight = 14
   inherited lblWebPage: TLabel
@@ -14,9 +14,8 @@
     Left = 256
     Top = 192
   end
-  inherited lblErik: TLabel
+  inherited lblProjectLeaderName: TLabel
     Top = 160
-    OnClick = nil
   end
   inherited lblWebSite: TLabel
     Top = 135
@@ -73,13 +72,6 @@
     Left = 488
     Top = 296
   end
-  inherited pnlLogo: TPanel
-    Top = 26
-    inherited imgLogo: TImage
-      Left = 2
-      Top = 0
-    end
-  end
   inherited btnEmail: TButton
     Left = 240
     Top = 296
@@ -86,7 +78,6 @@
     Width = 241
   end
   inherited mmoContributors: TMemo
-    Left = 368
     Top = 192
     Width = 225
     Height = 97

Modified: trunk/Source/Framework/GX_About.dfm
===================================================================
--- trunk/Source/Framework/GX_About.dfm	2024-09-10 15:49:36 UTC (rev 4306)
+++ trunk/Source/Framework/GX_About.dfm	2024-09-10 15:55:22 UTC (rev 4307)
@@ -4,8 +4,8 @@
   ActiveControl = btnClose
   BorderStyle = bsDialog
   Caption = 'About GExperts'
-  ClientHeight = 283
-  ClientWidth = 614
+  ClientHeight = 289
+  ClientWidth = 617
   Color = clBtnFace
   Font.Charset = ANSI_CHARSET
   Font.Color = clWindowText
@@ -26,10 +26,10 @@
     Caption = 'GExperts'
   end
   object lblVersion: TLabel
-    Left = 232
-    Top = 35
-    Width = 369
-    Height = 22
+    Left = 224
+    Top = 32
+    Width = 385
+    Height = 33
     Alignment = taCenter
     AutoSize = False
     Caption = 'Version ?.??'
@@ -58,14 +58,12 @@
     Alignment = taRightJustify
     Caption = 'Major Contributors:'
   end
-  object lblErik: TLabel
+  object lblProjectLeaderName: TLabel
     Left = 368
     Top = 91
     Width = 85
     Height = 20
-    Cursor = crHandPoint
     Caption = 'Thomas Mueller'
-    OnClick = btnEmailClick
   end
   object lblWebSite: TLabel
     Left = 304
@@ -97,9 +95,9 @@
   end
   object mmoBuildDetails: TMemo
     Left = 224
-    Top = 241
-    Width = 241
-    Height = 40
+    Top = 240
+    Width = 273
+    Height = 49
     Alignment = taCenter
     BorderStyle = bsNone
     Color = clBtnFace
@@ -113,8 +111,8 @@
     Visible = False
   end
   object btnClose: TButton
-    Left = 473
-    Top = 243
+    Left = 504
+    Top = 256
     Width = 105
     Height = 26
     Cancel = True
@@ -124,25 +122,23 @@
     TabOrder = 1
   end
   object pnlLogo: TPanel
-    Left = 14
-    Top = 15
-    Width = 203
-    Height = 254
+    Left = 8
+    Top = 8
+    Width = 217
+    Height = 273
     BevelOuter = bvLowered
     TabOrder = 2
     object imgLogo: TImage
-      Left = 1
-      Top = 1
+      Left = 9
+      Top = 9
       Width = 201
       Height = 252
       Center = True
-      Proportional = True
-      Stretch = True
     end
   end
   object btnEmail: TButton
-    Left = 245
-    Top = 243
+    Left = 248
+    Top = 256
     Width = 213
     Height = 26
     Caption = '&Send a Bug Report/Suggestion'
@@ -150,10 +146,10 @@
     OnClick = btnEmailClick
   end
   object mmoContributors: TMemo
-    Left = 367
+    Left = 368
     Top = 112
-    Width = 223
-    Height = 121
+    Width = 241
+    Height = 129
     BevelInner = bvNone
     BevelOuter = bvNone
     BorderStyle = bsNone

Modified: trunk/Source/Framework/GX_About.pas
===================================================================
--- trunk/Source/Framework/GX_About.pas	2024-09-10 15:49:36 UTC (rev 4306)
+++ trunk/Source/Framework/GX_About.pas	2024-09-10 15:55:22 UTC (rev 4307)
@@ -24,7 +24,7 @@
     lblWebPage: TLabel;
     lblProjectLeader: TLabel;
     lblContributors: TLabel;
-    lblErik: TLabel;
+    lblProjectLeaderName: TLabel;
     lblWebSite: TLabel;
     lblPreRelease1: TLabel;
     lblPreRelease2: TLabel;
@@ -68,8 +68,9 @@
 uses
   {$IFOPT D+} GX_DbugIntf, {$ENDIF}
   SysUtils, Graphics, ToolsApi, Messages,
+  u_dzVclUtils,
   GX_GxUtils,
-  GX_GenericUtils, GX_FeedbackWizard, GX_LibrarySource, u_dzVclUtils;
+  GX_GenericUtils, GX_FeedbackWizard, GX_LibrarySource, GX_GetIdeVersion;
 
 const
   DefaultBugEmail = 'bu...@ge...';  // Do not localize.
@@ -96,6 +97,8 @@
 
 {$IF DECLARED(TfmFeedbackWizard)}
   btnEmail.Visible := True;
+  lblProjectLeaderName.Cursor := crHandPoint;
+  lblProjectLeaderName.OnClick := btnEmailClick;
 {$ELSE}
   btnEmail.Visible := False;
 {$IFEND}
@@ -132,14 +135,16 @@
   SetFontColor(lblPreRelease2, clRed);
   SetFontSize(lblGExperts, +4);
   SetFontSize(lblVersion, +4);
-  SetFontUnderline(lblErik);
-  SetFontColor(lblErik, clBlue);
+{$IF DECLARED(TfmFeedbackWizard)}
+  SetFontUnderline(lblProjectLeaderName);
+  SetFontColor(lblProjectLeaderName, clBlue);
+{$IFEND}
   SetFontColor(mmoBuildDetails, clRed);
 end;
 
 procedure TfmAbout.InitVersionInfoControls;
 begin
-  lblVersion.Caption := GetVersionStr;
+  lblVersion.Caption := GetVersionStr + #13#10 + 'running in ' + GetBorlandIdeVersionStr;
 end;
 
 class procedure TfmAbout.SetCustomBuildDetails(const Details: string);

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.