VCLSkin - w jaki sposób z tego korzystać?

0

Witam, nigdy nie miałem styczności z VCLSkin, wiec chciałbym prosić o waszą pomoc.
Więc mógłby mi ktoś dokładnie opisać, jak się tego używa? Jak dodać skin itd. Jestem nowicjuszem, więc nie wszystko potrafię. Proszę o pomoc..

0

Kładziesz na formę komponent TSkinData
W SkinStore ustalasz skórkę z dysku (wtedy ta skórka będzie wbudowana w program). Wybierasz Active = True i w zasadzie to wszystko.

Jeśli chcesz ładować dynamicznie to:

uses 
  WinSkinData

var
 SkinEngine: TSkinData;

begin
 if FileExists(ExtractFilePath(Application.ExeName) + 'skins.skn') then
   begin
    SkinEngine := TSkinData.Create(Self);
    SkinEngine.MenuMerge    := False;
    SkinEngine.MenuUpdate   := True;
    SkinEngine.Options      := [xoTransparent];//[xoTransparent,xoPreview,xoToolbarBK,xoCaptionButtonHint];
    SkinEngine.SkinControls := [xcMainMenu,xcPopupMenu,xcMenuItem,xcToolbar,xcControlbar,xcCombo,xcCheckBox,xcRadioButton,{xcProgress,}xcScrollbar,xcEdit,xcButton,xcBitBtn,xcSpin,xcGroupBox,xcStatusBar,xcTab,xcTrackBar,xcSystemMenu]; //weź w klamry te komponenty, których nie chcesz oskórować np: ProgressBar
    SkinEngine.SkinFormtype := sfMainform;
    SkinEngine.LoadFromFile(ExtractFilePath(Application.ExeName) + 'skins.skn');
    SkinEngine.Active := True;
   end;
end;

//w OnDestroy
SkinEngine.Free;

Skórki masz na stronie www.link-rank.com

0

Dzięki.
Szkoda, że to demo.

0

Możesz używać dema w wersji 2.4x. Bardzo stara wersja z błędami, ciężko ją znaleźć, ale tam jedyną przeszkodą w jej używaniu był dodatkowy napis na belce programu "VCLSkin DEMO", który wystarczyło przesunąć spacją, np. tak:

Form1.Caption := 'Mój program                                               ';

Wtedy napis ukrywał się na końcu za przyciskami zamykania okna.

0

Dobra, nie przeszkadza mi to w sumie.
Ale dzięki za pomoc :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1