paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 20:30:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* About dialog changes

Browse Source
This commit is contained in:
pierre 1999-10-29 14:50:07 +00:00
parent 7ae6b4890d
commit 35516c1700
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/text/fpviews.pas
View File

@ -1235,14 +1235,15 @@ Var
begin
if IsReadOnly then begin InsertLine:=-1; Exit; end;
if CurPos.Y<GetLineCount then S:=GetLineText(CurPos.Y) else S:='';
if CurPos.Y<GetLineCount then S:=GetDisplayText(CurPos.Y) else S:='';
s:=Copy(S,1,CurPos.X);
if assigned(Debugger) then
if S<>'' then
begin
LastCommand:=S;
{ should be true only if we are at the end ! }
IgnoreStringAtEnd:=(CurPos.Y=GetLineCount-1) and (CurPos.X=length(GetDisplayText(GetLineCount-1)));
IgnoreStringAtEnd:=(CurPos.Y=GetLineCount-1) and
(CurPos.X=length(GetDisplayText(GetLineCount-1)));
Debugger^.Command(S);
IgnoreStringAtEnd:=false;
end
@ -2637,7 +2638,7 @@ begin
{$ifdef os2}
OSStr:='OS/2';
{$endif}
R.Assign(0,0,38,12);
R.Assign(0,0,38,13);
inherited Init(R, 'About');
GetExtent(R); R.Grow(-3,-2);
@ -2651,7 +2652,7 @@ begin
if pos('Fake',GDBVersion)=0 then
begin
R2.Move(0,1);
Insert(New(PStaticText, Init(R2, ^C'(Debugging based on '+GDBVersion+')')));
Insert(New(PStaticText, Init(R2, ^C'(Debugger '+GDBVersion+')')));
R2.Move(0,1);
end
else
@ -2663,6 +2664,8 @@ begin
R2.Move(0,2);
Insert(New(PStaticText, Init(R2, ^C'B‚rczi G bor')));
R2.Move(0,1);
Insert(New(PStaticText, Init(R2, ^C'Pierre Muller')));
R2.Move(0,1);
Insert(New(PStaticText, Init(R2, ^C'and')));
R2.Move(0,1);
Insert(New(PStaticText, Init(R2, ^C'Peter Vreman')));
@ -2829,7 +2832,10 @@ end;
END.
{
$Log$
Revision 1.44 1999-10-27 12:10:42 pierre
Revision 1.45 1999-10-29 14:50:07 pierre
* About dialog changes
Revision 1.44 1999/10/27 12:10:42 pierre
+ With DebugUndo added 3 menu items
"Dump Undo" "Undo All" and "Redo All"
for Undo checks