pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

rx component: updated to version 1.1.3.86 from http://alexs75.narod.ru/fpc/rxfpc/RxFPC.rar

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@234 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-08-10 22:15:51 +00:00
parent 3b3bbb969c
commit 38fdedb1cc
51 changed files with 4529 additions and 732 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/rx/tooledit.pas
View File

@@ -114,7 +114,7 @@ begin
ACanvas.Control := Editor;
end;
DC := Message.DC;
// if DC = 0 then DC := BeginPaint(Handle, PS);
if DC = 0 then DC := BeginPaint(Handle, PS);
ACanvas.Handle := DC;
try
ACanvas.Font := Font;
@@ -128,8 +128,8 @@ begin
if not (NewStyleControls {and Ctl3D}) and (BorderStyle = bsSingle) then
begin
Brush.Color := clWindowFrame;
FrameRect(R);
InflateRect(R, -1, -1);
{ FrameRect(R);
InflateRect(R, -1, -1);}
end;
Brush.Color := Color;
S := AText;
@@ -152,6 +152,7 @@ begin
{$IFDEF RX_D4}
if SysLocale.MiddleEast then UpdateTextFlags;
{$ENDIF}
Brush.Style := bsClear;
TextRect(R, ALeft, Margins.Y, S);
end;
finally