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

* fix problem of TWatchesListBox with fvision

Browse Source
This commit is contained in:
pierre 2002-04-11 06:41:13 +00:00
parent 73bc21ba39
commit 0d5523d24c
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/fpdebug.pas
View File

@ -210,6 +210,7 @@ type
constructor Init(var Bounds: TRect; AHScrollBar, AVScrollBar: PScrollBar); constructor Init(var Bounds: TRect; AHScrollBar, AVScrollBar: PScrollBar);
(* procedure AddWatch(P: PWatch); virtual; *) (* procedure AddWatch(P: PWatch); virtual; *)
procedure Update(AMaxWidth : integer); procedure Update(AMaxWidth : integer);
function GetText (Item: Sw_Integer; MaxLen: Sw_Integer): String; Virtual;
function GetIndentedText(Item,Indent,MaxLen: Sw_Integer;var Modified : boolean): String; virtual; function GetIndentedText(Item,Indent,MaxLen: Sw_Integer;var Modified : boolean): String; virtual;
function GetLocalMenu: PMenu;virtual; function GetLocalMenu: PMenu;virtual;
(* procedure Clear; virtual; (* procedure Clear; virtual;
@ -2647,6 +2648,13 @@ begin
WatchesCollection^.Update; WatchesCollection^.Update;
end; end;
function TWatchesListBox.GetText (Item: Sw_Integer; MaxLen: Sw_Integer): String;
var
Dummy_Modified : boolean;
begin
GetText:=GetIndentedText(Item, 0, MaxLen, Dummy_Modified);
end;
procedure TWatchesListBox.DeleteCurrent; procedure TWatchesListBox.DeleteCurrent;
var var
P: PWatch; P: PWatch;
@ -4057,7 +4065,10 @@ end.
{ {
$Log$ $Log$
Revision 1.15 2002-04-03 06:18:30 pierre Revision 1.16 2002-04-11 06:41:13 pierre
* fix problem of TWatchesListBox with fvision
Revision 1.15 2002/04/03 06:18:30 pierre
* fix some win32 GDB filename problems * fix some win32 GDB filename problems
Revision 1.14 2002/04/02 15:09:38 pierre Revision 1.14 2002/04/02 15:09:38 pierre