1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
//----------------------------------------------------------------------------
//Borland C++Builder
//Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
//----------------------------------------------------------------------------
//----------------------------------------------------------------------------
#ifndef editentryfrmH
#define editentryfrmH
//----------------------------------------------------------------------------
#include <Outline.hpp>
#include <Grids.hpp>
#include <Buttons.hpp>
#include <ExtCtrls.hpp>
#include <StdCtrls.hpp>
#include <ComCtrls.hpp>
#include <Menus.hpp>
#include <Dialogs.hpp>
#include <Forms.hpp>
#include <Controls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <SysUtils.hpp>
#include <Messages.hpp>
#include <Windows.hpp>
#include <System.hpp>
#include <swmodule.h>
#include <swdisprtf.h>
#include "rxricheditx.h"
//----------------------------------------------------------------------------
class TEditEntryForm : public TForm
{
__published:
TPanel *SpeedBar;
TSpeedButton *UndoButton;
TSpeedButton *CutButton;
TSpeedButton *CopyButton;
TSpeedButton *PasteButton;
TBevel *Bevel1;
TSpeedButton *BoldButton;
TSpeedButton *ItalicButton;
TSpeedButton *LeftAlign;
TSpeedButton *CenterAlign;
TSpeedButton *RightAlign;
TSpeedButton *UnderlineButton;
TSpeedButton *BulletsButton;
TEdit *FontSize;
TUpDown *UpDown1;
TPanel *Ruler;
TLabel *FirstInd;
TLabel *LeftInd;
TBevel *RulerLine;
TLabel *RightInd;
TStatusBar *StatusBar;
TLabel *Label1;
TPanel *pnlRichEdit;
void __fastcall SelectionChange(TObject *Sender);
void __fastcall AlignClick(TObject *Sender);
void __fastcall EditUndoClick(TObject *Sender);
void __fastcall EditCutClick(TObject *Sender);
void __fastcall EditCopyClick(TObject *Sender);
void __fastcall EditPasteClick(TObject *Sender);
void __fastcall RulerResize(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormResize(TObject *Sender);
void __fastcall FormPaint(TObject *Sender);
void __fastcall BoldButtonClick(TObject *Sender);
void __fastcall FontSizeChange(TObject *Sender);
void __fastcall UnderlineButtonClick(TObject *Sender);
void __fastcall ItalicButtonClick(TObject *Sender);
void __fastcall BulletsButtonClick(TObject *Sender);
void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
void __fastcall RulerItemMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall RulerItemMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
void __fastcall FirstIndMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall LeftIndMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall RightIndMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall FormActivate(TObject *Sender);
private:
TRxRichEditX *RichEdit1;
AnsiString FFileName;
bool FUpdating;
int FDragOfs;
bool FDragging;
TRxTextAttributes *__fastcall CurrText(void);
void __fastcall CheckFileSave(void);
void __fastcall SetupRuler(void);
void __fastcall SetEditRect(void);
void __fastcall ShowHint(TObject *Sender);
public:
SWModule *Module;
SWDispRTF *RTFDisplay;
virtual __fastcall TEditEntryForm(TComponent *Owner);
__fastcall ~TEditEntryForm();
char *ResultBuf;
void ExtractRTF();
};
//----------------------------------------------------------------------------
class TCharsetObject : public TObject
{
public:
int Charset;
__fastcall TCharsetObject(int FCharset);
};
//----------------------------------------------------------------------------
extern TEditEntryForm *EditEntryForm;
//----------------------------------------------------------------------------
#endif
|
