wwriched.hpp

胜天进销存源码,国产优秀的进销存

	Wwrichole::_di_IRichEditOleCallback FRichEditOleCallback;
	Classes::TStringList* FObjectVerbs;
	Classes::TList* OleMenuItemList;
	bool InParentChanging;
	Classes::TStream* ReloadStream;
	bool UseReloadStream;
	bool NewDataFormat;
	bool URLDetectButtonPressed;
	Menus::TPopupMenu* FVerbMenu;
	bool InitEditRect;
	int FRichEditVersion;
	Classes::TStrings* FLines;
	AnsiString FTitle;
	bool InMouseUp;
	bool SkipChange;
	int FGutterWidth;
	int OldLineCount;
	int OldCharPos;
	int OrigWin32MajorVersion;
	int FMSVersion;
	bool FHideSelection;
	HIDESBASE void __fastcall SetHideSelection(bool Value);
	void __fastcall FindDialog1Close(System::TObject* Sender);
	void __fastcall FindDialog1Find(System::TObject* Sender);
	void __fastcall FindReplaceDlg(Dialogs::TFindDialog* dialog, bool replace, AnsiString replaceStr);
	void __fastcall ReplaceDialog1Replace(System::TObject* Sender);
	void __fastcall PopupMenuPopup(System::TObject* Sender);
	void __fastcall PopupEditclick(System::TObject* Sender);
	void __fastcall PopupCutClick(System::TObject* Sender);
	void __fastcall PopupCopyClick(System::TObject* Sender);
	void __fastcall PopupPasteClick(System::TObject* Sender);
	void __fastcall PopupFontClick(System::TObject* Sender);
	void __fastcall PopupParagraphClick(System::TObject* Sender);
	void __fastcall PopupTabsClick(System::TObject* Sender);
	void __fastcall PopupBulletClick(System::TObject* Sender);
	void __fastcall PopupBoldClick(System::TObject* Sender);
	void __fastcall PopupItalicClick(System::TObject* Sender);
	void __fastcall PopupUnderlineClick(System::TObject* Sender);
	void __fastcall PopupFindClick(System::TObject* Sender);
	void __fastcall PopupReplaceClick(System::TObject* Sender);
	void __fastcall PopupInsertObjectClick(System::TObject* Sender);
	void __fastcall PopupSpellCheckClick(System::TObject* Sender);
	HIDESBASE void __fastcall SetWordWrap(bool val);
	void __fastcall SetPrintPageSize(int val);
	int __fastcall TwipsToPixels(int twips);
	HIDESBASE MESSAGE void __fastcall WMNCDestroy(Messages::TMessage &Msg);
	void __fastcall SetOleOptions(TwwRichEditOleOptions val);
	void __fastcall ReadData(Classes::TStream* Stream);
	void __fastcall WriteData(Classes::TStream* Stream);
	void __fastcall ReadVersion(Classes::TReader* Reader);
	void __fastcall WriteVersion(Classes::TWriter* Writer);
	HIDESBASE MESSAGE void __fastcall WMNotify(Messages::TWMNotify &Message);
	void __fastcall URLLinkNotification(void * Link);
	void __fastcall SetAutoURLDetect(bool val);
	void __fastcall SetUserSpeedButton1(Buttons::TSpeedButton* val);
	void __fastcall SetUserSpeedButton2(Buttons::TSpeedButton* val);
	HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	HIDESBASE void __fastcall SetLines(Classes::TStrings* val);
	HIDESBASE MESSAGE void __fastcall CNKeyDown(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall WMChar(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Message);
	HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &Message);
	TwwRichSelectionType __fastcall GetSelectionType(void);
	HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
	void __fastcall SetTitle(const AnsiString Value);
	HIDESBASE void __fastcall SetScrollBars(Stdctrls::TScrollStyle Value);
	Stdctrls::TScrollStyle __fastcall GetScrollBars(void);
	
protected:
	bool BoundMode;
	int ScreenPixelsPerInch;
	bool FFocused;
	bool __fastcall StoreScrollBars(void);
	DYNAMIC void __fastcall DblClick(void);
	virtual void __fastcall ClearSelectedBackgroundColor(void);
	virtual void __fastcall WriteState(Classes::TWriter* Writer);
	virtual void __fastcall ReadState(Classes::TReader* Reader);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	MESSAGE void __fastcall EMFormatRange(Messages::TMessage &msg);
	DYNAMIC void __fastcall SelectionChange(void);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &msg);
	virtual bool __fastcall GetReadOnly(void);
	virtual void __fastcall BeginEditing(void);
	virtual void __fastcall UpdateField(void);
	virtual void __fastcall CreateWnd(void);
	virtual void __fastcall DestroyWnd(void);
	DYNAMIC Menus::TPopupMenu* __fastcall GetPopupMenu(void);
	void __fastcall DestroyVerbs(void);
	void __fastcall UpdateVerbs(void);
	void __fastcall PopupVerbMenuClick(System::TObject* Sender);
	void __fastcall ObjectPropertiesMenuClick(System::TObject* Sender);
	virtual bool __fastcall IsMemoLoaded(void);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	virtual Db::TField* __fastcall GetField(void);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall DoURLOpen(AnsiString URLLink, bool &UseDefault);
	virtual void __fastcall LoadPacketsFromStream(Classes::TStream* Stream, bool AppendMode, int NumPackets = 0x0);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	virtual bool __fastcall isTransparentEffective(void);
	virtual void __fastcall LoadMemo(void);
	virtual void __fastcall CreatePopup(void);
	virtual void __fastcall CreateRuntimeComponents(void);
	
public:
	TwwCustomRichEdit* DialogRichEdit;
	Forms::TForm* RichEditForm;
	Dialogs::TFindDialog* FindDialog1;
	Dialogs::TReplaceDialog* ReplaceDialog1;
	Dialogs::TFontDialog* FontDialog1;
	AnsiString FirstLineText;
	bool SkipPaint;
	bool SkipErase;
	Variant Patch;
	Menus::TPopupMenu* DefaultPopupMenu;
	bool BeforePopup;
	Graphics::TColor LastColor;
	int ClickTime;
	int TotalPages;
	TwwRichEditWidth __fastcall EffectiveEditWidth(void);
	void __fastcall SetTextBackgroundColor(Graphics::TColor BackColor);
	Graphics::TColor __fastcall GetTextBackgroundColor(void);
	virtual int __fastcall FindTextBefore(const AnsiString SearchStr, int StartPos, int Length, Comctrls::TSearchTypes Options);
	virtual bool __fastcall InsertObjectDialog(void);
	virtual bool __fastcall ObjectPropertiesDialog(void);
	void __fastcall DoVerb(int Verb);
	__fastcall virtual TwwCustomRichEdit(Classes::TComponent* AOwner);
	__fastcall virtual ~TwwCustomRichEdit(void);
	virtual bool __fastcall Execute(void);
	virtual void __fastcall ExecuteFindDialog(void);
	virtual void __fastcall ExecuteReplaceDialog(void);
	virtual void __fastcall ExecuteFontDialog(void);
	virtual bool __fastcall ExecuteParagraphDialog(void);
	virtual void __fastcall ExecuteTabDialog(void);
	virtual void __fastcall FindNextMatch(void);
	virtual void __fastcall FindReplace(void);
	virtual bool __fastcall FindReplaceText(AnsiString SearchText, AnsiString ReplaceText, Comctrls::TSearchTypes SearchTypes);
	void __fastcall SetBullet(bool val);
	void __fastcall SetBold(bool val);
	void __fastcall SetItalic(bool val);
	void __fastcall SetUnderline(bool val);
	HIDESBASE void __fastcall Undo(void);
	void __fastcall Redo(void);
	bool __fastcall CanPaste(void);
	HIDESBASE bool __fastcall CanUndo(void);
	bool __fastcall CanRedo(void);
	bool __fastcall CanCut(void);
	bool __fastcall CanFindNext(void);
	void __fastcall InsertBitmap(Graphics::TBitmap* Pict);
	void __fastcall CopyRichEditFromBlob(Db::TField* Field);
	void __fastcall CopyRichEdittoBlob(Db::TField* Field);
	void __fastcall CopyRichEditTo(Comctrls::TCustomRichEdit* val);
	void __fastcall AppendRichEditFrom(Comctrls::TCustomRichEdit* val);
	void __fastcall SetRichEditFontAttributes(AnsiString FontName, int FontSize, Graphics::TFontStyles FontStyle, Graphics::TColor FontColor);
	void __fastcall SetStyleAttribute(Graphics::TFontStyle Attr, bool AttrOn);
	int __fastcall GetCharSetOfFontName(const AnsiString FaceName);
	void __fastcall GetParaIndent(int &LeftIndent, int &RightIndent, int &FirstIndent);
	void __fastcall SetParaFormat(TwwRichEditParaOptions Options, AnsiString alignment, bool bulletStyle, int leftindent, int rightindent, int firstlineindent, int tabCount, void * tabArray, int SpaceBefore, int SpaceAfter, int LineSpacing, int LineSpacingRule);
	AnsiString __fastcall GetRTFText();
	void __fastcall SetRtfText(AnsiString InsertText);
	Types::TRect __fastcall GetPrinterRect();
	void __fastcall GetParaFormat(TwwParaFormat2 &Format);
	int __fastcall UnitStrToTwips(AnsiString str);
	int __fastcall UnitsToTwips(double val);
	AnsiString __fastcall FormatUnitStr(double val);
	AnsiString __fastcall RoundedFormatUnitStr(double units, int intervals);
	double __fastcall TwipsToUnits(int val);
	virtual void __fastcall DoInitDialog(Forms::TForm* Form);
	virtual void __fastcall DoCloseDialog(Forms::TForm* Form);
	virtual void __fastcall DoCreateDialog(Forms::TForm* Form);
	void __fastcall SetEditRect(void);
	virtual void __fastcall Print(const AnsiString Caption);
	void __fastcall UpdatePrinter(void);
	Classes::TStrings* __fastcall ILines(void);
	virtual bool __fastcall MSWordSpellChecker(void);
	virtual bool __fastcall MSWordPrintDocument(AnsiString TemplateFileName);
	void __fastcall GetRTFSelection(Classes::TStream* DestStream);
	void __fastcall PutRTFSelection(Classes::TStream* SourceStream);
	void __fastcall Import(AnsiString Format, AnsiString FileName);
	void __fastcall Export(AnsiString Format, AnsiString FileName);
	void __fastcall PrintPreview(void);
	virtual void __fastcall DoPrintHeader(const Types::TRect &DrawRect, int PageNumber, AnsiString &LeftText, AnsiString &CenterText, AnsiString &RightText, bool &DoDefault);
	virtual void __fastcall DoPrintFooter(const Types::TRect &DrawRect, int PageNumber, AnsiString &LeftText, AnsiString &CenterText, AnsiString &RightText, bool &DoDefault);
	__property Db::TField* Field = {read=GetField};
	__property _di_IOleObject OleSelObject = {read=FOleSelObject};
	__property Wwrichole::_di_IRichEditOle RichEditOle = {read=FRichEditOle};
	__property Wwrichole::_di_IRichEditOleCallback RichEditOleCallback = {read=FRichEditOleCallback};
	__property TwwRichEditPopupOptions PopupOptions = {read=FPopupOptions, write=FPopupOptions, default=32655};
	__property TwwRichEditOptions EditorOptions = {read=FEditorOptions, write=FEditorOptions, default=65532};
	__property int RichEditVersion = {read=FRichEditVersion, write=FRichEditVersion, nodefault};
	__property Graphics::TColor HighlightColor = {read=FHighlightColor, write=FHighlightColor, default=65535};
	__property AnsiString EditorCaption = {read=FEditorCaption, write=FEditorCaption};
	__property TwwMeasurementUnits MeasurementUnits = {read=FUnits, write=FUnits, nodefault};
	__property TwwOnRichEditDlgEvent OnInitDialog = {read=FOnInitDialog, write=FOnInitDialog};
	__property TwwOnRichEditDlgEvent OnCloseDialog = {read=FOnCloseDialog, write=FOnCloseDialog};
	__property TwwOnRichEditDlgEvent OnCreateDialog = {read=FOnCreateDialog, write=FOnCreateDialog};
	__property TwwPrintMargins* PrintMargins = {read=FPrintMargins, write=FPrintMargins};
	__property TwwRTFHeaderFooter* PrintHeader = {read=FHeader, write=FHeader};
	__property TwwRTFHeaderFooter* PrintFooter = {read=FFooter, write=FFooter};
	__property TwwRTFDrawHeaderFooter OnPrintHeader = {read=FOnPrintHeader, write=FOnPrintHeader};
	__property TwwRTFDrawHeaderFooter OnPrintFooter = {read=FOnPrintFooter, write=FOnPrintFooter};
	__property TwwRichEditWidth EditWidth = {read=FEditWidth, write=FEditWidth, default=0};
	__property Wwtypes::TwwFormPosition* EditorPosition = {read=FEditorPosition, write=FEditorPosition};
	__property int PrintPageSize = {read=FPrintPageSize, write=SetPrintPageSize, default=1};
	__property TwwRichEditOleOptions OleOptions = {read=FOLEOptions, write=SetOleOptions, default=1};
	__property TwwRichEditCopyMethod RichEditCopyMethod = {read=FRichEditCopyMethod, write=FRichEditCopyMethod, default=0};
	__property bool AutoURLDetect = {read=FAutoURLDetect, write=SetAutoURLDetect, nodefault};
	__property bool AutoSelect = {read=FAutoSelect, write=FAutoSelect, default=0};
	__property TwwURLOpenEvent OnURLOpen = {read=FOnURLOpen, write=FOnURLOpen};
	__property Buttons::TSpeedButton* UserSpeedButton1 = {read=FUserSpeedButton1, write=SetUserSpeedButton1};
	__property Buttons::TSpeedButton* UserSpeedButton2 = {read=FUserSpeedButton2, write=SetUserSpeedButton2};
	__property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=1};
	__property PlainText  = {default=0};
	__property Wwframe::TwwEditFrame* Frame = {read=FFrame, write=FFrame};
	__property AnsiString PrintJobName = {read=FPrintJobName, write=FPrintJobName};
	__property int GutterWidth = {read=FGutterWidth, write=FGutterWidth, default=3};
	__property TwwRichSelectionType SelectionType = {read=GetSelectionType, nodefault};
	__property bool WantNavigationKeys = {read=FWantNavigationKeys, write=FWantNavigationKeys, default=0};
	__property AnsiString Title = {read=FTitle, write=SetTitle};
	__property bool HideSelection = {read=FHideSelection, write=SetHideSelection, default=1};
	__property TwwRTFNotifyEvent OnMenuLoadClick = {read=FOnMenuLoadClick, write=FOnMenuLoadClick};
	__property TwwRTFNotifyEvent OnMenuPrintClick = {read=FOnMenuPrintClick, write=FOnMenuPrintClick};
	__property TwwRTFNotifyEvent OnMenuSaveAsClick = {read=FOnMenuSaveAsClick, write=FOnMenuSaveAsClick};
	__property TwwRTFNotifyEvent OnMenuSaveAndExitClick = {read=FOnMenuSaveAndExitClick, write=FOnMenuSaveAndExitClick};
	
__published:
	__property Stdctrls::TScrollStyle ScrollBars = {read=GetScrollBars, write=SetScrollBars, stored=StoreScrollBars, nodefault};
	__property int MSVersion = {read=FMSVersion, write=FMSVersion, default=3};
	__property Classes::TStrings* Lines = {read=FLines, write=SetLines, stored=false};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwCustomRichEdit(HWND ParentWindow) : Comctrls::TCustomRichEdit(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TwwRulerPanel;
class DELPHICLASS TwwDBRichEdit;
class PASCALIMPLEMENTATION TwwDBRichEdit : public TwwCustomRichEdit 
{
	typedef TwwCustomRichEdit inherited;
	
private:
	Wwintl::TwwController* FController;
	Dbctrls::TFieldDataLink* FDataLink;
	bool FAutoDisplay;
	bool FMemoLoaded;
	AnsiString FDataSave;
	void __fastcall SetController(Wwintl::TwwController* Value);
	bool __fastcall isBlob(void);
	void __fastcall DataChange(System::TObject* Sender);
	void __fastcall EditingChange(System::TObject* Sender);
	AnsiString __fastcall GetDataField();
	Db::TDataSource* __fastcall GetDataSource(void);