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

IDE: src edit hint: jump to source, windows path delims

Browse Source 
git-svn-id: trunk@31188 -
This commit is contained in:
mattias 2011-06-12 22:33:46 +00:00
parent 78bb459fc6
commit 1f232dc9cd
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/turbopower_ipro/design/ipidehtmlcontrol.pas
View File

@ -74,9 +74,13 @@ type
{ TLazIPHTMLManager }
TLazIPHTMLManager = class
private
fWaitingForAsync: boolean;
procedure OpenNextURL(Data: PtrInt); // called via Application.QueueAsyncCall
public
NextURL: string;
procedure OpenNextURL(Data: PtrInt); // called via Application.QueueAsyncCall
procedure AsyncOpenURL(URL: string);
destructor Destroy; override;
end;
var
@ -110,6 +114,15 @@ end;
{ TLazIPHTMLManager }
procedure TLazIPHTMLManager.AsyncOpenURL(URL: string);
begin
NextURL:=URL;
if not fWaitingForAsync then begin
Application.QueueAsyncCall(@OpenNextURL,0);
fWaitingForAsync:=true;
end;
end;
procedure TLazIPHTMLManager.OpenNextURL(Data: PtrInt);
var
URLScheme: string;
@ -128,10 +141,18 @@ begin
end else begin
AFilename:=URLPath;
end;
AFilename:=SetDirSeparators(AFilename);
LazarusIDE.DoOpenFileAndJumpToPos(AFilename,p,-1,-1,-1,[]);
end;
end;
destructor TLazIPHTMLManager.Destroy;
begin
if (Application<>nil) and fWaitingForAsync then
Application.RemoveAsyncCalls(Self);
inherited Destroy;
end;
{ TLazIpHtmlDataProvider }
function TLazIpHtmlDataProvider.DoGetStream(const URL: string): TStream;
@ -244,8 +265,7 @@ begin
// This will close the hint, so the open must be done outside the current event
if LazIPHTMLManager=nil then
LazIPHTMLManager:=TLazIPHTMLManager.Create;
LazIPHTMLManager.NextURL:=HRef;
Application.QueueAsyncCall(@LazIPHTMLManager.OpenNextURL,0);
LazIPHTMLManager.AsyncOpenURL(HRef);
end;
end;