IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Téléchargez Pascal Discussion :

Composants palette de couleurs [Sources]


Sujet :

Téléchargez Pascal

  1. #1
    Membre chevronné

    Homme Profil pro
    au repos
    Inscrit en
    février 2014
    Messages
    429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : au repos

    Informations forums :
    Inscription : février 2014
    Messages : 429
    Points : 1 884
    Points
    1 884
    Par défaut Composants palette de couleurs
    Bonjour,

    Je vous propose un nouvel élément à utiliser : Composants palette de couleurs

    Vous trouverez deux composants dans l'unité ThColorspal :

    TThPalette : palette de couleurs sous forme de grille.
    • ajout et suppression de couleurs
    • ordonnancement des couleurs par drag and drop
    • sauvegarde et chargement des palettes créées


    TThColorCreator : création de nouvelles nuances, composant contenant une barre de plage de couleurs, une barre de luminosité, 3 barres RGB

    Testé sous Win7, Win8, Linux mint

    Les deux composants peuvent être utilisés conjointement pour se confectionner un dialogue de couleurs personnalisé.

    Le zip contient un programme demo (rien à installer, les composants sont créés dynamiquement) ainsi qu'un programme "pipette" (dialogue de couleurs avec prélèvement possible d'une couleur écran. Ne marche pas sous Linux dans l'état).

    Merci d'avance pour vos commentaires...

    Thierry

  2. #2
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    3 913
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 3 913
    Points : 13 995
    Points
    13 995
    Billets dans le blog
    8
    Par défaut
    Bonjour !

    Avant même d'avoir essayé le programme, j'aime bien le fait qu'il n'y ait rien à installer.

    Par contre il semble y avoir un problème avec le fichier ZIP. Le programme que j'ai l'habitude d'utiliser (7-ZIP) me dit : "le fichier ThColorsPal.zip ne peut être ouvert comme une archive."

  3. #3
    Expert éminent sénior
    Avatar de Jipété
    Profil pro
    Inscrit en
    juillet 2006
    Messages
    9 750
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : juillet 2006
    Messages : 9 750
    Points : 13 972
    Points
    13 972
    Par défaut
    Bonsoir,
    Citation Envoyé par Roland Chastain Voir le message
    Bonjour !

    Avant même d'avoir essayé le programme, j'aime bien le fait qu'il n'y ait rien à installer.

    Par contre il semble y avoir un problème avec le fichier ZIP. Le programme que j'ai l'habitude d'utiliser (7-ZIP) me dit : "le fichier ThColorsPal.zip ne peut être ouvert comme une archive."
    Normal (enfin, manière de dire ) : le fichier .zip pèse 0 byte ! Doit y avoir un souci quelque part...
    Il a à vivre sa vie comme ça et il est mûr sur ce mur se creusant la tête : peutêtre qu'il peut être sûr, etc.
    Oui, je milite pour l'orthographe et le respect du trait d'union à l'impératif.
    Après avoir posté, relisez-vous ! Et en cas d'erreur ou d'oubli, il existe un bouton « Modifier », à utiliser sans modération
    On a des lois pour protéger les remboursements aux faiseurs d’argent. On n’en a pas pour empêcher un être humain de mourir de misère.
    Mes 2 cts,
    --
    jp

  4. #4
    Membre chevronné

    Homme Profil pro
    au repos
    Inscrit en
    février 2014
    Messages
    429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : au repos

    Informations forums :
    Inscription : février 2014
    Messages : 429
    Points : 1 884
    Points
    1 884
    Par défaut
    Bonsoir.

    Bizarre, j'ai pourtant mis le bon fichier en pièce jointe...

  5. #5
    Expert éminent sénior
    Avatar de Jipété
    Profil pro
    Inscrit en
    juillet 2006
    Messages
    9 750
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : juillet 2006
    Messages : 9 750
    Points : 13 972
    Points
    13 972
    Par défaut
    Problème de droits, alors...
    Il a à vivre sa vie comme ça et il est mûr sur ce mur se creusant la tête : peutêtre qu'il peut être sûr, etc.
    Oui, je milite pour l'orthographe et le respect du trait d'union à l'impératif.
    Après avoir posté, relisez-vous ! Et en cas d'erreur ou d'oubli, il existe un bouton « Modifier », à utiliser sans modération
    On a des lois pour protéger les remboursements aux faiseurs d’argent. On n’en a pas pour empêcher un être humain de mourir de misère.
    Mes 2 cts,
    --
    jp

  6. #6
    Membre chevronné

    Homme Profil pro
    au repos
    Inscrit en
    février 2014
    Messages
    429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : au repos

    Informations forums :
    Inscription : février 2014
    Messages : 429
    Points : 1 884
    Points
    1 884
    Par défaut
    Voilà qui est arrangé.

    Je dois avoir oublié de cliquer sur "ajouter". Oh distraction, quand tu me tiens...

  7. #7
    Expert éminent sénior
    Avatar de Jipété
    Profil pro
    Inscrit en
    juillet 2006
    Messages
    9 750
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : juillet 2006
    Messages : 9 750
    Points : 13 972
    Points
    13 972
    Par défaut
    Citation Envoyé par ThWilliam Voir le message
    Voilà qui est arrangé.
    Impec !
    Il a à vivre sa vie comme ça et il est mûr sur ce mur se creusant la tête : peutêtre qu'il peut être sûr, etc.
    Oui, je milite pour l'orthographe et le respect du trait d'union à l'impératif.
    Après avoir posté, relisez-vous ! Et en cas d'erreur ou d'oubli, il existe un bouton « Modifier », à utiliser sans modération
    On a des lois pour protéger les remboursements aux faiseurs d’argent. On n’en a pas pour empêcher un être humain de mourir de misère.
    Mes 2 cts,
    --
    jp

  8. #8
    Expert éminent sénior
    Avatar de Jipété
    Profil pro
    Inscrit en
    juillet 2006
    Messages
    9 750
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : juillet 2006
    Messages : 9 750
    Points : 13 972
    Points
    13 972
    Par défaut
    Citation Envoyé par ThWilliam Voir le message
    [...] un programme "pipette" (dialogue de couleurs avec prélèvement possible d'une couleur écran. Ne marche pas sous Linux dans l'état).

    Merci d'avance pour vos commentaires...

    Thierry
    En première approche ultra-rapide, j'ai vu dans le code que tu joues avec la transparence, et je me suis rendu compte il y a pas mal de temps que la transparence sous Linux était fonction de l'environnement de bureau ! Exemple : sous lxde pas de transparence possible, alors que sous xfce c'est bon, par contre les curseurs perdent leurs 3 petits traits verticaux (du coup ils ressemblent à rien...)
    Il a à vivre sa vie comme ça et il est mûr sur ce mur se creusant la tête : peutêtre qu'il peut être sûr, etc.
    Oui, je milite pour l'orthographe et le respect du trait d'union à l'impératif.
    Après avoir posté, relisez-vous ! Et en cas d'erreur ou d'oubli, il existe un bouton « Modifier », à utiliser sans modération
    On a des lois pour protéger les remboursements aux faiseurs d’argent. On n’en a pas pour empêcher un être humain de mourir de misère.
    Mes 2 cts,
    --
    jp

  9. #9
    Membre chevronné

    Homme Profil pro
    au repos
    Inscrit en
    février 2014
    Messages
    429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : au repos

    Informations forums :
    Inscription : février 2014
    Messages : 429
    Points : 1 884
    Points
    1 884
    Par défaut
    Oui, je me doutais bien que cela ne pouvait être qu'un problème lié à l'alphablend.
    Sous Windows, je suis obligé de masquer la fenêtre avant de la rendre presque totalement transparente et de la maximiser.
    Sous Linux mint, lorsque je fais cela, la fenêtre garde sa taille d'origine, ce qui me donne un rectangle blanc au milieu de l'écran, normal puisque j'ai aussi caché le panel.

    Cordialement
    Thierry

  10. #10
    Expert éminent sénior
    Avatar de Jipété
    Profil pro
    Inscrit en
    juillet 2006
    Messages
    9 750
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : juillet 2006
    Messages : 9 750
    Points : 13 972
    Points
    13 972
    Par défaut
    Citation Envoyé par ThWilliam Voir le message
    Sous Linux mint, lorsque je fais cela, la fenêtre garde sa taille d'origine, ce qui me donne un rectangle blanc au milieu de l'écran, normal puisque j'ai aussi caché le panel.
    Bienvenue au club du Linux sur Desktop c'est Tchernobyl

    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
    22
    procedure TForm1.PipetteBtnClick(Sender: TObject);
    begin
       Hide;
       Panel1.Hide;
       Alphablend:= true;
       WindowState:= wsMaximized; // non pris en compte sous Xfce (ça se voit au curseur qui reste en "pipette" dans une zone wsNormal)
       Show;
    end;
     
    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    // prélèvement d'une couleur écran par la pipette
    begin
       Hide;
       FCanvas.Handle := LCLIntf.GetDC(0);
       ColorCreator.SelectedColor:= FCanvas.Pixels[Mouse.CursorPos.X, Mouse.CursorPos.Y];
       ReleaseDC(0, FCanvas.Handle); // obligatoire ?
       Panel1.Show;
       WindowState:= wsNormal; // non pris en compte sous Lxde : reste wsMaximized
       AlphaBlend:= false;
       Show; // ne fonctionne pas sous Xfce : une fois la form cachée, elle le reste ! :-(
    end;
    Par ailleurs Application.Minimize du bouton "Réduire" ne fonctionne pas dans mes deux environnements !
    Il a à vivre sa vie comme ça et il est mûr sur ce mur se creusant la tête : peutêtre qu'il peut être sûr, etc.
    Oui, je milite pour l'orthographe et le respect du trait d'union à l'impératif.
    Après avoir posté, relisez-vous ! Et en cas d'erreur ou d'oubli, il existe un bouton « Modifier », à utiliser sans modération
    On a des lois pour protéger les remboursements aux faiseurs d’argent. On n’en a pas pour empêcher un être humain de mourir de misère.
    Mes 2 cts,
    --
    jp

Discussions similaires

  1. [VBA-E] boite de dialogue palette de couleur
    Par virginie2 dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 02/04/2017, 15h20
  2. [Composant] TListView en couleur
    Par Manopower dans le forum Composants VCL
    Réponses: 9
    Dernier message: 31/08/2005, 11h05
  3. Réponses: 2
    Dernier message: 14/06/2005, 14h36
  4. [MFC] Utilisation d'une palette de couleur
    Par Kevgeii dans le forum MFC
    Réponses: 2
    Dernier message: 01/06/2005, 17h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo