From 7b756e79c97b084bd31cd64b0bed82d80ea1b18d Mon Sep 17 00:00:00 2001 From: skalogryz Date: Wed, 19 Nov 2014 04:06:25 +0000 Subject: [PATCH] richmemo: fix compilation for carbon git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3747 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/richmemo/carbon/carbonrichmemo.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/richmemo/carbon/carbonrichmemo.pas b/components/richmemo/carbon/carbonrichmemo.pas index 06c4407c7..288f76347 100644 --- a/components/richmemo/carbon/carbonrichmemo.pas +++ b/components/richmemo/carbon/carbonrichmemo.pas @@ -77,7 +77,7 @@ type class procedure SetTextAttributes(const AWinControl: TWinControl; TextStart, TextLen: Integer; {Mask: TTextStyleMask;} const Params: TIntFontParams); override; 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 InDelText(const AWinControl: TWinControl; const TextUTF8: String; DstStart, DstLen: Integer); override; class function LoadRichText(const AWinControl: TWinControl; Src: TStream): Boolean; override; @@ -341,7 +341,7 @@ end; class procedure TCarbonWSCustomRichMemo.SetParaAlignment( const AWinControl: TWinControl; TextStart, TextLen: Integer; - const AAlign: Integer); + const AAlign: TIntParaAlignment); begin { Doesn't seem to be possible. See this: http://lists.apple.com/archives/carbon-dev/2005/Jun/msg01068.html }