syneditoptionsdialog.hpp

嵌入式IDE

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

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

#ifndef SynEditOptionsDialogHPP
#define SynEditOptionsDialogHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <SysUtils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SynEditKeyCmds.hpp>	// Pascal unit
#include <SynEditMiscClasses.hpp>	// Pascal unit
#include <SynEditHighlighter.hpp>	// Pascal unit
#include <SynEdit.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <Registry.hpp>	// Pascal unit
#include <CommCtrl.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Syneditoptionsdialog
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TLVSelectItemEvent)(System::TObject* Sender, Comctrls::TListItem* Item, bool Selected);

#pragma option push -b-
enum TColorPopup { cpGutter, cpRightEdge };
#pragma option pop

typedef void __fastcall (__closure *TSynEditorOptionsUserCommand)(int AUserCommand, AnsiString &ADescription);

typedef void __fastcall (__closure *TSynEditorOptionsAllUserCommands)(Classes::TStrings* ACommands);

class DELPHICLASS TfmEditorOptionsDialog;
class DELPHICLASS TSynEditorOptionsContainer;
class PASCALIMPLEMENTATION TSynEditorOptionsContainer : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	bool FHideSelection;
	bool FWantTabs;
	int FMaxUndo;
	int FExtraLineSpacing;
	int FTabWidth;
	int FMaxScrollWidth;
	int FRightEdge;
	Syneditmiscclasses::TSynSelectedColor* FSelectedColor;
	Graphics::TColor FRightEdgeColor;
	Graphics::TFont* FFont;
	Syneditmiscclasses::TSynBookMarkOpt* FBookmarks;
	Synedit::TSynEditCaretType FOverwriteCaret;
	Synedit::TSynEditCaretType FInsertCaret;
	Syneditkeycmds::TSynEditKeyStrokes* FKeystrokes;
	Synedit::TSynEditorOptions FOptions;
	Syneditmiscclasses::TSynGutter* FSynGutter;
	AnsiString FWordBreakChars;
	Graphics::TColor FColor;
	void __fastcall SetBookMarks(const Syneditmiscclasses::TSynBookMarkOpt* Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetKeystrokes(const Syneditkeycmds::TSynEditKeyStrokes* Value);
	void __fastcall SetOptions(const Synedit::TSynEditorOptions Value);
	void __fastcall SetSynGutter(const Syneditmiscclasses::TSynGutter* Value);
	
public:
	__fastcall virtual TSynEditorOptionsContainer(Classes::TComponent* AOwner);
	__fastcall virtual ~TSynEditorOptionsContainer(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
	
__published:
	__property Synedit::TSynEditorOptions Options = {read=FOptions, write=SetOptions, nodefault};
	__property Syneditmiscclasses::TSynBookMarkOpt* BookMarkOptions = {read=FBookmarks, write=SetBookMarks};
	__property Graphics::TColor Color = {read=FColor, write=FColor, nodefault};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property int ExtraLineSpacing = {read=FExtraLineSpacing, write=FExtraLineSpacing, nodefault};
	__property Syneditmiscclasses::TSynGutter* Gutter = {read=FSynGutter, write=SetSynGutter};
	__property int RightEdge = {read=FRightEdge, write=FRightEdge, nodefault};
	__property Graphics::TColor RightEdgeColor = {read=FRightEdgeColor, write=FRightEdgeColor, nodefault};
	__property bool WantTabs = {read=FWantTabs, write=FWantTabs, nodefault};
	__property Synedit::TSynEditCaretType InsertCaret = {read=FInsertCaret, write=FInsertCaret, nodefault};
	__property Synedit::TSynEditCaretType OverwriteCaret = {read=FOverwriteCaret, write=FOverwriteCaret, nodefault};
	__property bool HideSelection = {read=FHideSelection, write=FHideSelection, nodefault};
	__property int MaxScrollWidth = {read=FMaxScrollWidth, write=FMaxScrollWidth, nodefault};
	__property int MaxUndo = {read=FMaxUndo, write=FMaxUndo, nodefault};
	__property Syneditmiscclasses::TSynSelectedColor* SelectedColor = {read=FSelectedColor, write=FSelectedColor};
	__property int TabWidth = {read=FTabWidth, write=FTabWidth, nodefault};
	__property AnsiString WordBreakChars = {read=FWordBreakChars, write=FWordBreakChars};
	__property Syneditkeycmds::TSynEditKeyStrokes* Keystrokes = {read=FKeystrokes, write=SetKeystrokes};
};


class PASCALIMPLEMENTATION TfmEditorOptionsDialog : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Comctrls::TPageControl* PageControl1;
	Stdctrls::TButton* btnOk;
	Stdctrls::TButton* btnCancel;
	Comctrls::TTabSheet* Display;
	Dialogs::TColorDialog* ColorDialog;
	Menus::TPopupMenu* ColorPopup;
	Menus::TMenuItem* None1;
	Menus::TMenuItem* Scrollbar1;
	Menus::TMenuItem* ActiveCaption1;
	Menus::TMenuItem* Background1;
	Menus::TMenuItem* InactiveCaption1;
	Menus::TMenuItem* Menu1;
	Menus::TMenuItem* Window1;
	Menus::TMenuItem* WindowFrame1;
	Menus::TMenuItem* MEnu2;
	Menus::TMenuItem* WindowText1;
	Menus::TMenuItem* CaptionText1;
	Menus::TMenuItem* ActiveBorder1;
	Menus::TMenuItem* InactiveBorder1;
	Menus::TMenuItem* ApplicationWorkspace1;
	Menus::TMenuItem* Highlight1;
	Menus::TMenuItem* HighlightText1;
	Menus::TMenuItem* ButtonFace1;
	Menus::TMenuItem* ButtonShadow1;
	Menus::TMenuItem* GrayText1;
	Menus::TMenuItem* ButtonText1;
	Menus::TMenuItem* InactiveCaptionText1;
	Menus::TMenuItem* Highlight2;
	Menus::TMenuItem* N3dDarkShadow1;
	Menus::TMenuItem* N3DLight1;
	Menus::TMenuItem* InfoTipText1;
	Menus::TMenuItem* InfoTipBackground1;
	Controls::TImageList* ImageList1;
	Comctrls::TTabSheet* Options;
	Comctrls::TTabSheet* Keystrokes;
	Stdctrls::TGroupBox* gbBookmarks;
	Stdctrls::TCheckBox* ckBookmarkKeys;
	Stdctrls::TCheckBox* ckBookmarkVisible;
	Stdctrls::TGroupBox* gbLineSpacing;
	Stdctrls::TEdit* eLineSpacing;
	Stdctrls::TGroupBox* gbGutter;
	Stdctrls::TLabel* Label1;
	Stdctrls::TCheckBox* ckGutterAutosize;
	Stdctrls::TCheckBox* ckGutterShowLineNumbers;
	Stdctrls::TCheckBox* ckGutterShowLeaderZeros;
	Stdctrls::TCheckBox* ckGutterStartAtZero;
	Stdctrls::TCheckBox* ckGutterVisible;
	Stdctrls::TGroupBox* gbRightEdge;
	Stdctrls::TLabel* Label3;
	Extctrls::TPanel* pRightEdgeBack;
	Stdctrls::TEdit* eRightEdge;
	Stdctrls::TGroupBox* gbEditorFont;
	Stdctrls::TButton* btnFont;
	Stdctrls::TGroupBox* gbOptions;
	Stdctrls::TCheckBox* ckAutoIndent;
	Stdctrls::TCheckBox* ckDragAndDropEditing;
	Stdctrls::TCheckBox* ckAutoSizeMaxWidth;
	Stdctrls::TCheckBox* ckHalfPageScroll;
	Stdctrls::TCheckBox* ckEnhanceEndKey;
	Stdctrls::TCheckBox* ckScrollByOneLess;
	Stdctrls::TCheckBox* ckScrollPastEOF;
	Stdctrls::TCheckBox* ckScrollPastEOL;
	Stdctrls::TCheckBox* ckShowScrollHint;
	Stdctrls::TCheckBox* ckSmartTabs;
	Stdctrls::TCheckBox* ckTabsToSpaces;
	Stdctrls::TCheckBox* ckTrimTrailingSpaces;
	Stdctrls::TCheckBox* ckWantTabs;
	Stdctrls::TGroupBox* gbCaret;
	Stdctrls::TComboBox* cInsertCaret;
	Stdctrls::TLabel* Label2;
	Stdctrls::TLabel* Label4;
	Stdctrls::TComboBox* cOverwriteCaret;
	Extctrls::TPanel* Panel3;
	Stdctrls::TLabel* labFont;
	Dialogs::TFontDialog* FontDialog;
	Stdctrls::TButton* btnAddKey;
	Stdctrls::TButton* btnRemKey;
	Stdctrls::TGroupBox* gbKeyStrokes;
	Stdctrls::TLabel* Label5;
	Stdctrls::TLabel* Label6;
	Stdctrls::TLabel* Label7;
	Stdctrls::TComboBox* cKeyCommand;
	Stdctrls::TButton* btnUpdateKey;
	Stdctrls::TCheckBox* ckAltSetsColumnMode;
	Stdctrls::TCheckBox* ckKeepCaretX;
	Stdctrls::TEdit* eTabWidth;
	Extctrls::TPanel* pRightEdgeColor;
	Stdctrls::TLabel* Label8;
	Stdctrls::TLabel* Label9;
	Stdctrls::TLabel* Label10;
	Stdctrls::TCheckBox* cbGutterFont;
	Stdctrls::TButton* btnGutterFont;
	Extctrls::TPanel* btnRightEdge;
	Extctrls::TImage* Image1;
	Extctrls::TPanel* pGutterBack;
	Extctrls::TPanel* pGutterColor;
	Extctrls::TPanel* btnGutterColor;
	Extctrls::TImage* Image2;
	Stdctrls::TCheckBox* ckScrollHintFollows;
	Stdctrls::TCheckBox* ckGroupUndo;
	Stdctrls::TCheckBox* ckSmartTabDelete;
	Stdctrls::TCheckBox* ckRightMouseMoves;
	Extctrls::TPanel* pnlGutterFontDisplay;
	Stdctrls::TLabel* lblGutterFont;
	Stdctrls::TCheckBox* ckEnhanceHomeKey;
	Extctrls::TPanel* pnlCommands;
	Comctrls::TListView* KeyList;
	Stdctrls::TCheckBox* ckHideShowScrollbars;
	Stdctrls::TCheckBox* ckDisableScrollArrows;
	Stdctrls::TCheckBox* ckShowSpecialChars;
	void __fastcall PopupMenuClick(System::TObject* Sender);
	void __fastcall FormCreate(System::TObject* Sender);
	void __fastcall pGutterColorClick(System::TObject* Sender);
	void __fastcall pRightEdgeColorClick(System::TObject* Sender);
	void __fastcall btnFontClick(System::TObject* Sender);
	void __fastcall KeyListSelectItem(System::TObject* Sender, Comctrls::TListItem* Item, bool Selected);
	void __fastcall btnUpdateKeyClick(System::TObject* Sender);
	void __fastcall btnAddKeyClick(System::TObject* Sender);
	void __fastcall btnRemKeyClick(System::TObject* Sender);
	void __fastcall FormShow(System::TObject* Sender);
	void __fastcall KeyListEditing(System::TObject* Sender, Comctrls::TListItem* Item, bool &AllowEdit);
	void __fastcall btnOkClick(System::TObject* Sender);
	void __fastcall btnGutterFontClick(System::TObject* Sender);
	void __fastcall cbGutterFontClick(System::TObject* Sender);
	void __fastcall btnRightEdgeMouseDown(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall btnGutterColorMouseDown(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall cKeyCommandExit(System::TObject* Sender);
	void __fastcall cKeyCommandKeyPress(System::TObject* Sender, char &Key);
	void __fastcall cKeyCommandKeyUp(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall KeyListChanging(System::TObject* Sender, Comctrls::TListItem* Item, Comctrls::TItemChange Change, bool &AllowChange);
	
private:
	TSynEditorOptionsContainer* FSynEdit;
	TColorPopup FPoppedFrom;
	TSynEditorOptionsUserCommand FUserCommand;
	TSynEditorOptionsAllUserCommands FAllUserCommands;
	Comctrls::TListItem* OldSelected;
	bool InChanging;
	bool FExtended;
	Graphics::TColor __fastcall GetColor(Menus::TMenuItem* Item);
	void __fastcall GetData(void);
	void __fastcall PutData(void);
	void __fastcall EditStrCallback(const AnsiString S);
	void __fastcall FillInKeystrokeInfo(Syneditkeycmds::TSynEditKeyStroke* AKey, Comctrls::TListItem* AItem);
	
public:
	Syneditmiscclasses::TSynHotKey* eKeyShort2;
	Syneditmiscclasses::TSynHotKey* eKeyShort1;
	TLVSelectItemEvent FOnSelectItem;
	bool __fastcall Execute(TSynEditorOptionsContainer* EditOptions);
	__property TSynEditorOptionsUserCommand GetUserCommandNames = {read=FUserCommand, write=FUserCommand};
	__property TSynEditorOptionsAllUserCommands GetAllUserCommands = {read=FAllUserCommands, write=FAllUserCommands};
	__property bool UseExtendedStrings = {read=FExtended, write=FExtended, nodefault};
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TfmEditorOptionsDialog(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TfmEditorOptionsDialog(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TfmEditorOptionsDialog(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfmEditorOptionsDialog(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TSynEditOptionsDialog;
class PASCALIMPLEMENTATION TSynEditOptionsDialog : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	TfmEditorOptionsDialog* FForm;
	TSynEditorOptionsUserCommand __fastcall GetUserCommandNames();
	void __fastcall SetUserCommandNames(const TSynEditorOptionsUserCommand Value);
	TSynEditorOptionsAllUserCommands __fastcall GetUserCommands();
	void __fastcall SetUserCommands(const TSynEditorOptionsAllUserCommands Value);
	bool __fastcall GetExtended(void);
	void __fastcall SetExtended(const bool Value);
	
public:
	__fastcall virtual TSynEditOptionsDialog(Classes::TComponent* AOwner);
	__fastcall virtual ~TSynEditOptionsDialog(void);
	bool __fastcall Execute(TSynEditorOptionsContainer* EditOptions);
	__property TfmEditorOptionsDialog* Form = {read=FForm};
	
__published:
	__property TSynEditorOptionsUserCommand GetUserCommand = {read=GetUserCommandNames, write=SetUserCommandNames};
	__property TSynEditorOptionsAllUserCommands GetAllUserCommands = {read=GetUserCommands, write=SetUserCommands};
	__property bool UseExtendedStrings = {read=GetExtended, write=SetExtended, nodefault};
};


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

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

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