-
Notifications
You must be signed in to change notification settings - Fork 3
/
RichTom.pas
975 lines (941 loc) · 47.6 KB
/
RichTom.pas
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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
unit RichTom;
// ************************************************************************ //
// WARNUNG
// -------
// Die in dieser Datei deklarierten Typen wurden aus Daten einer Typbibliothek
// generiert. Wenn diese Typbibliothek explizit oder indirekt (ueber eine
// andere Typbibliothek) reimportiert wird oder wenn der Befehl
// 'Aktualisieren' im Typbibliotheks-Editor waehrend des Bearbeitens der
// Typbibliothek aktiviert ist, wird der Inhalt dieser Datei neu generiert und
// alle manuell vorgenommenen Aenderungen gehen verloren.
// ************************************************************************ //
// PASTLWTR : 1.2
// Datei generiert am 17.03.2006 11:10:59 aus der unten beschriebenen Typbibliothek.
// ************************************************************************ //
// Typbib: C:\WINDOWS\system32\msftedit.dll (1)
// LIBID: {8CC497C9-A1DF-11CE-8098-00AA0047BE5D}
// LCID: 0
// Hilfedatei:
// Hilfe-String:
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// Fehler
// Hinweis: Symbol 'Type' umbenannt zu 'type_'
// Hinweis: Parameter 'Unit' im ITextSelection.MoveLeft geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextSelection.MoveRight geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextSelection.MoveUp geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextSelection.MoveDown geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextSelection.HomeKey geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextSelection.EndKey geändert zu 'Unit_'
// Hinweis: Element 'End' von 'ITextRange' geändert zu 'End_'
// Hinweis: Parameter 'Unit' im ITextRange.Expand geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextRange.GetIndex geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextRange.SetIndex geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextRange.StartOf geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextRange.EndOf geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextRange.Move geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextRange.MoveStart geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextRange.MoveEnd geändert zu 'Unit_'
// Hinweis: Parameter 'Unit' im ITextRange.Delete geändert zu 'Unit_'
// Hinweis: Parameter 'Type' im ITextRange.ChangeCase geändert zu 'Type_'
// Hinweis: Parameter 'Type' im ITextRange.GetPoint geändert zu 'Type_'
// Hinweis: Parameter 'Type' im ITextRange.SetPoint geändert zu 'Type_'
// Hinweis: Element 'Protected' von 'ITextFont' geändert zu 'Protected_'
// Hinweis: Parameter 'Type' im ITextDocument2.GetClientRect geändert zu 'Type_'
// ************************************************************************ //
// *************************************************************************//
// HINWEIS:
//Von $IFDEF_LIVE_SERVER_AT_DESIGN_TIME überwachte Einträge, werden von
// Eigenschaften verwendet, die Objekte zurückgeben, die explizit mit einen Funktionsaufruf
// vor dem Zugriff über die Eigenschaft erzeugt werden müssen. Diese Einträge wurden deaktiviert,
// um deren unbeabsichtigte Benutzung im Objektinspektor zu verhindern. Sie können sie
// aktivieren, indem Sie LIVE_SERVER_AT_DESIGN_TIME definieren oder sie selektiv
// aus den $IFDEF-Blöcken entfernen. Solche Einträge müssen jedoch programmseitig
// mit einer Methode der geeigneten CoClass vor der Verwendung
// erzeugt werden.
{$TYPEDADDRESS OFF} // Unit muss ohne Typueberpruefung fuer Zeiger compiliert werden.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
// *********************************************************************//
// In dieser Typbibliothek deklarierte GUIDS . Es werden folgende
// Praefixe verwendet:
// Typbibliotheken : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Nicht-DISP-Interfaces: IID_xxxx
// *********************************************************************//
const
// Haupt- und Nebenversionen der Typbibliothek
tomMajorVersion = 1;
tomMinorVersion = 0;
LIBID_tom: TGUID = '{8CC497C9-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextDocument: TGUID = '{8CC497C0-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextRange: TGUID = '{8CC497C2-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextSelection: TGUID = '{8CC497C1-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextFont: TGUID = '{8CC497C3-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextPara: TGUID = '{8CC497C4-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextStoryRanges: TGUID = '{8CC497C5-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextDocument2: TGUID = '{01C25500-4268-11D1-883A-3C8B00C10000}';
IID_ITextMsgFilter: TGUID = '{A3787420-4267-11D1-883A-3C8B00C10000}';
// *********************************************************************//
// Deklaration von in der Typbibliothek definierten Aufzählungen
// *********************************************************************//
// Konstanten für enum __MIDL___MIDL_itf_tom_0000_0001
type
__MIDL___MIDL_itf_tom_0000_0001 = TOleEnum;
const
tomFalse = $00000000;
tomTrue = $FFFFFFFF;
tomUndefined = $FF676981;
tomToggle = $FF676982;
tomAutoColor = $FF676983;
tomDefault = $FF676984;
tomSuspend = $FF676985;
tomResume = $FF676986;
tomApplyNow = $00000000;
tomApplyLater = $00000001;
tomTrackParms = $00000002;
tomCacheParms = $00000003;
tomApplyTmp = $00000004;
tomBackward = $C0000001;
tomForward = $3FFFFFFF;
tomMove = $00000000;
tomExtend = $00000001;
tomNoSelection = $00000000;
tomSelectionIP = $00000001;
tomSelectionNormal = $00000002;
tomSelectionFrame = $00000003;
tomSelectionColumn = $00000004;
tomSelectionRow = $00000005;
tomSelectionBlock = $00000006;
tomSelectionInlineShape = $00000007;
tomSelectionShape = $00000008;
tomSelStartActive = $00000001;
tomSelAtEOL = $00000002;
tomSelOvertype = $00000004;
tomSelActive = $00000008;
tomSelReplace = $00000010;
tomEnd = $00000000;
tomStart = $00000020;
tomCollapseEnd = $00000000;
tomCollapseStart = $00000001;
tomClientCoord = $00000100;
tomAllowOffClient = $00000200;
tomNone = $00000000;
tomSingle = $00000001;
tomWords = $00000002;
tomDouble = $00000003;
tomDotted = $00000004;
tomDash = $00000005;
tomDashDot = $00000006;
tomDashDotDot = $00000007;
tomWave = $00000008;
tomThick = $00000009;
tomHair = $0000000A;
tomDoubleWave = $0000000B;
tomHeavyWave = $0000000C;
tomLongDash = $0000000D;
tomThickDash = $0000000E;
tomThickDashDot = $0000000F;
tomThickDashDotDot = $00000010;
tomThickDotted = $00000011;
tomThickLongDash = $00000012;
tomLineSpaceSingle = $00000000;
tomLineSpace1pt5 = $00000001;
tomLineSpaceDouble = $00000002;
tomLineSpaceAtLeast = $00000003;
tomLineSpaceExactly = $00000004;
tomLineSpaceMultiple = $00000005;
tomAlignLeft = $00000000;
tomAlignCenter = $00000001;
tomAlignRight = $00000002;
tomAlignJustify = $00000003;
tomAlignDecimal = $00000003;
tomAlignBar = $00000004;
tomAlignInterWord = $00000003;
tomAlignInterLetter = $00000004;
tomAlignScaled = $00000005;
tomAlignGlyphs = $00000006;
tomAlignSnapGrid = $00000007;
tomSpaces = $00000000;
tomDots = $00000001;
tomDashes = $00000002;
tomLines = $00000003;
tomThickLines = $00000004;
tomEquals = $00000005;
tomTabBack = $FFFFFFFD;
tomTabNext = $FFFFFFFE;
tomTabHere = $FFFFFFFF;
tomListNone = $00000000;
tomListBullet = $00000001;
tomListNumberAsArabic = $00000002;
tomListNumberAsLCLetter = $00000003;
tomListNumberAsUCLetter = $00000004;
tomListNumberAsLCRoman = $00000005;
tomListNumberAsUCRoman = $00000006;
tomListNumberAsSequence = $00000007;
tomListParentheses = $00010000;
tomListPeriod = $00020000;
tomListPlain = $00030000;
tomCharacter = $00000001;
tomWord = $00000002;
tomSentence = $00000003;
tomParagraph = $00000004;
tomLine = $00000005;
tomStory = $00000006;
tomScreen = $00000007;
tomSection = $00000008;
tomColumn = $00000009;
tomRow = $0000000A;
tomWindow = $0000000B;
tomCell = $0000000C;
tomCharFormat = $0000000D;
tomParaFormat = $0000000E;
tomTable = $0000000F;
tomObject = $00000010;
tomPage = $00000011;
tomMatchWord = $00000002;
tomMatchCase = $00000004;
tomMatchPattern = $00000008;
tomUnknownStory = $00000000;
tomMainTextStory = $00000001;
tomFootnotesStory = $00000002;
tomEndnotesStory = $00000003;
tomCommentsStory = $00000004;
tomTextFrameStory = $00000005;
tomEvenPagesHeaderStory = $00000006;
tomPrimaryHeaderStory = $00000007;
tomEvenPagesFooterStory = $00000008;
tomPrimaryFooterStory = $00000009;
tomFirstPageHeaderStory = $0000000A;
tomFirstPageFooterStory = $0000000B;
tomNoAnimation = $00000000;
tomLasVegasLights = $00000001;
tomBlinkingBackground = $00000002;
tomSparkleText = $00000003;
tomMarchingBlackAnts = $00000004;
tomMarchingRedAnts = $00000005;
tomShimmer = $00000006;
tomWipeDown = $00000007;
tomWipeRight = $00000008;
tomAnimationMax = $00000008;
tomLowerCase = $00000000;
tomUpperCase = $00000001;
tomTitleCase = $00000002;
tomSentenceCase = $00000004;
tomToggleCase = $00000005;
tomReadOnly = $00000100;
tomShareDenyRead = $00000200;
tomShareDenyWrite = $00000400;
tomPasteFile = $00001000;
tomCreateNew = $00000010;
tomCreateAlways = $00000020;
tomOpenExisting = $00000030;
tomOpenAlways = $00000040;
tomTruncateExisting = $00000050;
tomRTF = $00000001;
tomText = $00000002;
tomHTML = $00000003;
tomWordDocument = $00000004;
tomBold = $80000001;
tomItalic = $80000002;
tomUnderline = $80000004;
tomStrikeout = $80000008;
tomProtected = $80000010;
tomLink = $80000020;
tomSmallCaps = $80000040;
tomAllCaps = $80000080;
tomHidden = $80000100;
tomOutline = $80000200;
tomShadow = $80000400;
tomEmboss = $80000800;
tomImprint = $80001000;
tomDisabled = $80002000;
tomRevised = $80004000;
tomNormalCaret = $00000000;
tomKoreanBlockCaret = $00000001;
tomIncludeInset = $00000001;
tomIgnoreCurrentFont = $00000000;
tomMatchFontCharset = $00000001;
tomMatchFontSignature = $00000002;
tomCharset = $80000000;
tomRE10Mode = $00000001;
tomUseAtFont = $00000002;
tomTextFlowMask = $0000000C;
tomTextFlowES = $00000000;
tomTextFlowSW = $00000004;
tomTextFlowWN = $00000008;
tomTextFlowNE = $0000000C;
tomUsePassword = $00000010;
tomNoIME = $00080000;
tomSelfIME = $00040000;
type
// *********************************************************************//
// Forward-Deklaration von in der Typbibliothek definierten Typen
// *********************************************************************//
ITextDocument = interface;
ITextDocumentDisp = dispinterface;
ITextRange = interface;
ITextRangeDisp = dispinterface;
ITextSelection = interface;
ITextSelectionDisp = dispinterface;
ITextFont = interface;
ITextFontDisp = dispinterface;
ITextPara = interface;
ITextParaDisp = dispinterface;
ITextStoryRanges = interface;
ITextStoryRangesDisp = dispinterface;
ITextDocument2 = interface;
ITextDocument2Disp = dispinterface;
ITextMsgFilter = interface;
// *********************************************************************//
// Deklaration von Strukturen, Unions und Aliasen.
// *********************************************************************//
wireHWND = ^_RemotableHandle;
POleVariant1 = ^OleVariant; {*}
PInteger1 = ^Integer; {*}
tomConstants = __MIDL___MIDL_itf_tom_0000_0001;
__MIDL_IWinTypes_0009 = record
case Integer of
0: (hInproc: Integer);
1: (hRemote: Integer);
end;
_RemotableHandle = packed record
fContext: Integer;
u: __MIDL_IWinTypes_0009;
end;
// *********************************************************************//
// Interface: ITextDocument
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C0-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextDocument = interface(IDispatch)
['{8CC497C0-A1DF-11CE-8098-00AA0047BE5D}']
function Get_Name: WideString; safecall;
function Get_Selection: ITextSelection; safecall;
function Get_StoryCount: Integer; safecall;
function Get_StoryRanges: ITextStoryRanges; safecall;
function Get_Saved: Integer; safecall;
procedure Set_Saved(pValue: Integer); safecall;
function Get_DefaultTabStop: Single; safecall;
procedure Set_DefaultTabStop(pValue: Single); safecall;
procedure New; safecall;
procedure Open(var pVar: OleVariant; Flags: Integer; CodePage: Integer); safecall;
procedure Save(var pVar: OleVariant; Flags: Integer; CodePage: Integer); safecall;
function Freeze: Integer; safecall;
function Unfreeze: Integer; safecall;
procedure BeginEditCollection; safecall;
procedure EndEditCollection; safecall;
function Undo(Count: Integer): Integer; safecall;
function Redo(Count: Integer): Integer; safecall;
function Range(cp1: Integer; cp2: Integer): ITextRange; safecall;
function RangeFromPoint(x: Integer; y: Integer): ITextRange; safecall;
property Name: WideString read Get_Name;
property Selection: ITextSelection read Get_Selection;
property StoryCount: Integer read Get_StoryCount;
property StoryRanges: ITextStoryRanges read Get_StoryRanges;
property Saved: Integer read Get_Saved write Set_Saved;
property DefaultTabStop: Single read Get_DefaultTabStop write Set_DefaultTabStop;
end;
// *********************************************************************//
// DispIntf: ITextDocumentDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C0-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextDocumentDisp = dispinterface
['{8CC497C0-A1DF-11CE-8098-00AA0047BE5D}']
property Name: WideString readonly dispid 0;
property Selection: ITextSelection readonly dispid 1;
property StoryCount: Integer readonly dispid 2;
property StoryRanges: ITextStoryRanges readonly dispid 3;
property Saved: Integer dispid 4;
property DefaultTabStop: Single dispid 5;
procedure New; dispid 6;
procedure Open(var pVar: OleVariant; Flags: Integer; CodePage: Integer); dispid 7;
procedure Save(var pVar: OleVariant; Flags: Integer; CodePage: Integer); dispid 8;
function Freeze: Integer; dispid 9;
function Unfreeze: Integer; dispid 10;
procedure BeginEditCollection; dispid 11;
procedure EndEditCollection; dispid 12;
function Undo(Count: Integer): Integer; dispid 13;
function Redo(Count: Integer): Integer; dispid 14;
function Range(cp1: Integer; cp2: Integer): ITextRange; dispid 15;
function RangeFromPoint(x: Integer; y: Integer): ITextRange; dispid 16;
end;
// *********************************************************************//
// Interface: ITextRange
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C2-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextRange = interface(IDispatch)
['{8CC497C2-A1DF-11CE-8098-00AA0047BE5D}']
function Get_Text: WideString; safecall;
procedure Set_Text(const pbstr: WideString); safecall;
function Get_Char: Integer; safecall;
procedure Set_Char(pch: Integer); safecall;
function Get_Duplicate: ITextRange; safecall;
function Get_FormattedText: ITextRange; safecall;
procedure Set_FormattedText(const ppRange: ITextRange); safecall;
function Get_Start: Integer; safecall;
procedure Set_Start(pcpFirst: Integer); safecall;
function Get_End_: Integer; safecall;
procedure Set_End_(pcpLim: Integer); safecall;
function Get_Font: ITextFont; safecall;
procedure Set_Font(const pFont: ITextFont); safecall;
function Get_Para: ITextPara; safecall;
procedure Set_Para(const pPara: ITextPara); safecall;
function Get_StoryLength: Integer; safecall;
function Get_StoryType: Integer; safecall;
procedure Collapse(bStart: Integer); safecall;
function Expand(Unit_: Integer): Integer; safecall;
function GetIndex(Unit_: Integer): Integer; safecall;
procedure SetIndex(Unit_: Integer; Index: Integer; Extend: Integer); safecall;
procedure SetRange(cpActive: Integer; cpOther: Integer); safecall;
function InRange(const pRange: ITextRange): Integer; safecall;
function InStory(const pRange: ITextRange): Integer; safecall;
function IsEqual(const pRange: ITextRange): Integer; safecall;
procedure Select; safecall;
function StartOf(Unit_: Integer; Extend: Integer): Integer; safecall;
function EndOf(Unit_: Integer; Extend: Integer): Integer; safecall;
function Move(Unit_: Integer; Count: Integer): Integer; safecall;
function MoveStart(Unit_: Integer; Count: Integer): Integer; safecall;
function MoveEnd(Unit_: Integer; Count: Integer): Integer; safecall;
function MoveWhile(var Cset: OleVariant; Count: Integer): Integer; safecall;
function MoveStartWhile(var Cset: OleVariant; Count: Integer): Integer; safecall;
function MoveEndWhile(var Cset: OleVariant; Count: Integer): Integer; safecall;
function MoveUntil(var Cset: OleVariant; Count: Integer): Integer; safecall;
function MoveStartUntil(var Cset: OleVariant; Count: Integer): Integer; safecall;
function MoveEndUntil(var Cset: OleVariant; Count: Integer): Integer; safecall;
function FindText(const bstr: WideString; cch: Integer; Flags: Integer): Integer; safecall;
function FindTextStart(const bstr: WideString; cch: Integer; Flags: Integer): Integer; safecall;
function FindTextEnd(const bstr: WideString; cch: Integer; Flags: Integer): Integer; safecall;
function Delete(Unit_: Integer; Count: Integer): Integer; safecall;
procedure Cut(out pVar: OleVariant); safecall;
procedure Copy(out pVar: OleVariant); safecall;
procedure Paste(var pVar: OleVariant; Format: Integer); safecall;
function CanPaste(var pVar: OleVariant; Format: Integer): Integer; safecall;
function CanEdit: Integer; safecall;
procedure ChangeCase(Type_: Integer); safecall;
procedure GetPoint(Type_: Integer; out px: Integer; out py: Integer); safecall;
procedure SetPoint(x: Integer; y: Integer; Type_: Integer; Extend: Integer); safecall;
procedure ScrollIntoView(Value: Integer); safecall;
function GetEmbeddedObject: IUnknown; safecall;
property Text: WideString read Get_Text write Set_Text;
property Char: Integer read Get_Char write Set_Char;
property Duplicate: ITextRange read Get_Duplicate;
property FormattedText: ITextRange read Get_FormattedText write Set_FormattedText;
property Start: Integer read Get_Start write Set_Start;
property End_: Integer read Get_End_ write Set_End_;
property Font: ITextFont read Get_Font write Set_Font;
property Para: ITextPara read Get_Para write Set_Para;
property StoryLength: Integer read Get_StoryLength;
property StoryType: Integer read Get_StoryType;
end;
// *********************************************************************//
// DispIntf: ITextRangeDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C2-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextRangeDisp = dispinterface
['{8CC497C2-A1DF-11CE-8098-00AA0047BE5D}']
property Text: WideString dispid 0;
property Char: Integer dispid 513;
property Duplicate: ITextRange readonly dispid 514;
property FormattedText: ITextRange dispid 515;
property Start: Integer dispid 516;
property End_: Integer dispid 517;
property Font: ITextFont dispid 518;
property Para: ITextPara dispid 519;
property StoryLength: Integer readonly dispid 520;
property StoryType: Integer readonly dispid 521;
procedure Collapse(bStart: Integer); dispid 528;
function Expand(Unit_: Integer): Integer; dispid 529;
function GetIndex(Unit_: Integer): Integer; dispid 530;
procedure SetIndex(Unit_: Integer; Index: Integer; Extend: Integer); dispid 531;
procedure SetRange(cpActive: Integer; cpOther: Integer); dispid 532;
function InRange(const pRange: ITextRange): Integer; dispid 533;
function InStory(const pRange: ITextRange): Integer; dispid 534;
function IsEqual(const pRange: ITextRange): Integer; dispid 535;
procedure Select; dispid 536;
function StartOf(Unit_: Integer; Extend: Integer): Integer; dispid 537;
function EndOf(Unit_: Integer; Extend: Integer): Integer; dispid 544;
function Move(Unit_: Integer; Count: Integer): Integer; dispid 545;
function MoveStart(Unit_: Integer; Count: Integer): Integer; dispid 546;
function MoveEnd(Unit_: Integer; Count: Integer): Integer; dispid 547;
function MoveWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 548;
function MoveStartWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 549;
function MoveEndWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 550;
function MoveUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 551;
function MoveStartUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 552;
function MoveEndUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 553;
function FindText(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 560;
function FindTextStart(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 561;
function FindTextEnd(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 562;
function Delete(Unit_: Integer; Count: Integer): Integer; dispid 563;
procedure Cut(out pVar: OleVariant); dispid 564;
procedure Copy(out pVar: OleVariant); dispid 565;
procedure Paste(var pVar: OleVariant; Format: Integer); dispid 566;
function CanPaste(var pVar: OleVariant; Format: Integer): Integer; dispid 567;
function CanEdit: Integer; dispid 568;
procedure ChangeCase(Type_: Integer); dispid 569;
procedure GetPoint(Type_: Integer; out px: Integer; out py: Integer); dispid 576;
procedure SetPoint(x: Integer; y: Integer; Type_: Integer; Extend: Integer); dispid 577;
procedure ScrollIntoView(Value: Integer); dispid 578;
function GetEmbeddedObject: IUnknown; dispid 579;
end;
// *********************************************************************//
// Interface: ITextSelection
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C1-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextSelection = interface(ITextRange)
['{8CC497C1-A1DF-11CE-8098-00AA0047BE5D}']
function Get_Flags: Integer; safecall;
procedure Set_Flags(pFlags: Integer); safecall;
function Get_type_: Integer; safecall;
function MoveLeft(Unit_: Integer; Count: Integer; Extend: Integer): Integer; safecall;
function MoveRight(Unit_: Integer; Count: Integer; Extend: Integer): Integer; safecall;
function MoveUp(Unit_: Integer; Count: Integer; Extend: Integer): Integer; safecall;
function MoveDown(Unit_: Integer; Count: Integer; Extend: Integer): Integer; safecall;
function HomeKey(Unit_: Integer; Extend: Integer): Integer; safecall;
function EndKey(Unit_: Integer; Extend: Integer): Integer; safecall;
procedure TypeText(const bstr: WideString); safecall;
property Flags: Integer read Get_Flags write Set_Flags;
property type_: Integer read Get_type_;
end;
// *********************************************************************//
// DispIntf: ITextSelectionDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C1-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextSelectionDisp = dispinterface
['{8CC497C1-A1DF-11CE-8098-00AA0047BE5D}']
property Flags: Integer dispid 257;
property type_: Integer readonly dispid 258;
function MoveLeft(Unit_: Integer; Count: Integer; Extend: Integer): Integer; dispid 259;
function MoveRight(Unit_: Integer; Count: Integer; Extend: Integer): Integer; dispid 260;
function MoveUp(Unit_: Integer; Count: Integer; Extend: Integer): Integer; dispid 261;
function MoveDown(Unit_: Integer; Count: Integer; Extend: Integer): Integer; dispid 262;
function HomeKey(Unit_: Integer; Extend: Integer): Integer; dispid 263;
function EndKey(Unit_: Integer; Extend: Integer): Integer; dispid 264;
procedure TypeText(const bstr: WideString); dispid 265;
property Text: WideString dispid 0;
property Char: Integer dispid 513;
property Duplicate: ITextRange readonly dispid 514;
property FormattedText: ITextRange dispid 515;
property Start: Integer dispid 516;
property End_: Integer dispid 517;
property Font: ITextFont dispid 518;
property Para: ITextPara dispid 519;
property StoryLength: Integer readonly dispid 520;
property StoryType: Integer readonly dispid 521;
procedure Collapse(bStart: Integer); dispid 528;
function Expand(Unit_: Integer): Integer; dispid 529;
function GetIndex(Unit_: Integer): Integer; dispid 530;
procedure SetIndex(Unit_: Integer; Index: Integer; Extend: Integer); dispid 531;
procedure SetRange(cpActive: Integer; cpOther: Integer); dispid 532;
function InRange(const pRange: ITextRange): Integer; dispid 533;
function InStory(const pRange: ITextRange): Integer; dispid 534;
function IsEqual(const pRange: ITextRange): Integer; dispid 535;
procedure Select; dispid 536;
function StartOf(Unit_: Integer; Extend: Integer): Integer; dispid 537;
function EndOf(Unit_: Integer; Extend: Integer): Integer; dispid 544;
function Move(Unit_: Integer; Count: Integer): Integer; dispid 545;
function MoveStart(Unit_: Integer; Count: Integer): Integer; dispid 546;
function MoveEnd(Unit_: Integer; Count: Integer): Integer; dispid 547;
function MoveWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 548;
function MoveStartWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 549;
function MoveEndWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 550;
function MoveUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 551;
function MoveStartUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 552;
function MoveEndUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 553;
function FindText(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 560;
function FindTextStart(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 561;
function FindTextEnd(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 562;
function Delete(Unit_: Integer; Count: Integer): Integer; dispid 563;
procedure Cut(out pVar: OleVariant); dispid 564;
procedure Copy(out pVar: OleVariant); dispid 565;
procedure Paste(var pVar: OleVariant; Format: Integer); dispid 566;
function CanPaste(var pVar: OleVariant; Format: Integer): Integer; dispid 567;
function CanEdit: Integer; dispid 568;
procedure ChangeCase(Type_: Integer); dispid 569;
procedure GetPoint(Type_: Integer; out px: Integer; out py: Integer); dispid 576;
procedure SetPoint(x: Integer; y: Integer; Type_: Integer; Extend: Integer); dispid 577;
procedure ScrollIntoView(Value: Integer); dispid 578;
function GetEmbeddedObject: IUnknown; dispid 579;
end;
// *********************************************************************//
// Interface: ITextFont
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C3-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextFont = interface(IDispatch)
['{8CC497C3-A1DF-11CE-8098-00AA0047BE5D}']
function Get_Duplicate: ITextFont; safecall;
procedure Set_Duplicate(const ppFont: ITextFont); safecall;
function CanChange: Integer; safecall;
function IsEqual(const pFont: ITextFont): Integer; safecall;
procedure Reset(Value: Integer); safecall;
function Get_Style: Integer; safecall;
procedure Set_Style(pValue: Integer); safecall;
function Get_AllCaps: Integer; safecall;
procedure Set_AllCaps(pValue: Integer); safecall;
function Get_Animation: Integer; safecall;
procedure Set_Animation(pValue: Integer); safecall;
function Get_BackColor: Integer; safecall;
procedure Set_BackColor(pValue: Integer); safecall;
function Get_Bold: Integer; safecall;
procedure Set_Bold(pValue: Integer); safecall;
function Get_Emboss: Integer; safecall;
procedure Set_Emboss(pValue: Integer); safecall;
function Get_ForeColor: Integer; safecall;
procedure Set_ForeColor(pValue: Integer); safecall;
function Get_Hidden: Integer; safecall;
procedure Set_Hidden(pValue: Integer); safecall;
function Get_Engrave: Integer; safecall;
procedure Set_Engrave(pValue: Integer); safecall;
function Get_Italic: Integer; safecall;
procedure Set_Italic(pValue: Integer); safecall;
function Get_Kerning: Single; safecall;
procedure Set_Kerning(pValue: Single); safecall;
function Get_LanguageID: Integer; safecall;
procedure Set_LanguageID(pValue: Integer); safecall;
function Get_Name: WideString; safecall;
procedure Set_Name(const pbstr: WideString); safecall;
function Get_Outline: Integer; safecall;
procedure Set_Outline(pValue: Integer); safecall;
function Get_Position: Single; safecall;
procedure Set_Position(pValue: Single); safecall;
function Get_Protected_: Integer; safecall;
procedure Set_Protected_(pValue: Integer); safecall;
function Get_Shadow: Integer; safecall;
procedure Set_Shadow(pValue: Integer); safecall;
function Get_Size: Single; safecall;
procedure Set_Size(pValue: Single); safecall;
function Get_SmallCaps: Integer; safecall;
procedure Set_SmallCaps(pValue: Integer); safecall;
function Get_Spacing: Single; safecall;
procedure Set_Spacing(pValue: Single); safecall;
function Get_StrikeThrough: Integer; safecall;
procedure Set_StrikeThrough(pValue: Integer); safecall;
function Get_Subscript: Integer; safecall;
procedure Set_Subscript(pValue: Integer); safecall;
function Get_Superscript: Integer; safecall;
procedure Set_Superscript(pValue: Integer); safecall;
function Get_Underline: Integer; safecall;
procedure Set_Underline(pValue: Integer); safecall;
function Get_Weight: Integer; safecall;
procedure Set_Weight(pValue: Integer); safecall;
property Duplicate: ITextFont read Get_Duplicate write Set_Duplicate;
property Style: Integer read Get_Style write Set_Style;
property AllCaps: Integer read Get_AllCaps write Set_AllCaps;
property Animation: Integer read Get_Animation write Set_Animation;
property BackColor: Integer read Get_BackColor write Set_BackColor;
property Bold: Integer read Get_Bold write Set_Bold;
property Emboss: Integer read Get_Emboss write Set_Emboss;
property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
property Hidden: Integer read Get_Hidden write Set_Hidden;
property Engrave: Integer read Get_Engrave write Set_Engrave;
property Italic: Integer read Get_Italic write Set_Italic;
property Kerning: Single read Get_Kerning write Set_Kerning;
property LanguageID: Integer read Get_LanguageID write Set_LanguageID;
property Name: WideString read Get_Name write Set_Name;
property Outline: Integer read Get_Outline write Set_Outline;
property Position: Single read Get_Position write Set_Position;
property Protected_: Integer read Get_Protected_ write Set_Protected_;
property Shadow: Integer read Get_Shadow write Set_Shadow;
property Size: Single read Get_Size write Set_Size;
property SmallCaps: Integer read Get_SmallCaps write Set_SmallCaps;
property Spacing: Single read Get_Spacing write Set_Spacing;
property StrikeThrough: Integer read Get_StrikeThrough write Set_StrikeThrough;
property Subscript: Integer read Get_Subscript write Set_Subscript;
property Superscript: Integer read Get_Superscript write Set_Superscript;
property Underline: Integer read Get_Underline write Set_Underline;
property Weight: Integer read Get_Weight write Set_Weight;
end;
// *********************************************************************//
// DispIntf: ITextFontDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C3-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextFontDisp = dispinterface
['{8CC497C3-A1DF-11CE-8098-00AA0047BE5D}']
property Duplicate: ITextFont dispid 0;
function CanChange: Integer; dispid 769;
function IsEqual(const pFont: ITextFont): Integer; dispid 770;
procedure Reset(Value: Integer); dispid 771;
property Style: Integer dispid 772;
property AllCaps: Integer dispid 773;
property Animation: Integer dispid 774;
property BackColor: Integer dispid 775;
property Bold: Integer dispid 776;
property Emboss: Integer dispid 777;
property ForeColor: Integer dispid 784;
property Hidden: Integer dispid 785;
property Engrave: Integer dispid 786;
property Italic: Integer dispid 787;
property Kerning: Single dispid 788;
property LanguageID: Integer dispid 789;
property Name: WideString dispid 790;
property Outline: Integer dispid 791;
property Position: Single dispid 792;
property Protected_: Integer dispid 793;
property Shadow: Integer dispid 800;
property Size: Single dispid 801;
property SmallCaps: Integer dispid 802;
property Spacing: Single dispid 803;
property StrikeThrough: Integer dispid 804;
property Subscript: Integer dispid 805;
property Superscript: Integer dispid 806;
property Underline: Integer dispid 807;
property Weight: Integer dispid 808;
end;
// *********************************************************************//
// Interface: ITextPara
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C4-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextPara = interface(IDispatch)
['{8CC497C4-A1DF-11CE-8098-00AA0047BE5D}']
function Get_Duplicate: ITextPara; safecall;
procedure Set_Duplicate(const ppPara: ITextPara); safecall;
function CanChange: Integer; safecall;
function IsEqual(const pPara: ITextPara): Integer; safecall;
procedure Reset(Value: Integer); safecall;
function Get_Style: Integer; safecall;
procedure Set_Style(pValue: Integer); safecall;
function Get_Alignment: Integer; safecall;
procedure Set_Alignment(pValue: Integer); safecall;
function Get_Hyphenation: Integer; safecall;
procedure Set_Hyphenation(pValue: Integer); safecall;
function Get_FirstLineIndent: Single; safecall;
function Get_KeepTogether: Integer; safecall;
procedure Set_KeepTogether(pValue: Integer); safecall;
function Get_KeepWithNext: Integer; safecall;
procedure Set_KeepWithNext(pValue: Integer); safecall;
function Get_LeftIndent: Single; safecall;
function Get_LineSpacing: Single; safecall;
function Get_LineSpacingRule: Integer; safecall;
function Get_ListAlignment: Integer; safecall;
procedure Set_ListAlignment(pValue: Integer); safecall;
function Get_ListLevelIndex: Integer; safecall;
procedure Set_ListLevelIndex(pValue: Integer); safecall;
function Get_ListStart: Integer; safecall;
procedure Set_ListStart(pValue: Integer); safecall;
function Get_ListTab: Single; safecall;
procedure Set_ListTab(pValue: Single); safecall;
function Get_ListType: Integer; safecall;
procedure Set_ListType(pValue: Integer); safecall;
function Get_NoLineNumber: Integer; safecall;
procedure Set_NoLineNumber(pValue: Integer); safecall;
function Get_PageBreakBefore: Integer; safecall;
procedure Set_PageBreakBefore(pValue: Integer); safecall;
function Get_RightIndent: Single; safecall;
procedure Set_RightIndent(pValue: Single); safecall;
procedure SetIndents(StartIndent: Single; LeftIndent: Single; RightIndent: Single); safecall;
procedure SetLineSpacing(LineSpacingRule: Integer; LineSpacing: Single); safecall;
function Get_SpaceAfter: Single; safecall;
procedure Set_SpaceAfter(pValue: Single); safecall;
function Get_SpaceBefore: Single; safecall;
procedure Set_SpaceBefore(pValue: Single); safecall;
function Get_WidowControl: Integer; safecall;
procedure Set_WidowControl(pValue: Integer); safecall;
function Get_TabCount: Integer; safecall;
procedure AddTab(tbPos: Single; tbAlign: Integer; tbLeader: Integer); safecall;
procedure ClearAllTabs; safecall;
procedure DeleteTab(tbPos: Single); safecall;
procedure GetTab(iTab: Integer; out ptbPos: Single; out ptbAlign: Integer;
out ptbLeader: Integer); safecall;
property Duplicate: ITextPara read Get_Duplicate write Set_Duplicate;
property Style: Integer read Get_Style write Set_Style;
property Alignment: Integer read Get_Alignment write Set_Alignment;
property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
property FirstLineIndent: Single read Get_FirstLineIndent;
property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
property LeftIndent: Single read Get_LeftIndent;
property LineSpacing: Single read Get_LineSpacing;
property LineSpacingRule: Integer read Get_LineSpacingRule;
property ListAlignment: Integer read Get_ListAlignment write Set_ListAlignment;
property ListLevelIndex: Integer read Get_ListLevelIndex write Set_ListLevelIndex;
property ListStart: Integer read Get_ListStart write Set_ListStart;
property ListTab: Single read Get_ListTab write Set_ListTab;
property ListType: Integer read Get_ListType write Set_ListType;
property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
property RightIndent: Single read Get_RightIndent write Set_RightIndent;
property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
property TabCount: Integer read Get_TabCount;
end;
// *********************************************************************//
// DispIntf: ITextParaDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C4-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextParaDisp = dispinterface
['{8CC497C4-A1DF-11CE-8098-00AA0047BE5D}']
property Duplicate: ITextPara dispid 0;
function CanChange: Integer; dispid 1025;
function IsEqual(const pPara: ITextPara): Integer; dispid 1026;
procedure Reset(Value: Integer); dispid 1027;
property Style: Integer dispid 1028;
property Alignment: Integer dispid 1029;
property Hyphenation: Integer dispid 1030;
property FirstLineIndent: Single readonly dispid 1031;
property KeepTogether: Integer dispid 1032;
property KeepWithNext: Integer dispid 1033;
property LeftIndent: Single readonly dispid 1040;
property LineSpacing: Single readonly dispid 1041;
property LineSpacingRule: Integer readonly dispid 1042;
property ListAlignment: Integer dispid 1043;
property ListLevelIndex: Integer dispid 1044;
property ListStart: Integer dispid 1045;
property ListTab: Single dispid 1046;
property ListType: Integer dispid 1047;
property NoLineNumber: Integer dispid 1048;
property PageBreakBefore: Integer dispid 1049;
property RightIndent: Single dispid 1056;
procedure SetIndents(StartIndent: Single; LeftIndent: Single; RightIndent: Single); dispid 1057;
procedure SetLineSpacing(LineSpacingRule: Integer; LineSpacing: Single); dispid 1058;
property SpaceAfter: Single dispid 1059;
property SpaceBefore: Single dispid 1060;
property WidowControl: Integer dispid 1061;
property TabCount: Integer readonly dispid 1062;
procedure AddTab(tbPos: Single; tbAlign: Integer; tbLeader: Integer); dispid 1063;
procedure ClearAllTabs; dispid 1064;
procedure DeleteTab(tbPos: Single); dispid 1065;
procedure GetTab(iTab: Integer; out ptbPos: Single; out ptbAlign: Integer;
out ptbLeader: Integer); dispid 1072;
end;
// *********************************************************************//
// Interface: ITextStoryRanges
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C5-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextStoryRanges = interface(IDispatch)
['{8CC497C5-A1DF-11CE-8098-00AA0047BE5D}']
function _NewEnum: IUnknown; safecall;
function Item(Index: Integer): ITextRange; safecall;
function Get_Count: Integer; safecall;
property Count: Integer read Get_Count;
end;
// *********************************************************************//
// DispIntf: ITextStoryRangesDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C5-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextStoryRangesDisp = dispinterface
['{8CC497C5-A1DF-11CE-8098-00AA0047BE5D}']
function _NewEnum: IUnknown; dispid -4;
function Item(Index: Integer): ITextRange; dispid 0;
property Count: Integer readonly dispid 2;
end;
// *********************************************************************//
// Interface: ITextDocument2
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {01C25500-4268-11D1-883A-3C8B00C10000}
// *********************************************************************//
ITextDocument2 = interface(ITextDocument)
['{01C25500-4268-11D1-883A-3C8B00C10000}']
procedure AttachMsgFilter(const pFilter: IUnknown); safecall;
procedure SetEffectColor(Index: Integer; cr: LongWord); safecall;
procedure GetEffectColor(Index: Integer; out pcr: LongWord); safecall;
function Get_CaretType: Integer; safecall;
procedure Set_CaretType(pCaretType: Integer); safecall;
function GetImmContext: Integer; safecall;
procedure ReleaseImmContext(Context: Integer); safecall;
procedure GetPreferredFont(cp: Integer; CodePage: Integer; Option: Integer;
curCodepage: Integer; curFontSize: Integer; out pbstr: WideString;
out pPitchAndFamily: Integer; out pNewFontSize: Integer); safecall;
function Get_NotificationMode: Integer; safecall;
procedure Set_NotificationMode(pMode: Integer); safecall;
procedure GetClientRect(Type_: Integer; out pLeft: Integer; out pTop: Integer;
out pRight: Integer; out pBottom: Integer); safecall;
function Get_SelectionEx: ITextSelection; safecall;
procedure GetWindow(out phWnd: Integer); safecall;
procedure GetFEFlags(out pFlags: Integer); safecall;
procedure UpdateWindow; safecall;
procedure CheckTextLimit(cch: Integer; var pcch: Integer); safecall;
procedure IMEInProgress(Mode: Integer); safecall;
procedure SysBeep; safecall;
procedure Update(Mode: Integer); safecall;
procedure Notify(Notify: Integer); safecall;
function GetDocumentFont: ITextFont; safecall;
function GetDocumentPara: ITextPara; safecall;
function GetCallManager: IUnknown; safecall;
procedure ReleaseCallManager(const pVoid: IUnknown); safecall;
property CaretType: Integer read Get_CaretType write Set_CaretType;
property NotificationMode: Integer read Get_NotificationMode write Set_NotificationMode;
property SelectionEx: ITextSelection read Get_SelectionEx;
end;
// *********************************************************************//
// DispIntf: ITextDocument2Disp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {01C25500-4268-11D1-883A-3C8B00C10000}
// *********************************************************************//
ITextDocument2Disp = dispinterface
['{01C25500-4268-11D1-883A-3C8B00C10000}']
procedure AttachMsgFilter(const pFilter: IUnknown); dispid 21;
procedure SetEffectColor(Index: Integer; cr: LongWord); dispid 22;
procedure GetEffectColor(Index: Integer; out pcr: LongWord); dispid 23;
property CaretType: Integer dispid 24;
function GetImmContext: Integer; dispid 25;
procedure ReleaseImmContext(Context: Integer); dispid 26;
procedure GetPreferredFont(cp: Integer; CodePage: Integer; Option: Integer;
curCodepage: Integer; curFontSize: Integer; out pbstr: WideString;
out pPitchAndFamily: Integer; out pNewFontSize: Integer); dispid 27;
property NotificationMode: Integer dispid 28;
procedure GetClientRect(Type_: Integer; out pLeft: Integer; out pTop: Integer;
out pRight: Integer; out pBottom: Integer); dispid 29;
property SelectionEx: ITextSelection readonly dispid 30;
procedure GetWindow(out phWnd: Integer); dispid 31;
procedure GetFEFlags(out pFlags: Integer); dispid 32;
procedure UpdateWindow; dispid 33;
procedure CheckTextLimit(cch: Integer; var pcch: Integer); dispid 34;
procedure IMEInProgress(Mode: Integer); dispid 35;
procedure SysBeep; dispid 36;
procedure Update(Mode: Integer); dispid 37;
procedure Notify(Notify: Integer); dispid 38;
function GetDocumentFont: ITextFont; dispid 39;
function GetDocumentPara: ITextPara; dispid 40;
function GetCallManager: IUnknown; dispid 41;
procedure ReleaseCallManager(const pVoid: IUnknown); dispid 42;
property Name: WideString readonly dispid 0;
property Selection: ITextSelection readonly dispid 1;
property StoryCount: Integer readonly dispid 2;
property StoryRanges: ITextStoryRanges readonly dispid 3;
property Saved: Integer dispid 4;
property DefaultTabStop: Single dispid 5;
procedure New; dispid 6;
procedure Open(var pVar: OleVariant; Flags: Integer; CodePage: Integer); dispid 7;
procedure Save(var pVar: OleVariant; Flags: Integer; CodePage: Integer); dispid 8;
function Freeze: Integer; dispid 9;
function Unfreeze: Integer; dispid 10;
procedure BeginEditCollection; dispid 11;
procedure EndEditCollection; dispid 12;
function Undo(Count: Integer): Integer; dispid 13;
function Redo(Count: Integer): Integer; dispid 14;
function Range(cp1: Integer; cp2: Integer): ITextRange; dispid 15;
function RangeFromPoint(x: Integer; y: Integer): ITextRange; dispid 16;
end;
// *********************************************************************//
// Interface: ITextMsgFilter
// Flags: (128) NonExtensible
// GUID: {A3787420-4267-11D1-883A-3C8B00C10000}
// *********************************************************************//
ITextMsgFilter = interface(IUnknown)
['{A3787420-4267-11D1-883A-3C8B00C10000}']
function AttachDocument(var hwnd: _RemotableHandle; const pTextDoc: ITextDocument2;
const punk: IUnknown): HResult; stdcall;
function HandleMessage(var pmsg: SYSUINT; var pwparam: SYSUINT; var plparam: Integer;
out plres: Integer): HResult; stdcall;
function AttachMsgFilter(const pMsgFilter: ITextMsgFilter): HResult; stdcall;
end;
implementation
uses ComObj;
end.