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

  1. #1
    Nouveau Candidat au Club
    Comment faire pour qu'une application s'ajuste automatiquement selon les settings de l'écran
    Bonjour, j'aimerais savoir comment faire fonctionner un programme automatiquement selon les settings de mon écran. C'est à dire , lorsque mon programme fonctionne , il n'occupe pas tout l'écran automatiquement. Je ne sais pas si je suis assez clair dans ma question… Merci.
    Mirega

  2. #2
    Membre habitué
    Dans l'inspecteur d'objets, pour les propriétés de ta fiche, il y a la propriété WindowState.
    Par défaut elle est à wsNormal, passe-là à "wsMaximized"

    Est-ce que c'est bien ça que tu veux ?

  3. #3
    Nouveau Candidat au Club
    Comment faire pour qu'une application s'ajuste automatiquement selon les settings de l'écran
    Citation Envoyé par blonde Voir le message
    Dans l'inspecteur d'objets, pour les propriétés de ta fiche, il y a la propriété WindowState.
    Par défaut elle est à wsNormal, passe-là à "wsMaximized"

    Est-ce que c'est bien ça que tu veux ?
    Mirega…


    merci pour ton aide , malheureusement il est déjà à ' wsMaximized '. Ce que j'aimerais faire est de faire fonctionner le programme aux même settings que mon écran. Ex: si mon écran a une résolution de 1680 X 1050 , lorsque je lance mon programme , c'est qu'il fonctionne à la même résolution. Présentement lorsque je lance le programme, j'ai une section à la droite de l'écran qui est noir car le programme n'occupe pas tout l'écran. Probablement pas la même résolution.
    Merci.

  4. #4
    Rédacteur/Modérateur

    Les composants ajoutés au design vont pour la plupart (ce n'est pas encore du 100%) s'ajuster au changement de résolution.

    Par contre, ce qui est fait par code doit être adapté pour prendre en compte ce changement.

  5. #5
    Membre chevronné
    Pistes à suivre
    1) Repartir d'une nouvelle application vide et tester.
    2)Voir aussi en fonction de la version de Windows et le facteur de grossissement des caractères
    3) Retirer les ancrages (anchor)

  6. #6
    Nouveau Candidat au Club
    Comment faire pour qu'une application s'ajuste automatiquement selon les settings de l'écran
    Bonjour , Je suis très très débutant en programmation. Le mieux serait peut-être que je vous envoi en particulier mon projet et vous pourriez l'analyser et peut-être voir ce qui cloche.
    Il s'agit d'un projet genre multimédia. Qu'en pensez-vous ? Est-ce que c'est faisable ? Merci. Bonne soirée.

  7. #7
    Membre chevronné
    Dans un zip en pièce jointe.
    Merci d'indiquer la version de delphi et de Windows

  8. #8
    Nouveau Candidat au Club
    Comment faire pour qu'une application s'ajuste automatiquement selon les settings de l'écran
    Bonsoir, voici le dossier. Il a été créé sous Delphi 6 et windows 7 . maintenant avec windows 10.
    Merci pour votre aide.
    À bientôt..

    P.S. j'ai supprimé les fichiers .WMA des chansons pour joindre le dossier qui était trop volumineux.

  9. #9
    Membre chevronné
    J'ai simplement ajouté une ligne : FOrM2.WindowState := wsMaximized ;
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    FORM2.CAPTION := 'U2 - THE JOSHUA TREE';
    FORM2.Image1.Picture.LoadFromFile('JOSHUA.JPG');
    FORM2.Label1.Caption := '3 - ONE';
    FORM2.Label2.CAPTION := '';
    FORM2.Label3.Caption := '';
    FOrM2.WindowState := wsMaximized ;
    FORM2.SHOW;

    Tout est OK chez moi je suis sous WIndows 10 avec Delphi Tokyo

  10. #10
    Nouveau Candidat au Club
    Comment faire pour qu'une application s'ajuste automatiquement selon les settings de l'écran
    Bonjour Alweber, merci pour votre aide. J'ai ajouté la ligne au programme, mais malheureusement ça ne fonctionne pas. Le programme fonctionne, mais pas le '' plein écran ''.
    Voici 2 images pour vous montrer. Est-ce que vous pouvez m'envoyer une image ou 2 du programme lorsqu'il fonctionne sur votre ordinateur pour pouvoir comparer.
    Merci.
    Je continue d'essayer de trouver ce qui cloche avec mon programme.
    Bonne journée.

  11. #11
    Rédacteur/Modérateur

    Bonjour,

    J'ai pourtant l'impression, d'après les images fournies que la forme est bien plein écran (pour preuve les icônes système)
    Je pense que ce qui nous met dans l'incompréhension c'est votre demande.

    Vous voulez certainement plutôt dire, que vous voudriez que les images, voir les listes, soient agrandies lorsque la fenêtre est plein écran, en bref répondent à la retaille de la fenêtre principale.

    Pour cela il y a, entre autres, les propriétés Align et d'autres comme Anchor, Margins ( je pense qu'elles existaient déjà en D6) des composants

    Je n'ai pas D6 mais D3. Dans cette version point de Anchor ou Margins. Toutefois en utilisant un Panel (align alclient)
    en mettant au sein de ce panel quelques autres TPanel,TBevel, et TImage vous obtenez ce que vous voulez

    // dfm "simplifié",
    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
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    object Form1: TForm1
      Left = 200
      Top = 118
      Width = 646
      Height = 454
      Caption = 'Form1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      PixelsPerInch = 96
      TextHeight = 13
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 630
        Height = 418
        Align = alClient
        Alignment = taLeftJustify
        Caption = 'Panel1'
        TabOrder = 0
        object Image1: TImage     // Image principale (album en cours ?)
          Left = 209
          Top = 1
          Width = 420
          Height = 375
          Align = alClient
          Picture.Data = {}
          Stretch = True
        end
        object ScrollBox1: TScrollBox  // contiendra une liste d'images album
          Left = 1
          Top = 1
          Width = 208
          Height = 375
          Align = alLeft
          TabOrder = 0
          object Image2: TImage
            Left = 16
            Top = 24
            Width = 41
            Height = 37
            Picture.Data = {}
            Stretch = True
            Transparent = True
          end
          object Image3: TImage
            Left = 16
            Top = 80
            Width = 41
            Height = 41
            Picture.Data = {}
            Stretch = True
          end
        end
        object Panel2: TPanel // pour le bouton
          Left = 1
          Top = 376
          Width = 628
          Height = 41
          Align = alBottom
          TabOrder = 1
          object btnClose: TButton
            Left = 464
            Top = 12
            Width = 157
            Height = 25
            Caption = 'Fermer le programme'
            TabOrder = 0
          end
        end
      end
    end



    agrandi (même pas besoin d'exécuter


    Seul regret, le bouton ne suit pas (ce que des Anchors ou Align alRigth avec des marges pourrait régler)
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein

    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Tokyo, Rio) et peut être quelques autres
    SGBD : Firebird 2.5, 3, SQLite
    générateurs Etats : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Ubuntu, Androïd

  12. #12
    Nouveau Candidat au Club
    Comment faire pour qu'une application s'ajuste automatiquement selon les settings de l'écran
    Bonsoir SergioMaster, je crois que vous m'avez bien compris, je me suis mal exprimé pour expliquer mon problème. C'est bien cela, j'aimerais que les boutons et les images, la listbox etc.. s'ajuste avec le plein écran. Je ne veux pas voir une partie noir ( côté droit de l'écran) et non occupé lorsque le programme fonctionne. Je ne sais pas si j'explique assez bien.
    J'ai regardé vos codes, mais avec Delphi 6 les codes sembles différents. Je vais essayer de comprendre tout ça et voir comment je pourrais régler mon problème. MERCI quand même pour votre aide. Bonne soirée.
    La photo U2 a mod , montre le problème , la photo U2 résultat final , est le résultat souhaité après les modifications de codes dans mon programme.

  13. #13
    Rédacteur/Modérateur

    Bonjour,
    Citation Envoyé par mirega Voir le message
    Bonsoir SergioMaster, je crois que vous m'avez bien compris, je me suis mal exprimé pour expliquer mon problème.
    ...
    J'ai regardé vos codes, mais avec Delphi 6 les codes sembles différents.
    C'est normal puisque ce que je vous ai montré est une partie d'un .dfm (dans lequel j'ai ôter les images ) et non d'un .pas
    Je vais essayer de comprendre tout ça et voir comment je pourrais régler mon problème.

    Utilisez, si elles existent (chose que je ne peux vérifier je n'ai plus D6 d'installé) les propriétés Anchors (Margins arrivant beaucoup plus tard, n'existant pas en D7) des composants.

    Malgré cela vous aurez de nombreux "défauts" par exemple la pixelisation des images (déjà relativement visible)
    Il est dommage que vous vous attardiez sur cette ancienne version de Delphi non Unicode, une version comme Delphi Rio 10.3 Community vous montrerait tout le nouveau potentiel en particulier en passant en FMX
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein

    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Tokyo, Rio) et peut être quelques autres
    SGBD : Firebird 2.5, 3, SQLite
    générateurs Etats : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Ubuntu, Androïd