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

finshed Make Resourcestring dialog and implemented TToggleBox

Browse Source 
git-svn-id: trunk@3047 -
This commit is contained in:
mattias 2002-08-18 08:57:18 +00:00
parent 002d908716
commit ec6eb3c91e
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/uniteditor.pp
View File

@ -229,6 +229,7 @@ type
// selections
Procedure SelectText(LineNum,CharStart,LineNum2,CharEnd : Integer);
procedure ReplaceLines(StartLine, EndLine: integer; const NewText: string);
procedure UpperCaseSelection;
procedure LowerCaseSelection;
procedure TabsToSpacesInSelection;
@ -1705,6 +1706,16 @@ Begin
FEditor.BlockEnd := P;
end;
procedure TSourceEditor.ReplaceLines(StartLine, EndLine: integer;
const NewText: string);
begin
FEditor.BeginUndoBlock;
FEditor.BlockBegin:=Point(1,StartLine);
FEditor.BlockEnd:=Point(length(FEditor.Lines[Endline-1])+1,EndLine);
FEditor.SelText:=NewText;
FEditor.EndUndoBlock;
end;
Function TSourceEditor.GetModified : Boolean;
Begin
Result := FEditor.Modified or FModified;