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.