[Gareth]

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

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

[poli-smen]

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

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

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

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

Код:

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.
Примерно как-то так:

Код:

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;

Этот код позволяет вставлять в 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) файла:

Код:

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, вот так ей можно пользоваться

Код:

...
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;
...