Virtualstringtree

mariefisher - 19 oct. 2015 à 20:05 - Dernière réponse : papyvore 159 Messages postés samedi 15 novembre 2003Date d'inscription 1 août 2018 Dernière intervention
- 27 oct. 2015 à 12:59
Bonjour,

Est-ce que vous savez comment faire pour que la derniere ligne d'un Tvirtualstringtree soit affiché et sélectionné

cordialement
Afficher la suite 

Votre réponse

14 réponses

papyvore 159 Messages postés samedi 15 novembre 2003Date d'inscription 1 août 2018 Dernière intervention - 24 oct. 2015 à 14:40
0
Merci
Bonjour

VirtualStringTree1.FocusedNode := VirtualStringTree1.GetLast(nil);
VirtualStringTree1.Selected[VirtualStringTree1.GetLast(nil)] := true;
VirtualStringTree1.SetFocus;

Merci petit à petit j'avance tout doucement
c'est peut etre a cause que je suis blonde?
Pour continuer mon problème j'ai bien maintenant la bar vertical qui s'affiche correctement mais je n'ai toujours pas la dernière ligne qui doit rester en premier a j'ai peut etre oublier de dire que c est pour afficher un journal d evenement je fournis le code

type
TLogType = (ltOk = 0, ltHint = 1, ltWarning = 2, ltError = 3, ltQuestion = 4);

type
PLogData = ^TLogData;
TLogData = record
LogType: TLogType;
Sender: WideString;
Date: TDateTime;
Time: TDateTime;
Description: WideString;

procedure Tform1.Add(LogType: TLogType; Sender: WideString; Description: WideString);
var
Node: PVirtualNode;
Data: PLogData;
begin
vtLog.BeginUpdate;

Node := vtLog.AddChild(vtLog.RootNode);
Data := vtLog.GetNodeData(Node);
Data^.LogType := LogType;
Data^.Sender := Sender;
Data^.Date := Date;
Data^.Time := Time;
Data^.Description := Description;

vtLog.Repaint;
vtLog.EndUpdate;
end
papyvore 159 Messages postés samedi 15 novembre 2003Date d'inscription 1 août 2018 Dernière intervention > mariefisher - 27 oct. 2015 à 09:50
bonjour
as tu testé comme je suggérait plus haut en retirant ces procédures .Je soupçonne quelque chose dans ces procédures.
Je ne vois rien dans ton code si ce n'est que tu n'affiche pas sender,
mais ça n'as rien a voir avec ton problème .
papyvore 159 Messages postés samedi 15 novembre 2003Date d'inscription 1 août 2018 Dernière intervention > mariefisher - 27 oct. 2015 à 12:59
Bon ,sans les procédures chez moi ça marche avec d7.
- Quelle version delphi as tu ?
-Pourquoi choisir Virtualstringtree pour afficher des données
-Post toutes les procédures liée a vtlog afin que je puisse reproduire le problème
vtLogBeforeCellPaint
vtLogChange
vtLogGetText
vtLogPaintText
vtLogGetImageIndex
vtLogInitNode
vtLogScroll
vtLogShowScrollbar
Commenter la réponse de papyvore

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.