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

 Delphi Discussion :

Redimensionner une Form


Sujet :

Delphi

  1. #1
    Membre habitué Avatar de XeGregory
    Homme Profil pro
    Passionné par la programmation
    Inscrit en
    Janvier 2017
    Messages
    227
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Marne (Champagne Ardenne)

    Informations professionnelles :
    Activité : Passionné par la programmation
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Janvier 2017
    Messages : 227
    Points : 156
    Points
    156
    Par défaut Redimensionner une Form
    Bonjour,

    Je voudrais redimensionner la taille de ma fiche en fonction de la taille du composant TStringGrid.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    { Liste des caractères spéciaux }
      TabStrSpl: array [1 .. 158] of String = ('«', '«', '»', '‹', '›', '“', '”',
        '„', '‘', '‘', '’', '‚', '…', '!', '¡', '?', '¿', '(', ')', '[', ']', '{',
        '}', '¨', '´', '`', '^', 'ˆ', '~', '˜', '¸', '#', '*', ',', '.', ':', ';',
        '·', '•', '¯', '‾', '_', '|', '¦', '†', '‡', '§', '¶', '©', '®', '™', '&',
        '@', '/', '\', '◊', '♠', '♣', '♥', '♦', '←', '↑', '→', '↓', '↔', '¤', '€',
        '$', '¢', '£', '¥', 'ƒ', '°', 'µ', '<', '>', '≤', '≥', '=', '≈', '≠', '≡',
        '±', '−', '+', '×', '÷', '⁄', '%', '‰', '¼', '½', '¾', '¹', '²', '³', 'º',
        'ª', 'ƒ', '′', '″', '∂', '∏', '∑', '√', '∞', '¬', '∩', '∫', 'α', 'Α', 'β',
        'Β', 'γ', 'Γ', 'δ', 'Δ', 'ε', 'Ε', 'ζ', 'Ζ', 'η', 'Η', 'θ', 'Θ', 'ι', 'Ι',
        'κ', 'Κ', 'λ', 'Λ', 'μ', 'Μ', 'ν', 'Ν', 'ξ', 'Ξ', 'ο', 'Ο', 'π', 'Π', 'ρ',
        'Ρ', 'σ', 'ς', 'Σ', 'τ', 'Τ', 'υ', 'Υ', 'φ', 'Φ', 'χ', 'Χ', 'ψ', 'Ψ',
        'ω', 'Ω');
    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
    { GetCharTab }
    procedure TForm1.GetCharTab;
    var
      xLn, xCol, I: Integer;
    begin
      I := 1;
     
      with StringGrid do
      begin
        for xLn := 0 to RowCount - 1 do
          for xCol := 0 to ColCount - 1 do
          begin
            if I <= High(TabStrSpl) then
              Cells[xCol, xLn] := TabStrSpl[I];
     
            Inc(I);
          end;
      end;
    end;
    Je multiplie le nombre de cellule par la taille de la cellule (20) par défaut + le nombre de ligne entre les cellules (Nombre de cellule) .

    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
    procedure TForm1.FormCreate(Sender: TObject);
    const
      DefaultSizeCell = 20;
    begin
      with StringGrid do
      begin
        ColCount := 16;
        RowCount := 10;
       // MulDiv DefaultSizeCell = 30
        DefaultRowHeight := MulDiv(DefaultSizeCell, CurrentPPI,
          USER_DEFAULT_SCREEN_DPI);
     
        DefaultColWidth := MulDiv(DefaultSizeCell, CurrentPPI,
          USER_DEFAULT_SCREEN_DPI);
     
        Form1.Height := (DefaultRowHeight * RowCount) + DefaultRowHeight +
          GetSystemMetrics(SM_CYCAPTION);
     
        Form1.Width := (DefaultColWidth * ColCount) + DefaultColWidth;
     
        GetCharTab;
      end;
    end;
    Nom : Capture1.PNG
Affichages : 171
Taille : 15,9 Ko

    Quelque chose m'échappe ! sûrement des pixels , je n'arrive pas à redimensionner a la perfection ma fiche.

    Si vous avez une petite idée.

    Merci pour vos réponses.

  2. #2
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 371
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 371
    Points : 24 658
    Points
    24 658
    Par défaut
    ClientWidth et ClientHeigth ?

    Et peut-être ajouté un pixel pour la ligne non dessiné entre les cellules ?
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  3. #3
    Membre habitué Avatar de XeGregory
    Homme Profil pro
    Passionné par la programmation
    Inscrit en
    Janvier 2017
    Messages
    227
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Marne (Champagne Ardenne)

    Informations professionnelles :
    Activité : Passionné par la programmation
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Janvier 2017
    Messages : 227
    Points : 156
    Points
    156
    Par défaut ClientWidth & ClientHeight
    Effectivement ClientWidth & ClientHeight serait beaucoup plus adapté pour redimensionné mon form.

    Je sais pas pourquoi je suis resté bloqué sur form width & height.

    Merci.

    https://delphi.developpez.com/faq/?p...h-ClientHeight

    Width définit la largeur absolue, entière de l'application dont les bordures.
    Height, la hauteur absolue de l'application dont les bordures, le TMainMenu, et la barre de titre (boutons Fermer l'application, Réduire...)

    ClientWidth et ClientHeight sont la largeur / la hauteur intérieure de la fenêtre sans bordures ou menu. C'est la surface dans laquelle vous pouvez placer vos contrôles.

  4. #4
    Membre habitué Avatar de XeGregory
    Homme Profil pro
    Passionné par la programmation
    Inscrit en
    Janvier 2017
    Messages
    227
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Marne (Champagne Ardenne)

    Informations professionnelles :
    Activité : Passionné par la programmation
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Janvier 2017
    Messages : 227
    Points : 156
    Points
    156
    Par défaut
    Je pense que le problème est résolu

    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
    procedure TForm1.FormCreate(Sender: TObject);
    var
      SizeLineH, SizeLineW, GridLine: Integer;
    begin
      with StringGrid do
      begin
        GridLineWidth := 1;
        ColCount := 16;
        RowCount := 10;
     
        GridLine := MulDiv(GridLineWidth, CurrentPPI, USER_DEFAULT_SCREEN_DPI);
     
        SizeLineH := MulDiv(RowCount + GridLine +1, CurrentPPI, USER_DEFAULT_SCREEN_DPI);
        SizeLineW := MulDiv(ColCount + GridLine +2, CurrentPPI, USER_DEFAULT_SCREEN_DPI);
     
        DefaultRowHeight := MulDiv(20, CurrentPPI, USER_DEFAULT_SCREEN_DPI);
        DefaultColWidth := MulDiv(20, CurrentPPI, USER_DEFAULT_SCREEN_DPI);
     
        Form1.ClientHeight := (DefaultRowHeight * RowCount) + SizeLineH;
        Form1.ClientWidth := (DefaultColWidth * ColCount) + SizeLineW;
     
        DefaultColAlignment := taCenter;
        GetCharTab;
      end;
    end;

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Redimensionner une form par programmation
    Par kinouseb dans le forum Windows Forms
    Réponses: 3
    Dernier message: 30/10/2009, 07h50
  2. Redimensionner une Form
    Par Loubna.B dans le forum C#
    Réponses: 4
    Dernier message: 19/06/2009, 15h54
  3. interdire de redimensionner une form
    Par sky88 dans le forum Débuter
    Réponses: 1
    Dernier message: 05/11/2008, 23h50
  4. Comment redimensionner une Form ?
    Par kumo dans le forum Débuter
    Réponses: 6
    Dernier message: 14/01/2008, 17h48
  5. Redimensionner une forme
    Par daouame dans le forum Windows Forms
    Réponses: 4
    Dernier message: 26/01/2007, 16h49

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