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
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 :)