daws...
Jeg har et problem. jeg har en funktion som finder det icon der et tilknyttet et program, det ikon bliver så lagt ind i en imagelist.
men når jeg så henter ikonet ind i en toolbutton (TBX) så er kvaliteten sindsygt ringe, hvordan kan jeg fikse det?
her er min funktion + en procedure hvor knappen bliver lavet.
<pre>
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellApi, TB2Item, TBX, TB2Dock, TB2Toolbar, ImgList;
type
TForm1 = class(TForm)
Button1: TButton;
TBXToolbar1: TTBXToolbar;
TBXSubmenuItem1: TTBXSubmenuItem;
ImageList1: TImageList;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function geticon(path:string):Ticon;
var
Buffer, buf: array[0..2047] of Char;
IconIndex: word;
IconHandle: HIcon;
TheIcon: TIcon;
begin
StrCopy(@Buffer, pchar(path));
IconIndex := 0;
IconHandle := ExtractAssociatedIcon(HInstance, Buffer, IconIndex);
TheIcon:=TIcon.Create;
TheIcon.Handle := IconHandle;
result := Theicon;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
NewItem: TTBXItem;
begin
NewItem := TTBXItem.Create(form1);
NewItem.Caption := 'putty';
NewItem.ImageIndex := Form1.ImageList1.Count;
Form1.ImageList1.AddIcon(geticon('c:\\putty.exe'));
NewItem.Images := Form1.ImageList1;
Form1.TBXToolbar1.Items.Items[0].Add(NewItem);
end;
end.
</pre>
- SpeC - #SpeC.DK @ Q-NET