1

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マーク

4

0 に答える 0