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
|
'encoding UTF-8 Do not remove or change this line!
'*******************************************************************************
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* Copyright 2000, 2010 Oracle and/or its affiliates.
*
* OpenOffice.org - a multi-platform office productivity suite
*
* This file is part of OpenOffice.org.
*
* OpenOffice.org is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License version 3
* only, as published by the Free Software Foundation.
*
* OpenOffice.org is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License version 3 for more details
* (a copy is included in the LICENSE file that accompanied this code).
*
* You should have received a copy of the GNU Lesser General Public License
* version 3 along with OpenOffice.org. If not, see
* <http://www.openoffice.org/license.html>
* for a copy of the LGPLv3 License.
*
'/******************************************************************************
'*
'* owner : helge.delfs@sun.com
'*
'* short description : Tools for writer tests.
'*
'\******************************************************************************
sub wOfficeRestart
hFileCloseAll()
' Close the backing windows
FileExit "SynchronMode", TRUE
Call hStartTheOffice
end sub
'--------------------------------------------------------------
' end of temporaly functions
'--------------------------------------------------------------
function LiberalMeasurement ( sShould$, sActual$) as Boolean
'/// Input : (1. Should, 2. Actual) as Number with or without MeasurementUnit 'NumericField' as String ///'
'///+ if input has no MeasurementUnit i take it as 'cm' (was the default in old tests) ///'
'///+ Output: Boolean are they likely the same?
'/// NEEDED: mathematical proofment of iTolerance, by now just some guesses :-| ///'
'/// reason for this function:///'
'///+ because SO counts internaly in 'twip┤s' 'twentieth of a point' there are some rounding errors ///'
'///+ there are also some rounding errors because of the internal representatio of floating point numbers in computers ///'
'///+ now lets try to get rid of them and have a nicer output in tests... ///'
dim iTolerance as Double
LiberalMeasurement = False ' worst case
if (sShould$ = sActual$) then
LiberalMeasurement = True
else
' check if measunit is the same !!
if (GetMeasUnit(sShould$) <> GetMeasUnit(sActual$) ) then
warnlog "in function LiberalMeasurement the measUnit is different, compare not possible yet :-("
else
' set factor for liberality ;-)
iTolerance = 0.04
if ( (StrToDouble(sShould$) + iTolerance) >= StrToDouble(sActual$) ) AND ((StrToDouble ( sShould$ ) - iTolerance) <= StrToDouble ( sActual$ )) then
LiberalMeasurement = True
else
LiberalMeasurement = False
end if
end if
end if
end function
'--------------------------------------------------------------
function GetMeasUnit ( sWert$ ) as String
'/// Input : Number with or without MeasurementUnit 'NumericField' as String ///'
'///+ Output: Initials of MeasurementUnit as String or "" when only a number ///'
'/// first lets check, if there is a number -> no unit there ///
if isNumeric (right (sWert$, 1)) then
GetMeasUnit = ""
else
'/// the only single character is '"' all others are two chars ///
if ( StrComp (right (sWert$, 1), chr$(34) ) = 0 ) then
GetMeasUnit = right (sWert$, 1)
else
GetMeasUnit = right (sWert$, 2)
end if
end if
end function
'--------------------------------------------------------------
function StrToDouble ( sWert$ ) as Double
Dim sDummy$, test
dim i, i1, i2 as integer
dim a as integer
dim b as integer
dim c as double
dim n as integer
'/// Input : {'a[. ,]b[mm cm " pi pt]' with a, b as integer} as String ///'
'///+ Output: a[. , ]b as double ///'
' get rid of measure unit, the only single character is '"' all others are two chars
' there was a problem, if there is NO meas.unit!!!
if Len(sWert$) > Len(mUnit) then
test = Left$(sWert$, (len(sWert$) - Len(mUnit)))
StrToDouble = cDbl(rtrim(test))
exit function
if (isNumeric (sWert$) = FALSE) then
if ( StrComp (right (sWert$, 1), chr$(34) ) = 0 ) then
sDummy$ = Left$ ( sWert$, Len(sWert$)-1 )
else
sDummy$ = Left$ ( sWert$, Len(sWert$)-2 )
end if
else
sDummy$ = sWert$
end if
' get position of fraction mark
i1 = instr (sDummy$, ",") ' wrong output
i2 = instr (sDummy$, ".")
if i1 > i2 then i = i1 else i = i2
' vorkommateil
try
a = val (left$ (sDummy$,i-1))
catch
endcatch
n = (len (sDummy$)-i)
b = val (right$ (sDummy$, n) )
c = b * 10 ^ -n
StrToDouble = a + c
else
StrToDouble = 0
end if
end function
'--------------------------------------------------------------
function wKillUpcomingActives(optional sDocument as string)
' primary used in import/export tests
'/// to get any aktive killed & print the content of the aktive ///'
' to catch errors during loading document
Kontext "Active"
if Active.Exists then
if Strcomp(Left(Active.GetText,42),"Saving in external formats may have caused") = 0 then
printlog "info loss, messg!! OK??"
end if
try
Active.Yes
catch
printLog Active.GetText
endcatch
sleep(2)
Kontext "Active"
if Active.Exists then
if IsMissing(sDocument) then
Warnlog "(1/2): " + Active.GetText ' Changed from Warn to print.
else
Select case sDocument
Case "sw31.sdw", "sw31.vor"
warnlog "Saving sdw-file as sxw fails"
Case else
Warnlog Active.Gettext
end select
end if
try
Active.Ok ' Read Error
catch
Active.No ' Style is different ...
endcatch
end if
end if
' catching style after read error :-)
sleep(2)
Kontext "Active"
if Active.Exists then
WarnLog "(2/2): "+Active.GetText
try
Active.No ' Style is different ...
catch
Active.Ok ' maybe...
endcatch
end if
end function
'--------------------------------------------------------------
function wGetCharacterFont as String
Dim wasAsianLan as boolean
'/// Input : nothing ///'
'///+ Output: Fontname at cursor position as String ///'
FormatCharacter
Kontext
sleep (1)
Active.SetPage TabFont
Kontext "TabFont"
sleep (1)
try
if gAsianSup = True then
wGetCharacterFont = FontWest.GetSelText
else
wGetCharacterFont = Font.GetSelText
end if
TabFont.Cancel
sleep (1)
catch
TabFont.Cancel
wasAsianLan = ActiveDeactivateAsianSupport (True)
FormatCharacter
Kontext
sleep (1)
Active.SetPage TabFont
Kontext "TabFont"
sleep (1)
wGetCharacterFont = FontWest.GetSelText
TabFont.Cancel
sleep (1)
wasAsianLan = ActiveDeactivateAsianSupport (True)
endcatch
end function
'--------------------------------------------------------------
function wGetCharacterFontSize as String
Dim wasAsianLan as boolean
'/// Input : nothing ///'
'///+ Output: FontSize at cursor position as String ///'
FormatCharacter
Kontext
sleep (1)
Active.SetPage TabFont
Kontext "TabFont"
sleep (1)
try
if gAsianSup = True then
wGetCharacterFontSize = SizeWest.GetSelText
else
wGetCharacterFontSize = Size.GetSelText
end if
TabFont.Cancel
sleep (1)
catch
TabFont.Cancel
wasAsianLan = ActiveDeactivateAsianSupport (True)
FormatCharacter
Kontext
sleep (1)
Active.SetPage TabFont
Kontext "TabFont"
sleep (1)
wGetCharacterFontSize = SizeWest.GetSelText
TabFont.Cancel
sleep (1)
wasAsianLan = ActiveDeactivateAsianSupport (True)
endcatch
end function
'--------------------------------------------------------------
function ZeilenHoeheHolen as Double
'/// input: nothing///'
'///+ output: FormatRowHeight as double///'
Dim zWert as Double : Dim Ausgabe$
FormatRowHeight
Wait 100
Kontext "ZellenHoehe"
Ausgabe$ = Hoehe.GetText
zWert = ZahlAusSpinnfield ( Ausgabe$ )
if zWert = 0.01 then
ZeilenHoeheHolen = 0.00
else
ZeilenHoeheHolen = zWert
end if
ZellenHoehe.OK
end function
'--------------------------------------------------------------
sub ZeilenHoeheTesten ( Wert as Double )
'/// input: FormatRowHeight as double///'
'///+ output: warnlog, if not eaqual ///'
'/// LiberalMeasurement enabled///'
Dim zWert as Double
FormatRowHeight
Kontext "ZellenHoehe"
zWert = ZahlAusSpinnfield ( Hoehe.GetText )
if (LiberalMeasurement (Wert, zWert) <> TRUE) then QAErrorlog "#i94556# - Die Zeilenhöhe ist nicht "+ Wert + " sondern "+ zWert + "."
ZellenHoehe.OK
end sub
'--------------------------------------------------------------
function SpaltenBreiteHolen as Double
FormatColumnWidthWriter
Kontext "SpaltenBreite"
SpaltenBreiteHolen = ZahlAusSpinnfield (Breite.GetText )
SpaltenBreite.OK
end function
'--------------------------------------------------------------
sub SpaltenBreiteTesten ( Wert as Double )
Dim zWert as Double
FormatColumnWidthWriter
Kontext "SpaltenBreite"
zWert = ZahlAusSpinnfield ( Breite.GetText )
if Not Wert = zWert then
Warnlog "Die Spaltenbreite ist nicht "+ Wert +" sondern "+ zWert
end if
SpaltenBreite.OK
end sub
'--------------------------------------------------------------
sub SeitenAbstaendeHolen ( ZweiWerte() as Double )
FormatTable
Kontext
Active.SetPage TabTabelle
Kontext "TabTabelle"
ZweiWerte(1) = ZahlAusSpinnfield ( NachLinks.GetText )
ZweiWerte(2) = ZahlAusSpinnfield ( NachRechts.GetText )
TabTabelle.Cancel
end sub
'--------------------------------------------------------------
sub SeitenAbstaendeTesten ( WertLi as Double, WertRe as Double )
'/// liberalMeasurement implemented ///'
Dim zWert1 as Double : Dim zWert2 as Double
FormatTable
Kontext
Active.SetPage TabTabelle
Kontext "TabTabelle"
zWert1 = ZahlAusSpinnfield ( NachLinks.GetText )
zWert2 = ZahlAusSpinnfield ( NachRechts.GetText )
if (LiberalMeasurement (zWert1, WertLi) <> TRUE) then Warnlog "Left distance not " + WertLi + " but " + zWert1
if (LiberalMeasurement (zWert2, WertRe) <> TRUE) then Warnlog "Right distance not " + WertRe + " but " + zWert2
wait 300
TabTabelle.Cancel
end sub
'--------------------------------------------------------------
function ZahlAusSpinnfield ( sWert$ ) as Double
ZahlAusSpinnfield = StrToDouble ( sWert$)
printlog ZahlAusSpinnfield
end function
'--------------------------------------------------------------
sub ZeilenTesten ( Anzahl% )
dim temp(10) as string
Dim i as Integer
Dim Dummy as Integer
Kontext "DocumentWriter"
DocumentWriter.TypeKeys "<Up>", 5 ' Move out of table ????!!!!
for i=2 to Anzahl% +4 ' might work, but if there are some more tables, it doesn't!!
try
Call wTypeKeys "<Down>"
FormatRowHeight 'This is OK; but different evaluation is necessary
Kontext "ZellenHoehe"
ZellenHoehe.Cancel
dummy = i
catch
i = Anzahl% +20
endcatch
next i
if dummy <> Anzahl% then Warnlog "Die Tabelle hat wohl mehr Zeilen als erwartet: soll => "+ Anzahl% +" sind "+ dummy
Kontext "DocumentWriter"
DocumentWriter.TypeKeys "<Up><Left>", 10
end sub
'--------------------------------------------------------------
sub SpaltenTesten ( Anzahl% )
FormatColumnWidthWriter
Kontext "SpaltenBreite"
Spalte.More Anzahl%
if Anzahl% <> Spalte.GetText then Warnlog "Table has mohl column then expected: should => "+ Anzahl% +" is "+ Spalte.GetText
SpaltenBreite.Cancel
end sub
'--------------------------------------------------------------
sub TBOhTabelleEinfuegen (optional tName as string, optional tHeader as boolean, optional tRepeat as boolean, optional tSeperate as boolean, optional tBorder as boolean, optional tWidth as string, optional tHeight as string )
'/// TBOhTabelleEinfuegen ("Garfield",0,1,0,1,"10",tHeight:="7") ///'
' maybe TODO: return of an array, that tells you the state of an existing / name table/ cause, you create a table in a tabl÷e :-)
' try with switching tabpage
InsertTableWriter
Sleep 2
Kontext "TabelleEinfuegenWriter"
wait 500
' Default had been changed. Not to rewrite the whole test I decided to changed the row-number
Spalten.Settext "5"
wait 500
if (IsMissing (tName) <> True) then TabellenName.SetText tName
if (IsMissing (tHeader) <> True) then
if tHeader then
Ueberschrift.Check
if (IsMissing (tRepeat) <> True) then if tRepeat then UeberschriftWiederholen.Check else UeberschriftWiederholen.UnCheck
else
Ueberschrift.UnCheck
end if
end if
if IsMissing (tSeperate) <> True then
if tSeperate then
TabelleNichtTrennen.Check
else
TabelleNichtTrennen.UnCheck
end if
end if
if IsMissing(tBorder) <> True then
if tBorder then
Umrandung.check
else
Umrandung.check
end if
end if
if IsMissing(tWidth) <> True then
Spalten.SetText tWidth
else
Spalten.Settext "5"
end if
if IsMissing(tHeight) <> True then Zeilen.SetText tHeight
TabelleEinfuegenWriter.OK
Sleep 1
Kontext "TableObjectbar"
Sleep 1
if TableObjectbar.NotExists then
Kontext "TextObjectbar"
TextObjectbar.SetNextToolBox
end if
Select Case gApplication
Case "WRITER"
Kontext "DocumentWriter"
Case "MASTERDOCUMENT"
Kontext "DocumentMasterDoc"
Case "HTML"
Kontext "DocumentWriterWeb"
end select
Sleep 1
end sub
'--------------------------------------------------------------
function hGetTableName () as string
hGetTableName = "" ' Worst Case
TableTableProperties ' get into existing table
Sleep (1)
try
Kontext
Active.SetPage TabTabelle
Sleep (1)
Kontext "TabTabelle"
Sleep (1)
hGetTableName = TabellenName.GetText
TabTabelle.Cancel
catch
Kontext "TabelleEinfuegenWriter"
if TabelleEinfuegenWriter.Exists then
hGetTableName = TabellenName.Gettext
TabelleEinfuegenWriter.Ok
else
hGetTableName = ""
end if
endcatch
Sleep (1)
end function
'--------------------------------------------------------------
function dec(Ref as integer)
' ----------------------------------------
' to give this func a var as ref: call without ANNY brackets => 'dec Variable'
' opposite of this to call it via value ! WE DON'T WANT THIS !
' (would be 'dec (Variable)' or in declaration 'function dec (ByVal x)')
Ref = Ref - 1
end function
'--------------------------------------------------------------
function inc(Ref as integer)
'printlog "inc:"+ref
Ref = Ref + 1
end function
'--------------------------------------------------------------
function hGetColumn() as integer
try
FormatColumnWidthWriter
catch
printlog "func1.inc->hGetColumn asks for table."
hTypeKeys "<left>"
try
FormatColumnWidthWriter
catch
print "giving up to find a table: func1 hgetcolumn 2"
endcatch
endcatch
Kontext "SpaltenBreite"
if SpaltenBreite.exists then
hGetColumn = Spalte.GetText
SpaltenBreite.Cancel
else
hGetColumn = 0
end if
end function
'--------------------------------------------------------------
function hNavigatorOpenWindows() as Integer
hNavigatorOpenWindows = 0
goto ENDE
'/// Input: (); Output: 0: for the usual started SO first window / +1 for each other open Window ///'
'///+ -2 if no window is open :-) (i think then there is another problem ...)///'
'///+ this fuunction depends on navigator-fuunction: ///'
'///+ NO nav avail in: Formular; NOT CATCHED UPTONOW ///'
'///+ count classes - only windows in this class are visible in their nav ///'
'///+ Spreadsheet ///'
'///+ Presentation, Drawing///'
'///+ Text Doc, HTML Doc, Labels, Business cards, AND ///'
'///+ !Master Doc! in his nav are no windows countable!; NOT CATCHED UPTONOW ///'
'/// usually it counts 2 windows; 1. the window, that results in starting office ///'
'///+ 2. The entry 'Active Window', is always there (entries in navigator changes automatical ///'
'///+ to the visible window -> 2 this is the minima! ///'
'///+ so i give back a count of x-2 everything below 0 is an error !///'
dim j as integer, WelcherEintrag as integer
' Navigator zur├�?cksetzen
Kontext "NavigatorWriter"
if NavigatorWriter.NotExists then ViewNavigator
sleep (1)
Kontext
do while (Active.Exists)
printlog Active.GetText
try
active.yes ' ....
catch
active.ok ' ...new since 638a5 7001 :-(
endcatch
Kontext
loop
Kontext "NavigatorWriter"
sleep (3)
hNavigatorOpenWindows = DokumentListe.GetItemCount - 2 ' couldn' see dokumentliste :-( reason:: active that prevents it :-(
sleep (3)
' printlog " hnow: "+DokumentListe.GetItemCount +" "+DokumentListe.GetSelText
if (DokumentListe.GetItemCount = 0) then print "waassss o ??!!?!??!?!"
' close Navigator
ViewNavigator
Kontext "DocumentWriter"
ENDE:
end function
'--------------------------------------------------------------
function hIsNamedDocLoaded (ShouldFile as String) as Boolean
'/// Input: name of loaded file; Output: True/False///'
'///+ Several checks may be combined: ///'
'///+ disabled: Plan A: requires clippboard: check, if not untitled 1 window... ///'
'///+ Plan B: SaveAs Dialog ///'
'///+ not used now: Plan C: check if hNavigatorOpenWindows() > 0 ///'
'///' Plan A :-( ///
''///+ to be able to check, that document was loaded, print something before opening new doc ///'
''///+ during test, check if it is readable ... ///'
' Kontext "DocumentWriter"
' DocumentWriter.TypeKeys "<Mod1 home>"
' DocumentWriter.TypeKeys "TBOlastWindow"
' DocumentWriter.TypeKeys "<Return>"
' Kontext "DocumentWriter"
' DocumentWriter.TypeKeys "<Mod1 Home>"
' DocumentWriter.TypeKeys "<Shift End>"
' EditCopy
' DocumentWriter.TypeKeys "<Home>"
' if GetClipboardText <> "TBOlastWindow" Then ///'
'/// ' Plan B :-) ///
'///+' if a doc got loaded, the filename in a 'SaveAs' Dlg is different from "" ///
'///+' usually the file name of the loaded document with an changed extension chosen from SO ///
hIsNamedDocLoaded = False ' Let's start WorstCase :-(
FileSaveAs ' (Plan B)
Kontext "SpeichernDlg"
If DateiOhneExt(DateiExtract(Dateiname.GetSelText)) = DateiOhneExt(DateiExtract(ShouldFile)) Then
hIsNamedDocLoaded = True
' Printlog "Filename: " + Dateiname.GetSelText+"; "+ShouldFile
' Printlog "--------------------------------------------------Loaded as: " + Dateityp.GetSelText
Else
'exception! for templates
if lcase(right(ShouldFile,3)) = "vor" or lcase(right(ShouldFile,3)) = "dot" then hIsNamedDocLoaded = True
End If
SpeichernDlg.Cancel
'/ remove text of last window test text ///'
' Kontext "DocumentWriter"
' DocumentWriter.TypeKeys "<Mod1 home>"
' DocumentWriter.TypeKeys "TBOlastWindow"
' DocumentWriter.TypeKeys "<delete>"
end function
'--------------------------------------------------------------
sub hSetSpellHypLanguage
dim sTrieit
if bAsianLan then
Printlog " to get it to work, ihave to change the default languge in the options! FOR CURRENT DOCUMENT ONLY!!!!!"
ToolsOptions
Call hToolsOptions ("LANGUAGESETTINGS","LANGUAGES")
AktuellesDokument.Check
if glLocale (4) = "" then
warnlog "choose a spellbokk from the list below and insert it into the file <\testtool\input\impress\locale_1.txt> on position (4) (only enabled for asiann languages!) - '"+glLocale(4)+"'"
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.Cancel
sTrieit = hFindSpellHypLanguage
ToolsOptions
Call hToolsOptions ("LANGUAGESETTINGS","LANGUAGES")
AktuellesDokument.Check
if sTrieit <> "" then
Westlich.Select sTrieit
else
warnlog "SOrry no spellbook found :-("
end if
else
Westlich.Select glLocale (4)
end if
printlog "selected: "+Westlich.GetSelText
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
end if
end sub
'--------------------------------------------------------------
sub hFindSpellHypLanguage as string
dim iListLength as integer
dim i as integer
if bAsianLan then
ToolsOptions ' take length of list
Call hToolsOptions ("LANGUAGESETTINGS","WRITINGAIDS")
SprachmoduleBearbeiten.click
Kontext "ModuleBearbeiten"
for i = 1 to Sprache.GetItemCount
Sprache.Select i
sleep 1
Printlog " "+i+": '"+Sprache.GetSelText +"'"
if i = 1 then hFindSpellHypLanguage = Sprache.GetSelText
next i
ModuleBearbeiten.Close
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
sleep 1
end if
end sub
'--------------------------------------------------------------
function wCheckRowHeight ( ShouldValue as string ) as boolean
FormatRowHeight
Kontext "ZellenHoehe"
if Hoehe.Gettext <> ShouldValue then
Warnlog "Height is not " + ShouldValue + " but " + Hoehe.Gettext
wCheckRowHeight = False
else
wCheckRowHeight = True
end if
ZellenHoehe.Cancel
end function
'--------------------------------------------------------------
sub wSearchWriteableArea ()
Dim PageDownNow as boolean, NowWriteable as boolean
Dim i as integer
' This sup has not been properly worked
' Looks complicated but isn't
' Searches for messagebox, if found makes a PageDown in document 5 times
' if writeable then, the moves curors up 1000 times. Hope it helps
' Document is completely writeprotected the sup would loop endless
NowWriteable = False
PageDownNow = True
Do until NowWriteable = True
Call wTypeKeys " "
Kontext "Active"
if Active.Exists then
if Active.GetRT = 304 then
Active.Ok
if PageDownNow = True then
for i = 1 to 10
Call wTypeKeys "<Down>", 5
Call wTypeKeys " "
Kontext "Active"
if Active.Exists then
if Active.GetRT = 304 then
Active.Ok
end if
else
NowWriteable = True
i = 11
end if
next i
else
for i = 1 to 1000
Call wTypeKeys "<Up>", 1
Call wTypeKeys " "
Kontext "Active"
if Active.Exists then
if Active.GetRT = 304 then
Active.Ok
end if
else
NowWriteable = True
i = 1002
end if
next i
end if
else
NowWriteable = True
Exit Do
end if
else
NowWriteable = True
Exit Do
end if
Loop
end sub
'---------------------------------------------------
function fInsertFrame (x1 as Integer , y1 as Integer , x2 as Integer , y2 as Integer)
'This function will insert a frame with the coordinate
Call wDocSetContext
Call hToolbarSelect("INSERT", true )
Sleep 1
Kontext "Insertbar"
Rahmen.Click
Sleep 1
Call gMouseDown ( x1,y1 )
Call gMouseMove ( x1,y1,x2,y2 )
Call gMouseUp( x2,y2 )
wait 500
end function
|