pascal/kolmck
pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

VERSION 3.04++++

Browse Source 
git-svn-id: https://svn.code.sf.net/p/kolmck/code@100 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck 2011-01-08 09:21:51 +00:00
parent b161e2e756
commit f6d5192308
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
KOL.pas
View File

@ -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++++
**************************************************************** ****************************************************************
K.O.L. - is a set of objects to create small programs K.O.L. - is a set of objects to create small programs
@ -57422,7 +57422,8 @@ begin
if LongBool( DF.fRECharFormatRec.dwMask and (CFM_COLOR or CFM_BACKCOLOR) ) then if LongBool( DF.fRECharFormatRec.dwMask and (CFM_COLOR or CFM_BACKCOLOR) ) then
DF.fRECharFormatRec.dwEffects := DF.fRECharFormatRec.dwEffects and DF.fRECharFormatRec.dwEffects := DF.fRECharFormatRec.dwEffects and
not (CFE_AUTOCOLOR or CFE_AUTOBACKCOLOR); not (CFE_AUTOCOLOR or CFE_AUTOBACKCOLOR);
Perform( EM_SETCHARFORMAT, RichAreas[ DF.fRECharArea ], Integer( @DF.fRECharFormatRec ) ); Perform( EM_SETCHARFORMAT, RichAreas[ DF.fRECharArea ],
Integer( {$IFDEF STATIC_RICHEDIT_DATA} @ {$ENDIF} DF.fRECharFormatRec ) );
end; end;
procedure TControl.RESetFontAttr1(const Index, Value: Integer); procedure TControl.RESetFontAttr1(const Index, Value: Integer);
@ -65800,3 +65801,5 @@ end.