You've already forked lazarus-ccr
richmemo: fix compilation for carbon
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3747 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -77,7 +77,7 @@ type
|
|||||||
class procedure SetTextAttributes(const AWinControl: TWinControl; TextStart, TextLen: Integer;
|
class procedure SetTextAttributes(const AWinControl: TWinControl; TextStart, TextLen: Integer;
|
||||||
{Mask: TTextStyleMask;} const Params: TIntFontParams); override;
|
{Mask: TTextStyleMask;} const Params: TIntFontParams); override;
|
||||||
class procedure SetParaAlignment(const AWinControl: TWinControl; TextStart, TextLen: Integer;
|
class procedure SetParaAlignment(const AWinControl: TWinControl; TextStart, TextLen: Integer;
|
||||||
const AAlign: Integer); override;
|
const AAlign: TIntParaAlignment); override;
|
||||||
class procedure SetHideSelection(const ACustomEdit: TCustomEdit; AHideSelection: Boolean); override;
|
class procedure SetHideSelection(const ACustomEdit: TCustomEdit; AHideSelection: Boolean); override;
|
||||||
class procedure InDelText(const AWinControl: TWinControl; const TextUTF8: String; DstStart, DstLen: Integer); override;
|
class procedure InDelText(const AWinControl: TWinControl; const TextUTF8: String; DstStart, DstLen: Integer); override;
|
||||||
class function LoadRichText(const AWinControl: TWinControl; Src: TStream): Boolean; override;
|
class function LoadRichText(const AWinControl: TWinControl; Src: TStream): Boolean; override;
|
||||||
@ -341,7 +341,7 @@ end;
|
|||||||
|
|
||||||
class procedure TCarbonWSCustomRichMemo.SetParaAlignment(
|
class procedure TCarbonWSCustomRichMemo.SetParaAlignment(
|
||||||
const AWinControl: TWinControl; TextStart, TextLen: Integer;
|
const AWinControl: TWinControl; TextStart, TextLen: Integer;
|
||||||
const AAlign: Integer);
|
const AAlign: TIntParaAlignment);
|
||||||
begin
|
begin
|
||||||
{ Doesn't seem to be possible. See this:
|
{ Doesn't seem to be possible. See this:
|
||||||
http://lists.apple.com/archives/carbon-dev/2005/Jun/msg01068.html }
|
http://lists.apple.com/archives/carbon-dev/2005/Jun/msg01068.html }
|
||||||
|
Reference in New Issue
Block a user