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

small bugfixes and fixed non checked menu items activate

Browse Source 
git-svn-id: trunk@2866 -
This commit is contained in:
mattias 2002-08-18 08:55:12 +00:00
parent 14d6459cee
commit 41d25d47e4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -6811,11 +6811,12 @@ begin
{$ENDIF} {$ENDIF}
// calculate start and end of expression in source // calculate start and end of expression in source
if ActiveSrcEdit.EditorComponent.SelText='' then begin if ActiveSrcEdit.EditorComponent.SelText='' then begin
if CodeToolBoss.GetExpressionBounds(ActiveUnitInfo.Source, if CodeToolBoss.GetStringConstBounds(ActiveUnitInfo.Source,
ActiveSrcEdit.EditorComponent.CaretX, ActiveSrcEdit.EditorComponent.CaretX,
ActiveSrcEdit.EditorComponent.CaretY, ActiveSrcEdit.EditorComponent.CaretY,
StartCode,StartPos.X,StartPos.Y, StartCode,StartPos.X,StartPos.Y,
EndCode,EndPos.X,EndPos.Y) then EndCode,EndPos.X,EndPos.Y,
true) then
begin begin
if (StartCode<>ActiveUnitInfo.Source) if (StartCode<>ActiveUnitInfo.Source)
or (EndCode<>ActiveUnitInfo.Source) then begin or (EndCode<>ActiveUnitInfo.Source) then begin
@ -7688,6 +7689,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.457 2003/02/03 22:28:08 mattias
small bugfixes and fixed non checked menu items activate
Revision 1.456 2003/01/28 17:04:33 mattias Revision 1.456 2003/01/28 17:04:33 mattias
renamed one Rect renamed one Rect