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

codetools: added verbosity

Browse Source 
git-svn-id: trunk@10475 -
This commit is contained in:
mattias 2007-01-18 14:47:44 +00:00
parent 8b7cf08537
commit 2cf5ba11a4
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/codecompletiontool.pas
View File

@ -1122,7 +1122,6 @@ end;
function TCodeCompletionCodeTool.ApplyClassCompletion: boolean; function TCodeCompletionCodeTool.ApplyClassCompletion: boolean;
begin begin
DebugLn(['TCodeCompletionCodeTool.ApplyClassCompletion DoInsertSpaceInFront=',AtomTypesToStr(ASourceChangeCache.BeautifyCodeOptions.DoInsertSpaceInFront),' DoInsertSpaceAfter=',AtomTypesToStr(ASourceChangeCache.BeautifyCodeOptions.DoInsertSpaceAfter)]);
Result:=false; Result:=false;
try try
// insert all new class parts // insert all new class parts
@ -3187,6 +3186,8 @@ begin
CursorNode:=FindDeepestNodeAtPos(CleanCursorPos,true); CursorNode:=FindDeepestNodeAtPos(CleanCursorPos,true);
CodeCompleteSrcChgCache:=SourceChangeCache; CodeCompleteSrcChgCache:=SourceChangeCache;
DebugLn(['TCodeCompletionCodeTool.CompleteCode DoInsertSpaceInFront=',AtomTypesToStr(CodeCompleteSrcChgCache.BeautifyCodeOptions.DoInsertSpaceInFront),' DoInsertSpaceAfter=',AtomTypesToStr(CodeCompleteSrcChgCache.BeautifyCodeOptions.DoInsertSpaceAfter)]);
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('TCodeCompletionCodeTool.CompleteCode A CleanCursorPos=',dbgs(CleanCursorPos),' NodeDesc=',NodeDescriptionAsString(CursorNode.Desc)); DebugLn('TCodeCompletionCodeTool.CompleteCode A CleanCursorPos=',dbgs(CleanCursorPos),' NodeDesc=',NodeDescriptionAsString(CursorNode.Desc));
{$ENDIF} {$ENDIF}

3
lcl/maskedit.pp
View File

@ -59,9 +59,6 @@ type
EDBEditError = class(Exception); EDBEditError = class(Exception);
//TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte);
{ TCustomMaskEdit } { TCustomMaskEdit }
TMaskCharType = (mcNone, mcLiteral, mcIntlLiteral, mcDirective, mcMask, TMaskCharType = (mcNone, mcLiteral, mcIntlLiteral, mcDirective, mcMask,