paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 00:50:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes for fields after classes also apply to TP objects. Fixed.

Browse Source 
git-svn-id: trunk@13337 -
This commit is contained in:
marco 2009-06-27 13:45:33 +00:00
parent 3ffd12f9fb
commit 91009ca615
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/fpkeys.pas
View File

@ -36,13 +36,13 @@ Const
type
PKeyDialog = ^TKeyDialog;
TKeyDialog = object(TCenterDialog)
Constructor Init(Const ATitle : String);
{Procedure HandleEvent(var E : TEvent);virtual;}
function Execute : Word;Virtual;
PSTL : Array [1..NumWantedKeys] of PLabel;
PL : Array [1..NumWantedKeys] of PInputLine;
KeyOK : Array [1..NumWantedKeys] of boolean;
PST,PST2 : PAdvancedStaticText;
Constructor Init(Const ATitle : String);
{Procedure HandleEvent(var E : TEvent);virtual;}
function Execute : Word;Virtual;
end;
Procedure LoadKeys(var S : TStream);

4
ide/fpviews.pas
View File

@ -124,10 +124,10 @@ type
PSourceEditor = ^TSourceEditor;
TSourceEditor = object(TFileEditor)
constructor Init(var Bounds: TRect; AHScrollBar, AVScrollBar:
PScrollBar; AIndicator: PIndicator;const AFileName: string);
CompileStamp : longint;
CodeCompleteTip: PFPToolTip;
constructor Init(var Bounds: TRect; AHScrollBar, AVScrollBar:
PScrollBar; AIndicator: PIndicator;const AFileName: string);
{$ifndef NODEBUG}
private
ShouldHandleBreakpoints : boolean;