Bonjour,
Mon Lazarus 4.6 sous Linux Debian 12 refuse de faire du pas à pas dans un bête programme de test !
Pourquoi ?
Et comment corriger ce caprice ?
Les choses se passent là (FLB c'est FileListBox) :
Vous voyez le surlignage rouge, dans l'image ci-dessous ? Hé bien, quand je fais F9, cet animal ne s'arrête pas là mais continue jusqu'à la fin de la procédure.
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 procedure TForm1.tvSelectionChanged(Sender: TObject); // tv c'est un TreeView var i: integer; aFonte: string; begin CurrentFolder := workdir; ShowMessage('tvselectionChanged: '+CurrentFolder); // OK FLB.Directory := CurrentFolder; if FLB.Items.Count > 0 then for i := 0 to FLB.Items.Count-1 do begin aFonte := FindTrueTypeFontName(CurrentFolder + FLB.Items[i]);// FindTrueTypeFontName vient de l'unité Fontinfos.pas // https://forum.lazarus.freepascal.org/index.php/topic,37329.msg250576.html; NextTop := AddaMemoToSBox(Compteur2Memos+i, aFonte, 'fonts'); end; end;
Merci pour vos retours.









Répondre avec citation




Partager