paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-16 15:28:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TProgramInfo was not registered

Browse Source
This commit is contained in:
pierre 2000-01-10 14:59:50 +00:00
parent 8af36884e6
commit cecaff56a3
1 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
ide/text/fpviews.pas
View File

@ -258,6 +258,8 @@ type
InfoST: PColorStaticText; InfoST: PColorStaticText;
LogLB : PMessageListBox; LogLB : PMessageListBox;
constructor Init; constructor Init;
constructor Load(var S: TStream);
procedure Store(var S: TStream);
procedure AddMessage(AClass: longint; Msg, Module: string; Line, Column: longint); procedure AddMessage(AClass: longint; Msg, Module: string; Line, Column: longint);
procedure ClearMessages; procedure ClearMessages;
procedure SizeLimits(var Min, Max: TPoint); virtual; procedure SizeLimits(var Min, Max: TPoint); virtual;
@ -482,6 +484,12 @@ const
Load: @TFPASCIIChart.Load; Load: @TFPASCIIChart.Load;
Store: @TFPASCIIChart.Store Store: @TFPASCIIChart.Store
); );
RProgramInfoWindow: TStreamRec = (
ObjType: 1510;
VmtLink: Ofs(TypeOf(TProgramInfoWindow)^);
Load: @TProgramInfoWindow.Load;
Store: @TProgramInfoWindow.Store
);
const const
NoNameCount : integer = 0; NoNameCount : integer = 0;
var var
@ -1313,9 +1321,9 @@ begin
if not IDEApp.IsClosing then if not IDEApp.IsClosing then
Message(Application,evBroadcast,cmSourceWndClosing,@Self); Message(Application,evBroadcast,cmSourceWndClosing,@Self);
inherited Done; inherited Done;
PopStatus;
if not IDEApp.IsClosing then if not IDEApp.IsClosing then
Message(Application,evBroadcast,cmUpdate,@Self); Message(Application,evBroadcast,cmUpdate,@Self);
PopStatus;
end; end;
function TGDBSourceEditor.Valid(Command: Word): Boolean; function TGDBSourceEditor.Valid(Command: Word): Boolean;
@ -1917,6 +1925,20 @@ begin
Update; Update;
end; end;
constructor TProgramInfoWindow.Load(var S : TStream);
begin
inherited Load(S);
GetSubViewPtr(S,InfoST);
GetSubViewPtr(S,LogLB);
end;
procedure TProgramInfoWindow.Store(var S : TStream);
begin
inherited Store(S);
PutSubViewPtr(S,InfoST);
PutSubViewPtr(S,LogLB);
end;
procedure TProgramInfoWindow.AddMessage(AClass: longint; Msg, Module: string; Line, Column: longint); procedure TProgramInfoWindow.AddMessage(AClass: longint; Msg, Module: string; Line, Column: longint);
begin begin
if AClass>=V_Info then Line:=0; if AClass>=V_Info then Line:=0;
@ -3049,13 +3071,17 @@ begin
RegisterType(RGDBSourceEditor); RegisterType(RGDBSourceEditor);
RegisterType(RGDBWindow); RegisterType(RGDBWindow);
RegisterType(RFPASCIIChart); RegisterType(RFPASCIIChart);
RegisterType(RProgramInfoWindow);
end; end;
END. END.
{ {
$Log$ $Log$
Revision 1.53 2000-01-07 14:02:52 pierre Revision 1.54 2000-01-10 14:59:50 pierre
* TProgramInfo was not registered
Revision 1.53 2000/01/07 14:02:52 pierre
+ date string added + date string added
Revision 1.52 2000/01/03 11:38:34 michael Revision 1.52 2000/01/03 11:38:34 michael