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

localized gtk interface

Browse Source 
git-svn-id: trunk@2888 -
This commit is contained in:
mattias 2002-08-18 08:55:34 +00:00
parent 4702add43e
commit 5388e06e85
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/main.pp
View File

@ -6912,10 +6912,10 @@ begin
try try
Result:=mrCancel; Result:=mrCancel;
if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[]) then exit; if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[]) then exit;
{ $IFDEF IDE_DEBUG} {$IFDEF IDE_DEBUG}
writeln(''); writeln('');
writeln('[TMainIDE.DoMakeResourceString] ************'); writeln('[TMainIDE.DoMakeResourceString] ************');
{ $ENDIF} {$ENDIF}
// calculate start and end of expression in source // calculate start and end of expression in source
if CodeToolBoss.GetStringConstBounds(ActiveUnitInfo.Source, if CodeToolBoss.GetStringConstBounds(ActiveUnitInfo.Source,
ActiveSrcEdit.EditorComponent.CaretX, ActiveSrcEdit.EditorComponent.CaretX,
@ -6924,7 +6924,6 @@ begin
EndCode,EndPos.X,EndPos.Y, EndCode,EndPos.X,EndPos.Y,
true) then true) then
begin begin
writeln('[TMainIDE.DoMakeResourceString] B');
// the codetools have calculated the maximum bounds // the codetools have calculated the maximum bounds
if (StartCode=EndCode) and (CompareCaret(StartPos,EndPos)=0) then begin if (StartCode=EndCode) and (CompareCaret(StartPos,EndPos)=0) then begin
MessageDlg('No String Constant Found', MessageDlg('No String Constant Found',
@ -6933,7 +6932,6 @@ begin
mtError,[mbCancel],0); mtError,[mbCancel],0);
exit; exit;
end; end;
writeln('[TMainIDE.DoMakeResourceString] C');
// the user can shorten this range by selecting text // the user can shorten this range by selecting text
if (Trim(ActiveSrcEdit.EditorComponent.SelText)='') then begin if (Trim(ActiveSrcEdit.EditorComponent.SelText)='') then begin
// the user has not selected text // the user has not selected text
@ -7863,6 +7861,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.479 2003/03/09 21:13:32 mattias
localized gtk interface
Revision 1.478 2003/03/09 17:44:12 mattias Revision 1.478 2003/03/09 17:44:12 mattias
finshed Make Resourcestring dialog and implemented TToggleBox finshed Make Resourcestring dialog and implemented TToggleBox