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

richmemo: clean up win32 compiler hint messages

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4153 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-05-26 16:08:53 +00:00
parent da2b3ad44e
commit 8592b112fd
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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

4
components/richmemo/win32/win32richmemoproc.pas
View File

@ -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);