Discussion :

[halimweb]

Bonjour,

J'espère que vous allez bien,


Je cherche des skins gratuites pour skinner mon programme.

Merci d'avance.

[chaplin]

En allant sur ce site, en fuinant un peu tu trouveras des choses interessantes.

[perrysoft]

Bonjour,

J'espère que vous allez bien,


Je cherche des skins gratuites pour skinner mon programme.

Merci d'avance.

Bonjour

regarde sur le site www.delphiskins.com il y a une version gratuite des composants alphacontrolss.

Cordialement
Sébastien

[halimweb]

Bonjour

regarde sur le site www.delphiskins.com il y a une version gratuite des composants alphacontrolss.

Cordialement
Sébastien

Merci, les Skins sont magnifique,

Mais comment j'utilise les skins?

sur mon fichier DFM je trouve ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  object SkinData1: TSkinData
    Active = True
    DisableTag = 99
    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcGroupBox, xcStatusBar, xcTab, xcSystemMenu]
    Skin3rd.Strings = (
      'TTBDock=Panel'
      'TTBToolbar=Panel'
      'TImageEnMView=scrollbar'
      ......etc
    SkinStore = '(Good)'
    SkinFormtype = sfMainform
    Version = '2.68.9.07'
    MenuUpdate = True
    Left = 184
    Top = 11
    SkinStream ={  41537A66030000000B0000004F7074696 ...etc

et sur les skins de Alphacontrols je trouve le code suivent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 object sSkinManager1: TsSkinManager
    InternalSkins = <
      item
        Name = 'WMP 2008 (internal)'
        GeneralData = <>
        Images = <>
        Patterns = <>
        Shadow1Color = clBlack
        Shadow1Offset = 0
        Shadow1Transparency = 0
        Data = {
          41537A66080000000B0000004...etc

comment je remplace mon skin par celui de Alphacontrols?

Merci pour votre aide.

[NABIL74]

salut ,

Mais comment j'utilise les skins?

pour utiliser les skins de "alpha controls":
1-sur ta fiche joute le composant "sSkinManager".
2-dans sa propriété "skinDirectory" clique sur les "..." et donne le chemin dans lequel se trouve ton skin.
3-mets la propriété "active" à "true"
c'est tout.

bonne chance

A+

NABIL74

[halimweb]

salut ,


pour utiliser les skins de "alpha controls":
1-sur ta fiche joute le composant "sSkinManager".
2-dans sa propriété "skinDirectory" clique sur les "..." et donne le chemin dans lequel se trouve ton skin.
3-mets la propriété "active" à "true"
c'est tout.

bonne chance

A+

NABIL74

Je suis faible avec Delphi,
Mon programme contient déjà un Skin, et je veux le remplacer par le Skin de Alphacontrols
Mais le probleme c'est que mon skin commence par " SkinStream ="
Et le Skin de Alphacontrols commence par "Data ="
Quand je remplace le code de mon Skin par le code de Alphacontrols l'application ne marche pas.
( je remplace le code qui contient des chiffres et des lettres comme: 41537A66030000000B0000004F7074696...)

Merci pour votre aide.