Discussion :

[SergioMaster]

Bonjour,

Le titre ne fait pas totalement le tour de la question.
Disons que j'ai déjà utilisé des images pour colorer certains éléments d'une liste, sujet de tutoriels comme de billets de ma part.
Cette fois j'ai voulu aller un peu plus loin en voulant obtenir la "couleur" de sélection selon le style de cette manière

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
17
18
19
20
21
var AStyle,aElement : TFMXObject;
    aBounds : TBounds;
    aRect : TRect;
begin
// obtenir image du style Selection
aBitMap := TBitmap.Create(40,40);
AStyle:=TStyleManager.ActiveStyle(Self);
aElement:=aStyle.FindStyleResource('listviewstyle.selection');
if aElement is TStyleObject then
  begin
   if Assigned(TStyleObject(aElement).SourceLink) then
     begin
       aBounds:=TBitmapLinks(TStyleObject(aElement).SourceLink).Links[0].SourceRect;
       aRect:=TRect.Create(Trunc(aBounds.Left),Trunc(aBounds.Top),Trunc(aBounds.Right),Trunc(aBounds.Bottom));
       ABitmap.Width:=ARect.Right-ARect.Left;
       ABitmap.Height:=ARect.Bottom-ARect.Top;
       aBitmap.CopyFromBitmap(TImage(aStyle.FindStyleResource(TStyleObject(aElement).sourcelookup)).Bitmap,aRect,0,0);
     end
     else ABitmap.Clear($FF3FB8C6);;
  end;
....

Pas de souci majeur de ce côté, j'obtiens bien l'image

le souci c'est à l'application

Vous remarquez certainement la déformation des coins , logique puisque mon image qui sert de fond est étirée (stretched).
La question en découle, comment faire pour ne pas avoir de déformation ? Delphi y arrive donc c'est possible, avant de plonger dans les sources, une idée ?

[tourlourou]

Bonjour,
La découper en n'étirant que le milieu ?

[SergioMaster]

Bonjour,
Oui, c'est la première idée qui m'est venue, surtout quand on regarde de plus près le "découpage" du TObjectStyle
mais cela me semble bien complexe, il faudrait créer une image de la bonne taille (taille de l'élément),
y mettre les coins, y mettre les bords haut et bas étirés en largeur uniquement, les bords droit et gauche étirés en hauteur uniquement, puis le centre
cela fait quand même beaucoup, de plus les "étirements" uniques ou non je ne vois pas comment le faire à cet instant.
Je vais fouiller dans les sources (les quelques petites plongées en apnée que j'ai pu faire hier ne m'ont pas vraiment convaincues)
Bien sûr, en attendant je me contenterai de la couleur au centre mais ce serait tellement joli avec le style complet en plus cela me donne une raison de creuser plus profondément dans les fichiers style