Discussion :

[BuzzLeclaire]

Bonjour à tous et à toutes

Je tentes de reprendre une fonction qui fonctionne trés bien sur un RIcheEdit par un SynEdit.
Mais je suis confronté à un manque de fonction sur se synEdit

la function SetSelTextBuf

Voici ma procédure que j'ai adaptée sur un SynEdit

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure TFTravail.RichEditDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source = FPrincipal.TreeViewBase;
end;


procedure TFTravail.RicheditDragDrop(Sender, Source: TObject; X,
  Y: Integer);
Var
  i : Integer;
  Data: Pchar;
//  LineNum,ColNum : Word;
  Pt: Tpoint;
Begin

//  With TRichEdit(Sender) do
  With TSynEdit(Sender) do
  Begin
    Pt := Point(X,Y);

    if FPrincipal.TreeViewBase.Selected.Level > 0 then
    Begin
      Data := PChar('['+FPrincipal.TreeViewBase.Selected.Parent.Text +'].['
      + FPrincipal.TreeViewBase.Selected.Text+']');
    end
    else
      Data := PChar('['+FPrincipal.TreeViewBase.Selected.Text+']');

 // Calcul de la position du pointeur de la souris pour positionner le texte à une position précise dans le TMemo
    I := LoWord(Perform(Messages.EM_CHARFROMPOS , 0, Integer(@Pt)));

    SelStart := I;   // on positionne le curseur de selection sous le pointeur de la souris

/ * Marche pas avec SynEdit */
    SetSelTextBuf(Data); // on insert le text là où est le curseur

  end;
end:

J'ai essayer de transtyper le synedit Trichedit(Synedit) mais aucun effet.

Cette fonction a pour effet de recevoir un drag&drop provenant d'un treeview.

Comment remplacer SetSelTextBuf(Data); ?
j'ai tenter comme cela également : SendMessage(Handle, EM_REPLACESEL, 0, LongInt(Data));

Merci pour vos lumières

[exoseven]

essaye un SelText := Data

[BuzzLeclaire]

essaye un SelText := Data

Salut,

je l'ai fais et cela me remplace tout le text du synedit par mon drap & drop malheureusement.

J'ai aussi essayer avec le SynMemo pareil..

Merci

[anapurna]

salut

regarde du cote de

Code :

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

SetSelTextPrimitive

@+ Phil

[BuzzLeclaire]

salut

regarde du cote de

Code :

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

SetSelTextPrimitive

@+ Phil

Salut,

Cela n'existe pas dans SynEdit ou SynMemo.

De quoi veux-tu parler ?

[BuzzLeclaire]

ok anapurna, j'ai vue que c'etait un procedure proteger.

alor sje me sjuis pas embeter j'ai carrement changer le synedit.pas, j'ai mis les 2 procédures

Code :

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

1
2
3
    procedure SetSelTextPrimitive(const aValue: String);
    procedure SetSelTextPrimitiveEx(PasteMode: TSynSelectionMode; Value: PChar;
      AddToUndoList: Boolean);

dans la partie public.

Mais cela ne change rien voici ce que je fais :

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
19
20
21
22
23
24
25
26
27
28
29
30
procedure TFTravail.RicheditDragDrop(Sender, Source: TObject; X,
  Y: Integer);
Var
  i : Integer;
  Data: Pchar;
  Pt: Tpoint;
Begin
//  With TRichEdit(Sender) do
  With TSynEdit(Sender) do
  Begin
    Pt := Point(X,Y);
 
    if FPrincipal.TreeViewBase.Selected.Level > 0 then
    Begin
      Data := PChar('['+FPrincipal.TreeViewBase.Selected.Parent.Text +'].['
      + FPrincipal.TreeViewBase.Selected.Text+']');
    end
    else
      Data := PChar('['+FPrincipal.TreeViewBase.Selected.Text+']');
 
 // Calcul de la position du pointeur de la souris pour positionner le texte à une position précise dans le TMemo
    I := LoWord(Perform(Messages.EM_CHARFROMPOS , 0, Integer(@Pt)));
 
    SelStart := I;   // on positionne le curseur de selection sous le pointeur de la souris
 
    SetSelTextPrimitive(Data);
//    SetSelTextBuf(Data);
//    SendMessage(Handle, EM_REPLACESEL, 0, LongInt(Data)); // on insert le text là où est le curseur
  end;
end;

Il m'insert mon drap & drop en première ligne uniquement.

[anapurna]

salut

c'est une methode protected

[BuzzLeclaire]

Re,

apparement, c'est mon I qui est toujours égale à zero !!

J'ai essayer de forcer selstart à 3 mais cela change rien, mon drap&drop s'affiche à la ligne zero !!

grrrrrrrr