[Gareth]

Здравствуйте, помогите пожалуйста.
Я умею загружать в image путь до файла и его ярлык. То-есть по нажатию на image у меня отображается иконка и запускается программа...

Как мне сделать тоже самое на кнопки в которые можно загружать картинки, типа speedbutton.
Загружается всё через опендиалог
Подскажите пожалуйста!

[poli-smen]

Сообщение от Gareth

Я умею загружать в image путь до файла и его ярлык. То-есть по нажатию на image у меня отображается иконка и запускается программа...

Как мне сделать тоже самое на кнопки в которые можно загружать картинки, типа speedbutton.
Загружается всё через опендиалог

Компонент TSpeedButton иконки не умеет отображать, он отображает TBitmap, поэтому для отображения иконки в TSpeedButton нужно её преобразовать в TBitmap.
Примерно как-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.SpeedButton1Click(Sender: TObject); var   ico: TIcon;   bmp: TBitmap; begin   ico := TIcon.Create;   try     ico.Handle := ExtractIcon(HInstance, 'C:\WINDOWS\system32\calc.exe', 0);     bmp := TBitmap.Create;     try       bmp.PixelFormat := pf32bit;       bmp.Width := ico.Width;       bmp.Height := ico.Height;       bmp.Canvas.Draw(0, 0, ico);       SpeedButton1.Glyph.Assign(bmp);     finally       bmp.Free;     end;   finally     ico.Free;   end; end;

[Gareth]

А есть кнопки которые отображают иконки как image ? Что бы не маятся с этими преобразованиями)
Делаю программу, по нажатию какой либо кнопки на мышке будет вызываться моя форма с ярлыками.


А на счет BitBtn ? С ним так же надо будет преобразовывать ?

[Gareth]

Сообщение от poli-smen

Компонент TSpeedButton иконки не умеет отображать, он отображает TBitmap, поэтому для отображения иконки в TSpeedButton нужно её преобразовать в TBitmap.
Примерно как-то так:

Код:

Этот код позволяет вставлять в speedbutton только ico, когда вставляю файл например exe, jpg или что-то другое, на кнопке появляется белый квадрат.
Как можно сделать так, что бы отображался любой ярлык?)

[poli-smen]

Сообщение от Gareth

Этот код позволяет вставлять в speedbutton только ico, когда вставляю файл например exe, jpg или что-то другое, на кнопке появляется белый квадрат.

Вообще-то "calc.exe" это вовсе никакой не "ico", а очень даже "exe".

Сообщение от Gareth

Как можно сделать так, что бы отображался любой ярлык?)

Если я правильно тебя понял, тебе нужно что-то вроде такого "Получить иконку файла по ярлыку" или такого "Получить иконку из ярлыка"

[Gareth]

Poli-smen я новичок, там на всю страницу код, еще и на англ))

Сейчас доходчиво попробую объяснить что конкретно мне надо

У меня есть панель, на ней хочу сделать кнопки, не важно speedbutton или bitbtn... По нажатию по кнопке, будет открываться opendialog, там я буду выберать нужный себе файл. Картинка файла будет грузится в кнопку.
И по нажатию этой кнопки будет открываться тот файл который я выбрал в opendialog.

Я со всем разобрался, не знаю лишь как загрузить в speedbutton или bitbtn икону ярлыка.

Сообщение от poli-smen

Если я правильно тебя понял, тебе нужно что-то вроде такого Получить иконку из ярлыка

Да, получить его в любую из кнопок (speedbutton, bitbtn)

Помогите пожалуйста понять как это делается .

[poli-smen]

Сообщение от Gareth

Я со всем разобрался, не знаю лишь как загрузить в speedbutton или bitbtn икону ярлыка.

Честно не могу понять в чём у тебя загвоздка. Выше я уже приводил код, который получает иконку для конкретного файла (в примере было для калькулятора). Осталось только переделать этот код, чтобы он получал иконку из произвольно выбранного (через OpenDialog) файла:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TForm1.SpeedButton1Click(Sender: TObject); var   ico: TIcon;   bmp: TBitmap;   FileName: AnsiString; begin   if OpenDialog1.Execute then   begin     FileName := OpenDialog1.FileName;     ico := TIcon.Create;     try       ico.Handle := ExtractIcon(HInstance, Pointer(FileName), 0);       bmp := TBitmap.Create;       try         bmp.PixelFormat := pf32bit;         bmp.Width := ico.Width;         bmp.Height := ico.Height;         bmp.Canvas.Draw(0, 0, ico);         SpeedButton1.Glyph.Assign(bmp);       finally         bmp.Free;       end;     finally       ico.Free;     end;   end; end;

[Alegun]

В модуле ShellApi есть подходящая функция ExtractAssociatedIcon, вот так ей можно пользоваться

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

... var    Icon : TIcon;    Pch: array[0..256] of Char;    IconIndex: Word;   begin    Icon := TIcon.Create;    StrPCopy(Pch,'C:\WINDOWS\NOTEPAD.EXE');    Icon.Handle:= ExtractAssociatedIcon(hInstance, Pch, IconIndex);    SpeedButton1.Glyph.Width:= Icon.Width;    SpeedButton1.Glyph.Height:= Icon.Height;    SpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);    Icon.Free; end; ...

[Gareth]

Poli-smen, Alegun спасибо Вам огромное!!!

Сделал то что я хотел

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

var   Form1: TForm1;      S:string;   ..... ....   procedure TForm1.sSpeedButton1Click(Sender: TObject);   var    Icon : TIcon;    Pch: array[0..256] of Char;    IconIndex: Word; begin   if S='' then   // если переменная пуста     begin        sOpenDialog1.Execute; //открыть опен-диалог        S:=sOpenDialog1.FileName;   //переменная равна выбранному файлу         if S='' then               // если переменная по прежнему пуста         begin                sSpeedButton1.Glyph:=nil;           ShowMessage('Ничего не выбрано');         end         else            sSpeedButton1.Glyph:=nil;          Icon:=TIcon.Create;          StrPCopy(Pch,S);          Icon.Handle:= ExtractAssociatedIcon(hInstance, Pch, IconIndex);          sSpeedButton1.Glyph.Width:= Icon.Width;          sSpeedButton1.Glyph.Height:= Icon.Height;          sSpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);          Icon.Free;          end       else           begin           sPanel1.Caption:=S;           ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE);           end;  end;

Еще раз спасибо!!

[Gareth]

Мужики, подскажите пожалуйста, тот код что выше я написал.
Я нажимаю на кнопку, идет проверка переменной S типа string, где должен лежать путь к файлу.
Если он пуст, то открывается opendialog, выбирается файл.
После этого идет еще одна проверка переменной S.
Если она всё еще пуста, то появляется сообщение о том что ничего не выбрано в opendialoge.
Если она не пуста, то загружает в себя картинку выбранного файла, и потом запускает этот файл.

Вот мне надо узнать, при второй проверке переменной S, если она всё еще пуста, (в opendialog`e ничего не выбрал, нажал отмена. ) сделать так что бы кнопка не грузила в себя ничего. Была просто пустой.

Пробовал писать

Код:

1	speedbutton1.glyph:=nil;

Код как бы работает, но не в тот момент когда мне надо.
В 12 строке кода то, что я делаю.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

var    Icon : TIcon;    Pch: array[0..256] of Char;    IconIndex: Word; begin   if S='' then   // если переменная пуста     begin        sOpenDialog1.Execute; //открыть опен-диалог        S:=sOpenDialog1.FileName;   //переменная равна выбранному файлу         if S='' then               // если переменная по прежнему пуста         begin                sSpeedButton1.Glyph:=nil; // ВОТ ТУТ Я ПИШУ КОД, КОТОРЫЙ ДОЛЖЕН ОЧИСТИТЬ КНОПКУ ОТ КАРТИНОК.           ShowMessage('Ничего не выбрано');         end         else             sSpeedButton1.Glyph:=nil;          Icon:=TIcon.Create;          StrPCopy(Pch,S);          Icon.Handle:= ExtractAssociatedIcon(hInstance, Pch, IconIndex);          sSpeedButton1.Glyph.Width:= Icon.Width;          sSpeedButton1.Glyph.Height:= Icon.Height;          sSpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);          Icon.Free;           end       else           begin           sPanel1.Caption:=S;           ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE);           end;  end;

[Alegun]

Ведь для этого специально функция Execute у диалога результатом булева, поддерживает такую конструкцию

Код:

1 2 3 4 5 6 7

... if sOpenDialog1.Execute then begin // Здесь всё что нужно сделать при выборе кнопки OK в диалоге // end; ...

если ничего не выбрано (нажата отмена) то ничего и не произойдёт

[Gareth]

Сообщение от Alegun

Ведь для этого специально функция Execute у диалога результатом булева, поддерживает такую конструкцию

Код:

если ничего не выбрано (нажата отмена) то ничего и не произойдёт

Помогите с ошибкой, что не так делаю ?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

var   Form1: TForm1;      Icon: TIcon;    Pch: array[0..256] of Char;    IconIndex: Word;    S:String; ....... .......   procedure TForm1.sSpeedButton1Click(Sender: TObject); begin if S='' then     begin        if sOpenDialog1.Execute then        begin          S:=sOpenDialog1.FileName;          Icon:=TIcon.Create;          StrPCopy(Pch,S);          Icon.Handle:= ExtractAssociatedIcon(hInstance, Pch, IconIndex);          sSpeedButton1.Glyph.Width:= Icon.Width;          sSpeedButton1.Glyph.Height:= Icon.Height;          sSpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);          Icon.Free;          end;       end       else     begin             ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE);     end; end;

Всё работает нормально, ярлык отображается, но как только закрываю программу, выскакивает ошибка
access violation at address 00000000

В интернете естественно искал, но нашёл только одну похожую тему. Человек делал что-то похожее на то, что делаю я, только в 2004 году . - ссылка
Внятного ответа не было. Будьте добры, помогите