kkdxghlctlcxxtidyuum Ответов: 0

Object pascal - как вызвать эту функцию?


Привет,

В течение последних двух недель я пытался найти способ применить собственные значки к моим кнопкам TBitmapButtons.

Я просматривал исходный код для всех компонентов Lazarus и нашел некоторые соответствующие функции. Однако я не знаю, как вызвать эти функции.

function GetLCLDefaultBtnGlyph(Kind: TBitBtnKind): TGraphic;
begin
Result := GetDefaultButtonIcon(BitBtnImages[Kind]);
end;


Я считаю, что приведенная выше функция управляет свойством TBitmapButton "kind", которое включает в себя некоторые значки, о которых я говорю. Однако он не включает в себя другие важные значки кнопок, такие как "сохранить", "скопировать" и т. д. Таким образом, следующая функция привлекла мое внимание немного больше:

function GetDefaultButtonIcon(idButton: Integer): TCustomBitmap;
begin
Result := nil;
if (idButton < Low(BitBtnResNames)) or (idButton > High(BitBtnResNames)) then
Exit;
if BitBtnResNames[idButton] = '' then
Exit;
Result := TPortableNetworkGraphic.Create;
Result.LoadFromResourceName(hInstance, BitBtnResNames[idButton]);
end;


Кто-нибудь знает, как я могу назначить значки системных кнопок по умолчанию, например, кнопке "Сохранить как", используя эту функцию?

Большое спасибо за вашу помощь! :)

Что я уже пробовал:

Я пробовал изучать функции, однако не знаю, как применить то, что я узнал в этом контексте.
Я также пробовал другие форумы, однако никто не ответил никакими решениями, связанными с Pascal; только решения на других языках, таких как Java.

0 Ответов