AdvancedTabs ユニットのサンプル コードに従って、Lazarus で何時間も試みて、画像をボタンに表示させようとしました。
サンプルコードには次のものがあります。
constructor TAdvancedTabs.Create;
var
I : integer;
begin
inherited;
with SelfSession do begin
SetCodePress;
SetStyle('.new-tab{background-image:url(' + ExtPath + '/examples/feed-viewer/images/new_tab.gif) !important}');
SetStyle('.tabs{background:url(' + ExtPath + '/examples/desktop/images/tabs.gif)}');
end;
with TExtButton.Create do begin
RenderTo := 'body';
Text := 'Add Tab using AJAX!';
IconCls := 'new-tab';
Handler := Ajax(AddTab);
OnClick := HandleExtButtonClick; // Delphi style event handler
end;
...
私はこれを持っています:
extPath := (CurrentFCGIThread as TExtThread).ExtPath;
(CurrentFCGIThread as TExtThread).SetStyle('.backbtn{background-image:url(' + ExtPath + '/basxv2/back.png) !important}');
btnClose := TV2ExtButton.Create;
with btnClose.AddTo(Items) do
begin
Id := 'frmManualOrder_btnClose';
X := MarginLeft;
Height := ButtonHeight;
Y := ScreenHeight-12*MarginLeft;
Width := ButtonWidth-10;
RenderTo := 'body';
IconCls := 'backbtn';
...
たとえば、画像をGIFに変換するなど、さまざまなことを試しましたが、ほとんどの場合、ボタンは空白であるか(Textプロパティを設定していない場合)、テキストが数ピクセル右にずれています目に見えないイメージのための余地を作るかのように。上下が切り取られた画像が数回表示されます。
誰かが私が間違っていることを見ることができますか?
TIAマーク