pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

RichEdit.OnRE_URLClick fix

Browse Source 
git-svn-id: https://svn.code.sf.net/p/kolmck/code@101 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck
2011-01-09 15:59:01 +00:00
parent f6d5192308
commit ab0524f404
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
KOL.pas
View File

@ -14,7 +14,7 @@
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
@ -37351,13 +37351,13 @@ begin
Buffer[ 0 ] := #0;
Self_.Perform( EM_GETTEXTRANGE, 0, Integer( @Range ) );
{$IFDEF UNICODE_CTRLS}
s := Buf_W[0]; //todo: check it!
s := Buf_W; //todo: check it!
{$ELSE}
{$IFDEF _D3orHigher}
if (Buffer[ 1 ] = #0) and (Range.chrg.cpMax - Range.chrg.cpMin > 1) then
begin
{$WARNINGS OFF}
s := Buf_W[ 0 ];
s := Buf_W;
{$WARNINGS ON}
end
else