Discussion :

[Sub0]

Salut

Je chercher à modifier l'épaisseur des scrollbars d'un memo car il s'agit d'un petit memo et les scrollbars prennent toute la place... J'ai d'abord essayé de contenir ce memo dans une scrollbox seulement je n'arrive pas à ajuster la taille du memo en fonction de son contenu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Procedure TForm1.Memo1Change(Sender: TObject);
Begin
  Label1.Caption := IntToStr(Memo1.Width) + ' x ' + IntToStr(Memo1.Height);
End;

Peut-être existe-t-il une méthode pas trop compliquée pour définir l'épaisseur des scrollbars d'un TMemo plutôt que d'essayer de le contenir dans une ScrollBox...

Merci de votre aide

[Rayek]

Et en gérant la Scrollbar du TMemo avec un Composant TScrollbar exterieur.
Avec lui tu peux ajuster la taille comme tu veux.

[Sub0]

Merci pour vois réponses !

Et en gérant la Scrollbar du TMemo avec un Composant TScrollbar exterieur.
Avec lui tu peux ajuster la taille comme tu veux.

Un exemple serait le bienvenu.

Salut.

De prime abord, j'irais peut-être voir du côté de la structure SCROLLBARINFO et notamment le paramètre rcScrollBar qui défini les coordonées du scrollbar: type RECT.

On récupère les infos avec GetScrollbarInfo avec le handle du TMemo, et là on fait joujou !

@+

J'ai trouvé ce lien avec Google :
http://www.delphipages.com/threads/t...43248&G=143212
Je vais essayer d'utiliser ce code dans mon cas...

Merci de votre aide

[Sub0]

Je suis toujours bloqué ! Sans exemple de code ni d'hyperlien...
• Soit je cherche le moyen de reproduire une propriété "Autosize" au Memo. Ensuite, la ScrollBox ajustera automatiquement les scrollbars. Mais je n'arrive toujours pas à récupérer la taille du contenu du Memo.
• Soit je cherche à redéfinir directement les propriétés des scrollbars du Memo.
J'aimerai trouver les 2 solutions pour pouvoir les comparer.
Je continu mes recherches... à+

[Cl@udius]

• Soit je cherche à redéfinir directement les propriétés des scrollbars du Memo.

Je me penche la dessus
@+

[Rayek]

Tu poses un TScrollbar sur la fichie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
   With Memo1 do
   begin
    SelStart := Perform(EM_LINEINDEX, ScrollPos, 0);
    Perform(EM_SCROLLCARET, 0, 0);
    setFocus;
   end;
end;

quand tu charges ton fichier (ou ajoute des lignes)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ScrollBar1.Max := Memo1.Lines.Count;

[Cl@udius]

Salut.

De prime abord, j'irais peut-être voir du côté de la structure SCROLLBARINFO et notamment le paramètre rcScrollBar qui défini les coordonées du scrollbar: type RECT.

On récupère les infos avec GetScrollbarInfo avec le handle du TMemo, et là on fait joujou !

@+