Tag Insight i Delphi

Hvad er Tag Insight?? :-)

Hehe... Det er nogen hvor hvis du fx skriver "<a" i en TSynEdit eller ligende så kommer den med en liste over hvilke funktioner der er i "<a"...

<a .:
href
title
class
target
osv.

Hvis du bruger SynEdit kan du bruge:

procedure TForm1.SynCompletionProposal1Execute(Kind: SynCompletionType;
  Sender: TObject; var CurrentInput: String; var x, y: Integer;
  var CanExecute: Boolean);
const
  a = 'href,title,class,target';
begin
  CanExecute := False;
  if (LastDelimiter('<a',Copy(SynMemo1.Text, 0, SynMemo1.SelStart)) <> 0) and (LastDelimiter('<a',Copy(SynMemo1.Text, 0, SynMemo1.SelStart)) =  LastDelimiter('</a>',Copy(SynMemo1.Text, 0, SynMemo1.SelStart))) then
  begin
    SynCompletionProposal1.ItemList.CommaText := a;
    CanExecute := True;
  end;
end;

prøver jeg lige

Bruger:
const
  a = 'href,title,class,target';
begin
  CanExecute := False;
  if (LastDelimiter('<a',Copy(SynEditor.Text, 0, SynEditor.Text)) <> 0) and (LastDelimiter('<a',Copy(SynEditor.Text, 0, SynEditor.Text)) =  LastDelimiter('</a>',Copy(SynEditor.Text, 0, SynEditor.Text))) then
  begin
    SynCompletionProposal1.ItemList.CommaText := a;
    CanExecute := True;
  end;

Fejl:
"Incompatible types"

Det virker kun hvis du bruger SynEdit(http://synedit.sourceforge.net/download.php).

Bruger oxo synedit

Har du sat en TSynCompletionProposal ind på formen??

Yup... Den jeg bruger ... Altså dens OnExecute event

Hmm.. kan du ik skrive hele fejlen??

Ellers kan du se om det her virker: http://hejhej105.frac.dk/TagInsight.zip

Hmm... Tror ikke vi har samme version af synedit... Jeg har D7 og synedit 1.1... Error: Cannot read SynCompletionProposal1 Collums

Næ det gør det ikke... hmmm... Wierd

Hov forkert indlæg :P

Er der ingen ItemList property i version 1.1??

Ja

Vilken en linie kommer der fejl i??

fra

if (LastDelimiter('<a', osv..

Nu virker det ... Wierd... Men nu hvis den sig ikke??

viser den sig ikke

Virker det eller var det, det forkerte spm igen :-)

hehe... Det virker - Eller den kan da køre programmet. Men når jeg skriver <a kommer der intet?

Så nu virker det næsten som jeg vil have det til. Men altså ikke helt... Du får 100 point hvis du kan løse resten.

når man har skrevet <a og trykker space (så der bliver mellemrum) kommer den der liste frem...

Prøv at sætte ShortCut til Space

Har jeg gjort... Men så kommer dem når man trykker space (som den også skal) men den laver ikke mellemrum...

Dit forslag virker ikke... Hvis jeg skriver table kommer samme liste

Fandt lige ud af den før "virkede" bare man skrev et a eller < foran.. det her skulle virke noget bedre, men mangler vist stadig noget:

function LastDelimiter2(DelimiterStr, Text: String): Integer;
var
I:Integer;
begin
Result := 0;
  for I := Length(Text) downto 0 do
  begin
    if Copy(Text, I, Length(DelimiterStr)) = DelimiterStr then
      begin
      Result := I;
      Exit;
      end;
  end;
end;

procedure TForm1.SynCompletionProposal1Execute(Kind: SynCompletionType;
  Sender: TObject; var CurrentInput: String; var x, y: Integer;
  var CanExecute: Boolean);
const
  a = 'href,title,class,target';
begin
  CanExecute := False;
  if (LastDelimiter2('<a',Copy(SynMemo1.Text, 0, SynMemo1.SelStart)) <> 0) and
  (LastDelimiter2('<a',Copy(SynMemo1.Text, 0, SynMemo1.SelStart)) >
  LastDelimiter2('>',Copy(SynMemo1.Text, 0, SynMemo1.SelStart))) then
  begin
    SynCompletionProposal1.ItemList.CommaText := a;
    CanExecute := True;
  end;
end;

Måske virker det her bedre:

...
  if (LastDelimiter2('<a',Copy(SynMemo1.Text, 0, SynMemo1.SelStart)) <> 0) and
  (LastDelimiter2('<a',Copy(SynMemo1.Text, 0, SynMemo1.SelStart)) >
  LastDelimiter2('>',Copy(SynMemo1.Text, 0, SynMemo1.SelStart))) and
  (SynMemo1.Text[SynMemo1.SelStart] = ' ') then
...

Så virker det som "den skal"... Takker...