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

fixing win32 getattributes method, updating test sample

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@844 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-06-14 17:33:35 +00:00
parent a5c4b4e9bf
commit 1ab05002a9
6 changed files with 140 additions and 285 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/richmemo/win32/win32richmemo.pas
View File

@@ -25,7 +25,7 @@ type
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override;
class function GetTextAttributes(const AWinControl: TWinControl; TextStart: Integer;
var Params: TIntFontParams): Boolean; virtual;
var Params: TIntFontParams): Boolean; override;
class procedure SetTextAttributes(const AWinControl: TWinControl; TextStart, TextLen: Integer;
const Params: TIntFontParams); override;
class procedure SetHideSelection(const AWinControl: TWinControl; AHideSelection: Boolean); override;
@@ -147,7 +147,10 @@ var
OrigLen : Integer;
NeedLock : Boolean;
begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
if not Assigned(RichEditManager) or not Assigned(AWinControl) then begin
Result := false;
Exit;
end;
RichEditManager.GetSelection(AWinControl.Handle, OrigStart, OrigLen);