Discussion :

[mirega]

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

[blonde]

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]

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.

[Andnotor]

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.

[ALWEBER]

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)

[mirega]

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.

[ALWEBER]

Dans un zip en pièce jointe.
Merci d'indiquer la version de delphi et de Windows

[mirega]

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.

[ALWEBER]

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

[mirega]

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.

[SergioMaster]

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)

[mirega]

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.

[SergioMaster]

Bonjour,

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