You've already forked lazarus-ccr
richmemo: clean up win32 compiler hint messages
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4153 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -167,7 +167,7 @@ const
|
|||||||
POINTS_INCH = 72;
|
POINTS_INCH = 72;
|
||||||
TWIP_INCH = POINTS_INCH * TWIP_PT;
|
TWIP_INCH = POINTS_INCH * TWIP_PT;
|
||||||
|
|
||||||
TAB_LEFT = 0; // Ordinary tab
|
{%H-}TAB_LEFT = 0; // Ordinary tab
|
||||||
TAB_CENTER = 1; // Center tab
|
TAB_CENTER = 1; // Center tab
|
||||||
TAB_RIGHT = 2; // Right-aligned tab
|
TAB_RIGHT = 2; // Right-aligned tab
|
||||||
TAB_DECIMAL = 3; // Decimal tab
|
TAB_DECIMAL = 3; // Decimal tab
|
||||||
|
@ -819,7 +819,7 @@ class procedure TRichEditManager.GetParaRange(RichEditWnd: Handle; TextStart: in
|
|||||||
var para: TParaRange);
|
var para: TParaRange);
|
||||||
var
|
var
|
||||||
line: Integer;
|
line: Integer;
|
||||||
txtlen: Integer;
|
//txtlen: Integer;
|
||||||
st: Integer;
|
st: Integer;
|
||||||
ln: Integer;
|
ln: Integer;
|
||||||
toend: Integer;
|
toend: Integer;
|
||||||
@ -828,7 +828,7 @@ var
|
|||||||
rng : TTEXTRANGEA;
|
rng : TTEXTRANGEA;
|
||||||
res : Integer;
|
res : Integer;
|
||||||
begin
|
begin
|
||||||
txtlen:=GetTextLength(RichEditWnd);
|
//txtlen:=GetTextLength(RichEditWnd);
|
||||||
// lines are NOT paragraphs, but wordwrapped lines
|
// lines are NOT paragraphs, but wordwrapped lines
|
||||||
line:=SendMessage(RichEditWnd, EM_EXLINEFROMCHAR, 0, TextStart);
|
line:=SendMessage(RichEditWnd, EM_EXLINEFROMCHAR, 0, TextStart);
|
||||||
st:=SendMessage(RichEditWnd, EM_LINEINDEX, line, 0);
|
st:=SendMessage(RichEditWnd, EM_LINEINDEX, line, 0);
|
||||||
|
Reference in New Issue
Block a user