RichEdit.OnRE_URLClick fix
git-svn-id: https://svn.code.sf.net/p/kolmck/code@101 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
6
KOL.pas
6
KOL.pas
@ -14,7 +14,7 @@
|
|||||||
Key Objects Library (C) 2000 by Kladov Vladimir.
|
Key Objects Library (C) 2000 by Kladov Vladimir.
|
||||||
|
|
||||||
****************************************************************
|
****************************************************************
|
||||||
* VERSION 3.04++++
|
* VERSION 3.04+5
|
||||||
****************************************************************
|
****************************************************************
|
||||||
|
|
||||||
K.O.L. - is a set of objects to create small programs
|
K.O.L. - is a set of objects to create small programs
|
||||||
@ -37351,13 +37351,13 @@ begin
|
|||||||
Buffer[ 0 ] := #0;
|
Buffer[ 0 ] := #0;
|
||||||
Self_.Perform( EM_GETTEXTRANGE, 0, Integer( @Range ) );
|
Self_.Perform( EM_GETTEXTRANGE, 0, Integer( @Range ) );
|
||||||
{$IFDEF UNICODE_CTRLS}
|
{$IFDEF UNICODE_CTRLS}
|
||||||
s := Buf_W[0]; //todo: check it!
|
s := Buf_W; //todo: check it!
|
||||||
{$ELSE}
|
{$ELSE}
|
||||||
{$IFDEF _D3orHigher}
|
{$IFDEF _D3orHigher}
|
||||||
if (Buffer[ 1 ] = #0) and (Range.chrg.cpMax - Range.chrg.cpMin > 1) then
|
if (Buffer[ 1 ] = #0) and (Range.chrg.cpMax - Range.chrg.cpMin > 1) then
|
||||||
begin
|
begin
|
||||||
{$WARNINGS OFF}
|
{$WARNINGS OFF}
|
||||||
s := Buf_W[ 0 ];
|
s := Buf_W;
|
||||||
{$WARNINGS ON}
|
{$WARNINGS ON}
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
|
Reference in New Issue
Block a user