paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 19:52:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

added export procedure specifier

Browse Source 
git-svn-id: trunk@3156 -
This commit is contained in:
mattias 2002-08-18 16:50:06 +00:00
parent 97141c5c27
commit 619e882233
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/codetools/codecompletiontool.pas
View File

@ -99,29 +99,30 @@ type
function CheckLocalVarAssignmentSyntax(CleanCursorPos: integer; function CheckLocalVarAssignmentSyntax(CleanCursorPos: integer;
var VarNameAtom,AssignmentOperator,TermAtom: TAtomPosition): boolean; var VarNameAtom,AssignmentOperator,TermAtom: TAtomPosition): boolean;
function AddLocalVariable(CleanCursorPos: integer; OldTopLine: integer; function AddLocalVariable(CleanCursorPos: integer; OldTopLine: integer;
VariableName, VariableType: string; VariableName, VariableType: string;
var NewPos: TCodeXYPosition; var NewTopLine: integer; var NewPos: TCodeXYPosition; var NewTopLine: integer;
SourceChangeCache: TSourceChangeCache): boolean; SourceChangeCache: TSourceChangeCache): boolean;
procedure AdjustCursor(OldCodePos: TCodePosition; OldTopLine: integer; procedure AdjustCursor(OldCodePos: TCodePosition; OldTopLine: integer;
var NewPos: TCodeXYPosition; var NewTopLine: integer); var NewPos: TCodeXYPosition; var NewTopLine: integer);
protected protected
property CodeCompleteClassNode: TCodeTreeNode property CodeCompleteClassNode: TCodeTreeNode
read ClassNode write SetCodeCompleteClassNode; read ClassNode write SetCodeCompleteClassNode;
property CodeCompleteSrcChgCache: TSourceChangeCache property CodeCompleteSrcChgCache: TSourceChangeCache
read ASourceChangeCache write SetCodeCompleteSrcChgCache; read ASourceChangeCache write SetCodeCompleteSrcChgCache;
public public
function AddPublishedVariable(const UpperClassName,VarName, VarType: string; function AddPublishedVariable(const UpperClassName,VarName, VarType: string;
SourceChangeCache: TSourceChangeCache): boolean; override; SourceChangeCache: TSourceChangeCache): boolean; override;
function CompleteCode(CursorPos: TCodeXYPosition; OldTopLine: integer; function CompleteCode(CursorPos: TCodeXYPosition; OldTopLine: integer;
var NewPos: TCodeXYPosition; var NewTopLine: integer; var NewPos: TCodeXYPosition; var NewTopLine: integer;
SourceChangeCache: TSourceChangeCache): boolean; SourceChangeCache: TSourceChangeCache): boolean;
constructor Create; constructor Create;
property SetPropertyVariablename: string property SetPropertyVariablename: string read FSetPropertyVariablename
read FSetPropertyVariablename write FSetPropertyVariablename; write FSetPropertyVariablename;
property CompleteProperties: boolean property CompleteProperties: boolean read FCompleteProperties
read FCompleteProperties write FCompleteProperties; write FCompleteProperties;
property AddInheritedCodeToOverrideMethod: boolean property AddInheritedCodeToOverrideMethod: boolean
read FAddInheritedCodeToOverrideMethod write FAddInheritedCodeToOverrideMethod; read FAddInheritedCodeToOverrideMethod
write FAddInheritedCodeToOverrideMethod;
end; end;
@ -2336,7 +2337,7 @@ var CleanCursorPos, Indent, insertPos: integer;
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
writeln(' IsLocalVariableAssignment: B CheckLocalVarAssignmentSyntax ...'); writeln(' IsLocalVariableAssignment: B CheckLocalVarAssignmentSyntax ...');
{$ENDIF} {$ENDIF}
// check assigment syntax // check assignment syntax
if not CheckLocalVarAssignmentSyntax(CleanCursorPos, if not CheckLocalVarAssignmentSyntax(CleanCursorPos,
VarNameAtom,AssignmentOperator,TermAtom) VarNameAtom,AssignmentOperator,TermAtom)
then then