VPF::Иконка в statusbar - Форум программистов

ZBugz

Дата 22.2.2010, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Всем привет. А как поместить иконку в statusbar и обработать по ней клик ?
Ну допустим внадо ее поместить в statusbar.Panels[1] и обрабатывать ее. Т.е. когда что то там, то неактивна иконка, если все что надо, иконка активна и по ней можно кликать и обрабатывать. Все как в Internet Explorer, у него тоже самое внизу.

Rrader

Дата 22.2.2010, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Простейший способ - создать или поместить на строку TImage

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  StatusBar1.Height := 23;
  with TImage.Create(Self) do
  begin
    Parent := StatusBar1;
    AutoSize := True;
    Left := StatusBar1.Panels[0].Width + 2;
    Top := Top + 4;
    Picture.Icon.LoadFromFile('C:\help.ico');
    OnClick := ImageClick; // Обработчик
  end;
end;

--------------------

Let's do this quickly!
Rest in peace, Vit!

ZBugz

Дата 22.2.2010, 21:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Цитата(Rrader @ 22.2.2010, 15:54)

Простейший способ - создать или поместить на строку TImage

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  StatusBar1.Height := 23;
  with TImage.Create(Self) do
  begin
    Parent := StatusBar1;
    AutoSize := True;
    Left := StatusBar1.Panels[0].Width + 2;
    Top := Top + 4;
    Picture.Icon.LoadFromFile('C:\help.ico');
    OnClick := ImageClick; // Обработчик
  end;
end;

Спасибо, работает. Но мне надо что бы statusbar был стандартного размера. Так же почему то иконка 16х16 вылазиет за границы, если статусбар стандартный, и вылазиет не хило.
И не очень понял про это smile

Код


OnClick := ImageClick; // Обработчик

Че там писать после ImageClick smile

Akella

Дата 22.2.2010, 23:34 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Так уменьши размер изображения каким-нибудь редактором.

Добавлено через 3 минуты и 38 секунд

Цитата(ZBugz @ 22.2.2010, 21:44

)

Че там писать после ImageClick

Почему после?
ImageClick - это событие обработки щелчка мышки.

Код


type
  TForm7 = class(TForm)
......


  private
    procedure ImageClick(Sender: TObject);

  public
    { Public declarations }

  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.ImageClick(Sender: TObject);
begin
 ShowMessage('тру-ля-ля');
end;

Rrader

Дата 23.2.2010, 05:14 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Цитата(ZBugz @ 23.2.2010, 03:44

)

Но мне надо что бы statusbar был стандартного размера

Цитата(ZBugz @ 22.2.2010, 18:52

)

Все как в Internet Explorer, у него тоже самое внизу.

У IE высота строки = 23 px

--------------------

Let's do this quickly!
Rest in peace, Vit!

ZBugz

Дата 24.2.2010, 09:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Цитата(Rrader @ 23.2.2010, 05:14)

У IE высота строки = 23 px

А, чето даже не обращал внимания smile

Добавлено через 2 минуты и 29 секунд

Цитата

Так уменьши размер изображения каким-нибудь редактором.

Дык все уменьшенно. У меня наборы иконок, 16х16 вылазила...

Цитата

Код


procedure TForm7.ImageClick(Sender: TObject);
begin
 ShowMessage('тру-ля-ля');
end;

А, понял

Всем спасибо smile

ZBugz

Дата 24.2.2010, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

А еще вопрос, а как брать иконку не из файла, а из imagelist который на форме ?

ZBugz

Дата 24.2.2010, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Все, нашел smile

Код


 with TImage.Create(Self) do
  begin
    Parent := SB;
    AutoSize := True;
    Left := SB.Panels[0].Width + 2;
    Top := Top + 4;
    InfoImg.GetIcon(10, Picture.Icon);
    OnClick := ImageClick;
  end;

Причем тут сразу же решается проблема влазиния иконки в рамки smile

, о которой я выше написал.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »