opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Use a PNGImageList and find replacements for nearly all icons in the application.

Browse Source 
Sources:
- Mark James' Silk icons
- Everaldo's Crystal icons

Todo: Load icons at runtime
This commit is contained in:
Ansgar Becker
2008-03-04 00:20:38 +00:00
parent 46a17e6d14
commit bd597d0c1d
90 changed files with 2695 additions and 3669 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/sqlhelp.pas
View File

@ -5,7 +5,7 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, ShellApi, Buttons, Registry,
childwin;
childwin, PngBitBtn;
type
TfrmSQLhelp = class(TForm)
@ -24,7 +24,7 @@ type
lblExample: TLabel;
MemoExample: TMemo;
ButtonClose: TButton;
ButtonSearchOnline: TBitBtn;
btnSearchOnline: TPngBitBtn;
procedure treeTopicsExpanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
procedure treeTopicsChange(Sender: TObject; Node: TTreeNode);
@ -47,9 +47,9 @@ type
const
DEFAULT_WINDOW_CAPTION : String = 'Integrated SQL-help' ;
ICONINDEX_CATEGORY_CLOSED : Integer = 96;
ICONINDEX_CATEGORY_OPENED : Integer = 97;
ICONINDEX_HELPITEM : Integer = 98;
ICONINDEX_CATEGORY_CLOSED : Integer = 66;
ICONINDEX_CATEGORY_OPENED : Integer = 67;
ICONINDEX_HELPITEM : Integer = 68;
function SQLhelpWindow(AOwner: TComponent; Keyword: String = ''): Boolean;