mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
PngIcons:
- Ban glyph data of all TSpeedButton's + TBitBtn's out of dfm files by converting them to TPngSpeedButtons and assign an image from PngImageListMain at runtime. - Add "highlight" versions of "database" and "table" icons and use these on selected DBtree nodes. - Remove no longer used BMP icons Todo: Fill PngImageListMain at runtime. Note 1: TBitBtn's are not Windows-theme-aware, even with a manifest in place, so we should avoid using them anywhere. Note 2: T(Png)SpeedButton lacks a TabOrder property, so some of the other TabOrder's are automatically changed here.
This commit is contained in:
@ -5,7 +5,7 @@ interface
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls, ExtCtrls, ShellApi, Buttons, Registry,
|
||||
childwin, PngBitBtn;
|
||||
childwin, PngSpeedButton;
|
||||
|
||||
type
|
||||
TfrmSQLhelp = class(TForm)
|
||||
@ -24,7 +24,8 @@ type
|
||||
lblExample: TLabel;
|
||||
MemoExample: TMemo;
|
||||
ButtonClose: TButton;
|
||||
btnSearchOnline: TPngBitBtn;
|
||||
btnSearchOnline: TPngSpeedButton;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure treeTopicsExpanding(Sender: TObject; Node: TTreeNode;
|
||||
var AllowExpansion: Boolean);
|
||||
procedure treeTopicsChange(Sender: TObject; Node: TTreeNode);
|
||||
@ -79,6 +80,16 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{**
|
||||
FormCreate
|
||||
}
|
||||
procedure TfrmSQLhelp.FormCreate(Sender: TObject);
|
||||
begin
|
||||
// Assign images from main imagelist to speedbuttons
|
||||
btnSearchOnline.PngImage := Mainform.PngImageListMain.PngImages[69].PngImage;
|
||||
end;
|
||||
|
||||
|
||||
{***
|
||||
Startup
|
||||
}
|
||||
|
Reference in New Issue
Block a user