paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 21:18:06 +01:00
Code Issues Packages Projects Releases Wiki Activity

make resourcestring dialog now checks for doubles (idents and values)

Browse Source 
git-svn-id: trunk@2894 -
This commit is contained in:
mattias 2002-08-18 08:55:40 +00:00
parent 6c7f62b288
commit b7768d8695
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/main.pp
View File

@ -6979,9 +6979,11 @@ begin
end;
// gather all reachable resourcestring sections
if not CodeToolBoss.GatherResourceStringSections(ActiveUnitInfo.Source,
if not CodeToolBoss.GatherResourceStringSections(
ActiveUnitInfo.Source,
ActiveSrcEdit.EditorComponent.CaretX,
ActiveSrcEdit.EditorComponent.CaretY)
ActiveSrcEdit.EditorComponent.CaretY,
nil)
then begin
DoJumpToCodeToolBossError;
exit;
@ -7005,15 +7007,22 @@ begin
ActiveSrcEdit.ReplaceLines(StartPos.Y,EndPos.Y,NewSourceLines);
// add new resourcestring to resourcestring section
InsertAlphabetically:=(InsertPolicy=rsipAlphabetically);
DummyResult:=CodeToolBoss.AddResourcestring(
SectionCode,SectionCaretXY.X,SectionCaretXY.Y,
NewIdentifier,''''+NewIdentValue+'''',InsertAlphabetically);
if InsertPolicy in [rsipAppend,rsipAlphabetically] then begin
InsertAlphabetically:=(InsertPolicy=rsipAlphabetically);
DummyResult:=CodeToolBoss.AddResourcestring(
SectionCode,SectionCaretXY.X,SectionCaretXY.Y,
NewIdentifier,''''+NewIdentValue+'''',
InsertAlphabetically);
end else
DummyResult:=true;
ApplyCodeToolChanges;
if not DummyResult then begin
DoJumpToCodeToolBossError;
exit;
end;
// switch back to source
ActiveSrcEdit.Activate;
Result:=mrOk;
finally
@ -7887,6 +7896,9 @@ end.
{ =============================================================================
$Log$
Revision 1.485 2003/03/14 14:57:03 mattias
make resourcestring dialog now checks for doubles (idents and values)
Revision 1.484 2003/03/13 10:11:41 mattias
fixed TControl.Show in design mode