OSÉ : un nouvel éditeur pour PANORAMIC (Màj 5 mai 2018)

Jean Claude a écrit:

Je suis sous W8.1, mais je pense que c'est idem pour W10.

A+

Oui, je confirme

Salut Fred !

J'ai testé hier soir tard mais j'ai pas eu le temps de faire des commentaires.

J'aime cet éditeur. Il est vraiment très sympa. les nouvelles icônes sont géniales. Bravo !

J'ai le même problème que Jean Claude pour la règle et je suis sous WIN7.32.
Je pense que la largeur de l'objet ne s'adapte pas à la largeur de l'écran.
Tu as peut être indiqué une valeur 'en dur'.

concernant le reste j'ai pas tout détaillé mais globalement j'aime bien !

Je fais un tout petit break sur le codage de l'éditeur.

J'étais sur la gestion des signets, mais je me suis vitre retrouvé coincé. Donc j'attends de voir ce que Jack va nous proposer pour la prochaine version de PANORAMIC, puisqu'il semble accorder de l'importance au développement du composant synedit. En fonction de ce que proposera le prochan PANORAMIC, je poursuivrai donc le code soit avec du pur PANORAMIC, soit avec la DLL de Klaus. Donc je dois attendre...

Mais... qu'est-ce que tu appelles "les signets" ? Ce que Synedit sait faire par les raccourcis clavier:
ctrl/shift/N pour définir le signet N (0...9)
ctrl/N pour aller au signet N (0...9)
ça ne convient pas ? Ca marche dans le Synedit de Panoramic aussi bien que dans celui de KGF.dll...

Klaus a écrit:

Mais... qu'est-ce que tu appelles "les signets" ? Ce que Synedit sait faire par les raccourcis clavier:
ctrl/shift/N pour définir le signet N (0...9)
ctrl/N pour aller au signet N (0...9)
ça ne convient pas ? Ca marche dans le Synedit de Panoramic aussi bien que dans celui de KGF.dll...

Ah non non je n'ai jamais dit qu'ils n'existaient pas ni ne fonctionnaient pas. C'est juste qu'il est plus délicat d'enregistrer l'état d'un signet avec PANORAMIC qu'avec KGF.

Certes, c'est facile avec Synedit de KGF.dll. Voici l'implémentation du code 39 de SyneditFunction qui place la liste des signets définis dans un mémo:

Code:

          if not assigned(SE[xSE]) then exit;
          s := '';
          for i:=1 to 9 do begin
            if SE[xSE].GetBookMark(i,x,y) then s := s + inttostr(y) + #13#10
                                          else s := s + '0' + #13#10;
          end;
          SendMessage(par,WM_SETTEXT,0,integer(pchar(s)));

C'est ultra-simple...