Discussion :

[Galet]

Bonjour à tous,
J'espère que mon sujet est dans la bonne zone du forum.

Est-il possible d'intégrer une fenêtre de visualisation de fichier texte Notepad++ dans une appli Delphi (Windows/VCL) pour éviter une configuration RichEdit, sur un langage déjà visualisé par Notepad ?
Merci pour vos réponses...

[SergioMaster]

Bonjour,

ma première réaction : utiliser SynEdit (mais bon, je n'ai fait qu'effleurer ce truc qui n'est que VCL)

[Galet]

Merci Sergio,
Je regarde justement l'utilisation de SynEdit. L'autre outil est Scintilla...
Concernant Notepad++ on trouve de nombreuses informations pour coder Pascal sous Notepad++ mais pas l'intégration d'une fenêtre Notepad++ dans Delphi...
Cordialement,

[tourlourou]

Bonjour,
Peut-être une piste ici : Notepad++ plugin for ActiveX support/ ?

[Andnotor]

Un exemple pour docker Notepad++. Exemple simpliste qui part du principe que Notepad++ n'est pas déjà ouvert. Il faudrait plutôt passer par ShellExecuteEx pour récupérer le handle de processus et utiliser FindWindowEx pour trouver la fenêtre appartenant à ce processus-là.

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
procedure TForm1.FormCreate(Sender: TObject);
var
  Notepad :THandle;
begin
  if ShellExecute(Handle, 'open', 'Notepad++.exe', '-multiInst -notabbar "Fichier.txt"', nil, SW_HIDE) > 32 then
  begin
    repeat
      Notepad := FindWindow('Notepad++', nil);
    until Notepad <> 0;
 
    SendMessage(Notepad, WM_NULL, 0, 0);
 
    WinApi.Windows.SetParent(Notepad, Panel1.Handle);
    SetWindowLong(Notepad, GWL_STYLE, (GetWindowLong(Notepad, GWL_STYLE) or WS_CHILD) and not(WS_DLGFRAME or WS_THICKFRAME));
    SetWindowPos(Notepad, 0, 0, 0, Panel1.ClientWidth, Panel1.ClientHeight, 0);
  end
  else Panel1.Caption := 'Erreur';
end;

Mais pas sûr que j'appliquerais ce principe.

Sinon un exemple pour de la coloration syntaxique dans un RichEdit.

[Galet]

Merci Tourlourou,
Je vais tester l'activeX.
Belle journée à tous...

[petitcoucou31]

Salut,

Il y a aussi un memo syntaxique chez TMS software (payant) qui est préconfiguré pour bcp de langage de programmation , dont Delphi.

bonne soirée.