Стандартные иконки mtWarning, mtError, mtInformation, mtConf

[Des]

Мне нужно получить данные иконки.
В делфи я получаю их так
Image.Icon.Handle := LoadIcon(0, IconID), где IConID берется из этого списка (IDI_EXCLAMATION, IDI_HAND, IDI_ASTERISK, IDI_QUESTION, nil)

Как получить их в лазарусе?

[Vadim]

Вы это для винды спрашиваете или кроссплатформенно?

[Des]

для линукса

[kazalex]

Как получить их в лазарусе?

Код: Выделить всё

Uses LCLType, Themes;
...
ThemeServices.GetStockImage(idDialogWarning, ...);
...


[Des]

Как получить их в лазарусе?

Код: Выделить всё

Uses LCLType, Themes;
...
ThemeServices.GetStockImage(idDialogWarning, ...);
...


что то не работает.

BH:HBitmap;
BMH:HBitmap;

ThemeServices.GetStockImage(idDialogWarning, BH,BMH); выдает false как будто ничего не нашел.

Можно полный код вплоть до того момента когда у меня в Tbitmap или Ticon записываются картинки?

[Лекс Айрин]

Des, скорее всего, вы пытаетесь работать как с виндовс...а вы программируете под линукс (подозреваю, кроссплатформено.) Имена констант (или только префиксы) вряд ли совпадают.

Добавлено спустя 14 минут 54 секунды:
Re: Стандартные иконки mtWarning, mtError, mtInformation, mtConf
вот странно.. ищем описание... function TThemeServices.GetStockImage(StockID: LongInt; out Image, Mask: HBitmap): Boolean;
Переходим к телу процедуры...

Код: Выделить всё

function TThemeServices.GetStockImage(StockID: LongInt; out Image, Mask: HBitmap): Boolean;
begin
  Result := False;
end; 

и становится понятно, что функция сильно похожа на заглушку.

[kazalex]

Можно полный код вплоть до того момента когда у меня в Tbitmap или Ticon записываются картинки?

Код: Выделить всё

Uses

LCLType, Themes;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var

bitmap : TBitmap;
i, m   : HBitmap;

begin

If ThemeServices.GetStockImage(idDialogWarning, i, m) Then
  Begin

   bitmap := TBitmap.Create;

   bitmap.Handle := i;
   If m <> 0 Then
    bitmap.MaskHandle := m;

   image1.Picture.Bitmap := bitmap;

  End;

end;

и становится понятно, что функция сильно похожа на заглушку.

Нужно смотреть класс конкретного виджетсета (на вызов бряк, потом трейс), а не базовый.

[zub]

>>и становится понятно, что функция сильно похожа на заглушку.
Если поискать еще или в отладчике посмотреть куда уходит вызов

Код: Выделить всё

ThemeServices.GetStockImage(0,Image, Mask);

прояснится что заглушка какраз не используется, используется нормальная реализация. но не факт что она полная и кроссплатформенная. в Themes к сожалению очень много недоделанного

[Лекс Айрин]

kazalex,zub, понятно. Впрочем, вряд ли я воспользуюсь данным методом -- замороченно как-то.

А какой способ используется чисто под виндой?

[Des]

Все получилось! спасибо kazalex

[kazalex]

А какой способ используется чисто под виндой?

Этот же.