paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 00:55:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: checked compiler warnings, clean up

Browse Source 
git-svn-id: trunk@48236 -
This commit is contained in:
mattias 2015-03-10 15:59:16 +00:00
parent 58ccd15d06
commit ab1f174af5
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/charactermapdlg.pas
View File

@ -178,6 +178,7 @@ begin
sg := Sender as TStringGrid;
if (Button = mbLeft) and (sg.MouseToGridZone(X, Y) = gzNormal) then
begin
Col:=0; Row:=0;
sg.MouseToCell(X, Y, Col, Row);
if (sg.Cells[Col, Row] <> '') and (Assigned(OnInsertCharacter)) then
OnInsertCharacter(sg.Cells[Col, Row]);
@ -192,6 +193,7 @@ var
begin
if StringGrid1.MouseToGridZone(X, Y) = gzNormal then
begin
Col:=0; Row:=0;
StringGrid1.MouseToCell(X, Y, Col, Row);
if StringGrid1.Cells[Col, Row] <> '' then
begin
@ -216,6 +218,7 @@ var Row, Col, i: Integer;
begin
if StringGrid2.MouseToGridZone(X, Y) = gzNormal then
begin
Col:=0; Row:=0;
StringGrid2.MouseToCell(X, Y, Col, Row);
S:=UnicodeBlocks[cbUniRange.ItemIndex].S+(Col)+(Row*16);
tmp:=UnicodeToUTF8(S);

5
ide/encloseselectiondlg.pas
View File

@ -70,7 +70,6 @@ procedure GetEncloseSelectionParams(TheType: TEncloseSelectionType;
out Template: string);
procedure EncloseTextSelection(const Template: string; Source: TStrings;
SelectionStart, SelectionEnd: TPoint;
Indent: integer;
out NewSelection: string; out NewCursor: TPoint);
implementation
@ -161,8 +160,8 @@ begin
end;
procedure EncloseTextSelection(const Template: string; Source: TStrings;
SelectionStart, SelectionEnd: TPoint; Indent: integer; out
NewSelection: string; out NewCursor: TPoint);
SelectionStart, SelectionEnd: TPoint; out NewSelection: string; out
NewCursor: TPoint);
var
TemplateLen: Integer;
TemplatePos: Integer;

1
ide/sourceeditor.pp
View File

@ -4773,7 +4773,6 @@ begin
GetEncloseSelectionParams(EncloseType,EncloseTemplate);
EncloseTextSelection(EncloseTemplate,FEditor.Lines,
FEditor.BlockBegin,FEditor.BlockEnd,
FEditor.BlockIndent,
NewSelection,NewCaretXY);
//debugln(['TSourceEditor.EncloseSelection A NewCaretXY=',NewCaretXY.X,',',NewCaretXY.Y,' "',NewSelection,'"']);
FEditor.SelText:=NewSelection;