"Hyperlin" and "HyperCP"

OBEC

I try to use "Hyperlin" and "HyperCP" in the following code:

Code

if Assigned(Hyperlin) then
  begin
    pc := Hyperlin^.pc;


    inc(pc, HyperCP);
    while pc^=#32
    do inc(pc);
    //ShowMessage(pc^);
    if pc^=#253 then
    begin
      pc^:=#111;
      Refresh;
    end
    else
    //if True then
    if pc^=#111 then
    begin
      pc^:=#253;
      Refresh;
    end;
  end;

Alles anzeigen

I get un udeclared identifier on both.
Have they replaced/renamed ?

Tks in advance.

support

Hi,

they do not exist anymore. Most pointers were removed anyway.

I think this was used to implement the hyperlink checkbox - you can access the text using EmbeddedText of the hyperlink object, the TWPTextObj! Alternative use ParentPar and ParentPosInPar+1 with the CharItem which is a wide char.

Julian