- Timestamp:
- Feb 1, 2010, 7:07:59 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/TMGHTML2.pas
r654 r698 60 60 FEditable: boolean; 61 61 ColorDialog: TColorDialog; 62 AllowNextBlur : boolean; 63 procedure SetMsgActive (Active : boolean); 62 AllowNextBlur : boolean; 64 63 function GetHTMLText:string; 65 64 procedure SetHTMLText(HTML:String); … … 91 90 public 92 91 {end public} 93 PopupMenu: TPopupMenu; 92 PopupMenu: TPopupMenu; 94 93 KeyStruck : boolean; // A VERY crude determiner as to if Modified. 95 94 NextControl : TWinControl; 96 95 PrevControl : TWinControl; 97 constructor Create(Owner:TControl; Application : TApplication); 96 procedure SetMsgActive (Active : boolean); 97 constructor Create(Owner:TControl; Application : TApplication); 98 98 destructor Destroy; override; 99 procedure Clear; 99 procedure Clear; 100 100 procedure ToggleBullet; 101 101 procedure ToggleItalic;
Note:
See TracChangeset
for help on using the changeset viewer.