synuriopener.hpp

嵌入式IDE

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'SynURIOpener.pas' rev: 6.00

#ifndef SynURIOpenerHPP
#define SynURIOpenerHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Classes.hpp>	// Pascal unit
#include <SynHighlighterURI.hpp>	// Pascal unit
#include <SynEdit.hpp>	// Pascal unit
#include <SynEditTypes.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Synuriopener
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TSynURIOpener;
class PASCALIMPLEMENTATION TSynURIOpener : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	bool FControlDown;
	bool FCtrlActivatesLinks;
	Synedit::TCustomSynEdit* FEditor;
	int FMouseDownX;
	int FMouseDownY;
	Synhighlighteruri::TSynURISyn* FURIHighlighter;
	Classes::TStringList* FVisitedURIs;
	void __fastcall OpenLink(AnsiString URI, int LinkType);
	bool __fastcall MouseInSynEdit(void);
	
protected:
	void __fastcall NewKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall NewKeyUp(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall NewMouseCursor(System::TObject* Sender, const Synedittypes::TBufferCoord &aLineCharPos, Controls::TCursor &aCursor);
	void __fastcall NewMouseDown(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall NewMouseUp(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	void __fastcall SetEditor(const Synedit::TCustomSynEdit* Value);
	void __fastcall SetURIHighlighter(const Synhighlighteruri::TSynURISyn* Value);
	
public:
	__fastcall virtual TSynURIOpener(Classes::TComponent* AOwner);
	bool __fastcall VisitedURI(AnsiString URI);
	
__published:
	__property bool CtrlActivatesLinks = {read=FCtrlActivatesLinks, write=FCtrlActivatesLinks, default=1};
	__property Synedit::TCustomSynEdit* Editor = {read=FEditor, write=SetEditor};
	__property Synhighlighteruri::TSynURISyn* URIHighlighter = {read=FURIHighlighter, write=SetURIHighlighter};
public:
	#pragma option push -w-inl
	/* TComponent.Destroy */ inline __fastcall virtual ~TSynURIOpener(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Synuriopener */
using namespace Synuriopener;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// SynURIOpener