// CodeGear C++Builder
// Copyright (c) 1995, 2025 by Embarcadero Technologies, Inc.
// All rights reserved

// (DO NOT EDIT: machine generated header) 'UECMapAdressEdit.pas' rev: 37.00 (Windows)

#ifndef UECMapAdressEditHPP
#define UECMapAdressEditHPP

#pragma delphiheader begin
#pragma option push
#if defined(__BORLANDC__) && !defined(__clang__)
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member 
#endif
#pragma pack(push,8)
#include <System.hpp>
#include <SysInit.hpp>
#include <Winapi.Windows.hpp>
#include <Winapi.Messages.hpp>
#include <System.SysUtils.hpp>
#include <System.Classes.hpp>
#include <Vcl.Graphics.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.Dialogs.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <UECMapUtil.hpp>
#include <uecGeoLocalise.hpp>
#include <UECOpenMapQuestServices.hpp>
#include <System.UITypes.hpp>

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

namespace Uecmapadressedit
{
//-- forward type declarations -----------------------------------------------
class DELPHICLASS TECAdressEditOptions;
class DELPHICLASS TECAdressEdit;
class DELPHICLASS TECAdressFormList;
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TOnAdressEdit)(System::TObject* sender, const double Latitude, const double Longitude);

#pragma pack(push,4)
class PASCALIMPLEMENTATION TECAdressEditOptions : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	System::Uitypes::TColor FFontColor;
	System::Uitypes::TColor FFontBoldColor;
	bool FThreadEnabled;
	int FMaxAdress;
	System::UnicodeString FLimitAdress;
	void __fastcall setMaxAdress(const int value);
	
public:
	__property System::Uitypes::TColor FontColor = {read=FFontColor, write=FFontColor, nodefault};
	__property System::Uitypes::TColor FontBoldColor = {read=FFontBoldColor, write=FFontBoldColor, nodefault};
	__property bool ThreadEnabled = {read=FThreadEnabled, write=FThreadEnabled, nodefault};
	__property int MaxAddress = {read=FMaxAdress, write=setMaxAdress, nodefault};
public:
	/* TObject.Create */ inline __fastcall TECAdressEditOptions() : System::TObject() { }
	/* TObject.Destroy */ inline __fastcall virtual ~TECAdressEditOptions() { }
	
};

#pragma pack(pop)

class PASCALIMPLEMENTATION TECAdressEdit : public Vcl::Stdctrls::TEdit
{
	typedef Vcl::Stdctrls::TEdit inherited;
	
private:
	TECAdressEditOptions* FECAdressEditOptions;
	System::WideChar FKeyPressed;
	Uecopenmapquestservices::TNominatimResult* FNominatimResult;
	TOnAdressEdit FOnAdressEdit;
	System::Classes::TNotifyEvent FOnSelect;
	void __fastcall setItemIndex(const int index);
	int __fastcall getItemIndex();
	unsigned __fastcall getTimeInterval();
	void __fastcall setTimeInterval(const unsigned value);
	
protected:
	DYNAMIC void __fastcall DoExit();
	DYNAMIC void __fastcall DoEnter();
	DYNAMIC void __fastcall KeyPress(System::WideChar &Key);
	DYNAMIC void __fastcall KeyDown(System::Word &Key, System::Classes::TShiftState Shift);
	
public:
	__fastcall virtual TECAdressEdit(System::Classes::TComponent* AOwner);
	__fastcall virtual ~TECAdressEdit();
	__property Uecopenmapquestservices::TNominatimResult* Nominatim = {read=FNominatimResult};
	__property System::WideChar KeyPressed = {read=FKeyPressed, nodefault};
	__property int ItemIndex = {read=getItemIndex, write=setItemIndex, nodefault};
	__property unsigned TimeInterval = {read=getTimeInterval, write=setTimeInterval, nodefault};
	__property TECAdressEditOptions* Options = {read=FECAdressEditOptions};
	
__published:
	__property TOnAdressEdit OnAddress = {read=FOnAdressEdit, write=FOnAdressEdit};
	__property System::Classes::TNotifyEvent OnSelect = {read=FOnSelect, write=FOnSelect};
public:
	/* TWinControl.CreateParented */ inline __fastcall TECAdressEdit(HWND ParentWindow) : Vcl::Stdctrls::TEdit(ParentWindow) { }
	
};


class PASCALIMPLEMENTATION TECAdressFormList : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	Vcl::Forms::TCustomForm* ParentForm;
	Vcl::Forms::TForm* FForm;
	TECAdressEdit* FEdit;
	System::UnicodeString FOldText;
	Vcl::Stdctrls::TListBox* fFormListBox;
	System::Classes::TStringList* fItems;
	Vcl::Extctrls::TTimer* FTimerMove;
	Vcl::Extctrls::TTimer* FTimer;
	Uecgeolocalise::TECGeoLocalise* FGeoLocalise;
	int fMaxWidth;
	unsigned fTimeKeyPress;
	System::Classes::TWndMethod FOldLBWindowProc;
	bool inShowList;
	void __fastcall setItems(const System::UnicodeString sItems);
	void __fastcall ListBoxDrawItem(Vcl::Controls::TWinControl* Control, int index, const Winapi::Windows::TRect &Rect, Winapi::Windows::TOwnerDrawState State);
	void __fastcall ListBoxMeasureItem(Vcl::Controls::TWinControl* Control, int index, int &Height);
	int __fastcall Listbox_CalcLineHeights(Vcl::Stdctrls::TListBox* AListbox);
	void __fastcall ListMouseUp(System::TObject* sender, System::Uitypes::TMouseButton Button, System::Classes::TShiftState Shift, int X, int Y);
	void __fastcall setEdit(TECAdressEdit* value);
	void __fastcall doTimerSearch(System::TObject* sender);
	void __fastcall doTimerMove(System::TObject* sender);
	void __fastcall FormParentWindowProc(Winapi::Messages::TMessage &Msg);
	void __fastcall setOldText(const System::UnicodeString value);
	void __fastcall doOnSearch(System::TObject* sender);
	bool __fastcall doSearch();
	void __fastcall Show();
	void __fastcall Hide();
	__property TECAdressEdit* Edit = {read=FEdit, write=setEdit};
	__property Vcl::Forms::TForm* Form = {read=FForm};
	__property System::Classes::TStringList* Items = {read=fItems};
	__property Vcl::Stdctrls::TListBox* ListBox = {read=fFormListBox};
	__property System::UnicodeString OldText = {read=FOldText, write=setOldText};
	__property Uecgeolocalise::TECGeoLocalise* GeoLocalise = {read=FGeoLocalise};
	__property Vcl::Extctrls::TTimer* Timer = {read=FTimer};
	
public:
	__fastcall TECAdressFormList();
	__fastcall virtual ~TECAdressFormList();
};


//-- var, const, procedure ---------------------------------------------------
extern DELPHI_PACKAGE void __fastcall Register(void);
}	/* namespace Uecmapadressedit */
#if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_UECMAPADRESSEDIT)
using namespace Uecmapadressedit;
#endif
#pragma pack(pop)
#pragma option pop

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