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:
Ansgar Becker
2008-03-09 19:56:52 +00:00
parent 866146d4b7
commit e53db0a9b7
29 changed files with 387 additions and 389 deletions

View File

@ -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
}