paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 20:20:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: renamed lazdochints.pas to fpdochints.pas

Browse Source 
git-svn-id: trunk@13514 -
This commit is contained in:
mattias 2007-12-29 11:00:29 +00:00
parent 0216c6b5c8
commit e27df21ad7
2 changed files with 18 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -1954,6 +1954,7 @@ ide/findreplacedialog.lfm svneol=native#text/plain
ide/findreplacedialog.lrs svneol=native#text/plain
ide/findreplacedialog.pp svneol=native#text/pascal
ide/formeditor.pp svneol=native#text/pascal
ide/fpdochints.pas svneol=native#text/plain
ide/frmcustomapplicationoptions.lfm svneol=native#text/plain
ide/frmcustomapplicationoptions.lrs svneol=native#text/plain
ide/frmcustomapplicationoptions.pas svneol=native#text/plain
@ -2007,7 +2008,6 @@ ide/lazconf.pp svneol=native#text/pascal
ide/lazdocfrm.lfm svneol=native#text/plain
ide/lazdocfrm.lrs svneol=native#text/plain
ide/lazdocfrm.pas svneol=native#text/plain
ide/lazdochints.pas svneol=native#text/plain
ide/lazdocselectinherited.lfm svneol=native#text/plain
ide/lazdocselectinherited.lrs svneol=native#text/plain
ide/lazdocselectinherited.pas svneol=native#text/plain

35
ide/lazdochints.pas → ide/fpdochints.pas
View File

@ -21,9 +21,9 @@
Author: Mattias Gaertner
Abstract:
Hint using the lazdoc data.
Hint using the fpdoc data.
}
unit LazDocHints;
unit FPDocHints;
{$mode objfpc}{$H+}
@ -37,9 +37,9 @@ uses
type
{ TLazDocHintProvider }
{ TFPDocHintProvider }
TLazDocHintProvider = class(TCodeHintProvider)
TFPDocHintProvider = class(TCodeHintProvider)
private
FHintValid: boolean;
FWaitingForIdle: boolean;
@ -57,9 +57,9 @@ type
implementation
{ TLazDocHintProvider }
{ TFPDocHintProvider }
procedure TLazDocHintProvider.SetWaitingForIdle(const AValue: boolean);
procedure TFPDocHintProvider.SetWaitingForIdle(const AValue: boolean);
begin
if FWaitingForIdle=AValue then exit;
FWaitingForIdle:=AValue;
@ -71,20 +71,20 @@ begin
end;
end;
procedure TLazDocHintProvider.SetHintValid(const AValue: boolean);
procedure TFPDocHintProvider.SetHintValid(const AValue: boolean);
begin
if FHintValid=AValue then exit;
FHintValid:=AValue;
end;
procedure TLazDocHintProvider.ApplicationIdle(Sender: TObject; var Done: Boolean
procedure TFPDocHintProvider.ApplicationIdle(Sender: TObject; var Done: Boolean
);
begin
WaitingForIdle:=false;
ReadLazDocData;
end;
procedure TLazDocHintProvider.ReadLazDocData;
procedure TFPDocHintProvider.ReadLazDocData;
var
Position: LongInt;
Item: TIdentifierListItem;
@ -100,25 +100,25 @@ begin
if (Position<0) or (Position>=CodeToolBoss.IdentifierList.GetFilteredCount) then
exit;
Item:=CodeToolBoss.IdentifierList.FilteredItems[Position];
DebugLn(['TLazDocHintProvider.ReadLazDocData Identifier=',Item.Identifier]);
DebugLn(['TFPDocHintProvider.ReadLazDocData Identifier=',Item.Identifier]);
Chain:=nil;
try
if (Item.Node<>nil) then begin
if (Item.Tool.Scanner=nil) then exit;
Code:=TCodeBuffer(Item.Tool.Scanner.MainCode);
if Code=nil then begin
DebugLn(['TLazDocHintProvider.ReadLazDocData FAILED Tool without MainCode']);
DebugLn(['TFPDocHintProvider.ReadLazDocData FAILED Tool without MainCode']);
exit;
end;
Code.AbsoluteToLineCol(Item.Node.StartPos,Y,X);
if (Y<1) or (X<1) then begin
DebugLn(['TLazDocHintProvider.ReadLazDocData FAILED X=',X,' Y=',Y]);
DebugLn(['TFPDocHintProvider.ReadLazDocData FAILED X=',X,' Y=',Y]);
exit;
end;
LazDocBoss.GetElementChain(Code,X,Y,true,Chain,CacheWasUsed);
DebugLn(['TLazDocHintProvider.ReadLazDocData Chain=',Chain<>nil]);
DebugLn(['TFPDocHintProvider.ReadLazDocData Chain=',Chain<>nil]);
if Chain=nil then begin
DebugLn(['TLazDocHintProvider.ReadLazDocData FAILED Chain=nil']);
DebugLn(['TFPDocHintProvider.ReadLazDocData FAILED Chain=nil']);
exit;
end;
end else begin
@ -129,19 +129,18 @@ begin
end;
end;
destructor TLazDocHintProvider.Destroy;
destructor TFPDocHintProvider.Destroy;
begin
WaitingForIdle:=false;
inherited Destroy;
end;
procedure TLazDocHintProvider.Paint(Canvas: TCanvas; const ARect: TRect);
procedure TFPDocHintProvider.Paint(Canvas: TCanvas; const ARect: TRect);
begin
end;
procedure TLazDocHintProvider.UpdateHint;
procedure TFPDocHintProvider.UpdateHint;
begin
WaitingForIdle:=true;
inherited UpdateHint;