mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
5b0bb48d0a
a) some hundred lines of code from childwin.pas to main.pas b) redundant hints/captions/shortcuts/events for similar buttons/menuitems to their corresponding TAction in main.dfm . This change a) avoids several inconsistent captions like described in issue #595 b) makes it easier to have toolbars on the mainform which are controlled by childform.
111 lines
2.3 KiB
ObjectPascal
111 lines
2.3 KiB
ObjectPascal
unit About;
|
|
|
|
|
|
// -------------------------------------
|
|
// About-box
|
|
// -------------------------------------
|
|
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Menus, Classes, Graphics, Forms, Controls, StdCtrls,
|
|
Buttons, ExtCtrls, ShellApi, SysUtils, dialogs, ComCtrls, GIFImg;
|
|
|
|
|
|
type
|
|
TAboutBox = class(TForm)
|
|
PanelLogos: TPanel;
|
|
ImageMysql: TImage;
|
|
ButtonClose: TButton;
|
|
PanelMain: TPanel;
|
|
ProductName: TLabel;
|
|
LabelVersion: TLabel;
|
|
LabelCompiled: TLabel;
|
|
LabelWebpage: TLabel;
|
|
LabelAuthors: TLabel;
|
|
ButtonBoard: TButton;
|
|
ImageHeidisql: TImage;
|
|
MemoThanks: TMemo;
|
|
LabelThanks: TLabel;
|
|
MemoAuthors: TMemo;
|
|
ImageDonate: TImage;
|
|
btnUpdateCheck: TButton;
|
|
procedure OpenURL(Sender: TObject);
|
|
procedure MouseOver(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
|
procedure FormShow(Sender: TObject);
|
|
|
|
private
|
|
{ Private declarations }
|
|
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
|
|
procedure AboutWindow( AOwner: TComponent );
|
|
|
|
// -----------------------------------------------------------------------------
|
|
implementation
|
|
|
|
|
|
uses
|
|
main, helpers;
|
|
|
|
|
|
{$R *.DFM}
|
|
|
|
|
|
procedure AboutWindow( AOwner: TComponent );
|
|
var
|
|
f : TAboutBox;
|
|
begin
|
|
f := TAboutBox.Create( AOwner );
|
|
f.ShowModal(); // don't care about result
|
|
FreeAndNil(f);
|
|
end;
|
|
|
|
|
|
procedure TAboutBox.OpenURL(Sender: TObject);
|
|
begin
|
|
ShellExec( TControl(Sender).Hint );
|
|
end;
|
|
|
|
|
|
procedure TAboutBox.MouseOver(Sender: TObject; Shift: TShiftState;
|
|
X, Y: Integer);
|
|
begin
|
|
LabelWebpage.Font.Color := clBlue;
|
|
if (Sender is TLabel) then
|
|
begin
|
|
TLabel(Sender).Font.Color := clRed;
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TAboutBox.FormShow(Sender: TObject);
|
|
var
|
|
// CompiledInt : Integer;
|
|
Compiled : TDateTime;
|
|
begin
|
|
// Define the current cursor like a clock
|
|
Screen.Cursor := crHourGlass;
|
|
|
|
// Avoid scroll by removing blank line outside visible area in Authors text box
|
|
MemoAuthors.Text := TrimRight(MemoAuthors.Text);
|
|
|
|
// App-Version
|
|
LabelVersion.Caption := FullAppVersion;
|
|
|
|
// Compile-date
|
|
FileAge(ParamStr(0), Compiled);
|
|
LabelCompiled.Caption := 'Compiled on: ' + DateTimeToStr( Compiled );
|
|
|
|
// Define the current cursor like a pointer (default)
|
|
Screen.Cursor := crDefault;
|
|
end;
|
|
|
|
|
|
end.
|
|
|