аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџАщ‹BаЄ^ $WБ@СvEWН@џйvEWН€"CompObjџџџџˆiOle џџџџџџџџџџџџ‡persist elements"џџџџџџџџџџџџ†џџџџџџџџ§џџџўџџџ !ўџџџўџџџ">$%&'()*+,-./0123456789:;<=ўџџџўџџџ@ABCDEFGHIJKLMNOPQRSTUўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџSfxPreviewџџџџ#Ц4SfxDocumentInfo  џџџџx_SummaryInformation( џџџџџџџџs@BasicManager2џџџџ џџџџr4StarBASICџџџџџџџџ РvEWН`6ЩvEWНSfxWindowsџџџџџџџџџџџџq-DrawingLayer џџџџђSfxStyleSheetsџџџџџџџџџџџџSoSwPageStyleSheets$џџџџ5WStarWriterDocument&џџџџџџџџџџџџ> Standardџџџџџџџџџџџџ?-џџџџџџџџџџџџ  !"#$%&'()*+,-./01234ўџџџ6789:;<=>?@ABCDEFGHIJKLMNOPQRўџџџTUVWXYZ[\]^_`abcdefghijklmnopўџџџўџџџўџџџtuvwўџџџyz{|}~€SW4HDR.$р0GЇ C(364D(BUILD:1085)(SV364)]DAdreпbuchџADRESSEN!Œџџ Frameformatџџ ZeichenformatџџTextformatvorlageStandard  мberschrift Textkіrper  мberschrift 3  мberschrift 1  RahmeninhaltAbsender Internet Link Rahmen GrafikџџRoot 14џџ Rahmen1 15џџ DrawObject 16џџ DrawObject 17џџ DrawObject 18џџ DrawObject 19џџ DrawObj 20џџ DrawObj 21џџ DrawObj 22џџ StarOffice 23Standard  Abbildung Tabelle Textd 7П01 џџj9 stardiv.dicџb standard.dicџ michi.dicџ4FN1 T#$ўџDemo FortschrittsanzeigeT$ўџ Diese Demonstration zeigt, wie ein lфngerer Prozess mittels Fortschrittsanzeige auf verschiedene Arten benutzerfreundlicher gestaltet werden kann. Die Demo selber tut nicht viel, ausser Zeit verbraten, Zahlen von 0 bis 500 durchzфhlen und den Fortschritt anzeigen. T*$ўџFortschrittsanzeige im DokumentT˜$ўџџSA @A}0lr: џџScAP§iAВPNЉTН$ўџџ џS A @A@№. AG0o<:ўџџџS-A PAPA PAG0o<:ўџџџS-A PAP(џџџA PTs$ўџџS A @A@№. AG0o<:ўџџџS-A PAPA PTё$ўџ(Aktueller Zфhler: џ Vergangene Zeit: џS0APŽ€A@ї. AG0o<:ўџџџS-A PAP(џџџA PAG0'o<:ўџџџS-A PAP(џџџA P'T$ўџџS,A PA @A@ї. AG0o<:ўџџџS-A PAPA PAP>єџџA PAP€РРР€џџџџџџAHPU€€€€APf€€€€T2$ўџ'Fortschrittsanzeige in separatem DialogTb$ўџџSA @AG0o<:ўџџџS-A PAPA PT $ўџiTˆ$ ўџ4Letzte Фnderung: џ Copyright Љ1998 by Michael Hergerlі: џџSчAPЭAP<d<dd<A1PN(G../images/sologo.gifA PAPxAP<A PANPX*http://www.stardivision.de/_topCreated using StarOffice!A0 A38 &4mailto:mherger@jo-sac.chџџџџwџџ#J–‘BHL-660BHL-660LPT1:winspoolBHL-660ˆ@ TРЈў |pc XXA4/‹ яаД/‹ оШр ˜рH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ''''zUвЏU88M,Т/?џџDащ7M,Т/UxД]+Z.P€Т–UxД]+Z.?ўџ и‡]+hи‡h]+Яx]+Wи‡7]+:№]+JиТЇ‡q]+: x]+Т ЩІ—UрG §о UVVыЬ ?>єџџр иЅ‡UVVы=иЇ‡UV“ыxыЅиЇ‡UVАыUыNиЇ‡UVыxыЅuttoи‡Ћ]+:№]+JиЇ‡х]+x]+Ѕи‡]+•x]+и‡—]+•x]+иЇ‡,]+Вx]+: С-ŸUьЭ?<xЧ‡Э§ZSW4HDR.$р0GЇ !Œџџ Frameformatџџ ZeichenformatџџTextformatvorlageStandard  мberschrift Textkіrper  мberschrift 3  мberschrift 1  RahmeninhaltAbsender Internet Link Rahmen GrafikџџRoot 14џџ Rahmen1 15џџ DrawObject 16џџ DrawObject 17џџ DrawObject 18џџ DrawObject 19џџ DrawObj 20џџ DrawObj 21џџ DrawObj 22џџ StarOffice 23Standard  Abbildung Tabelle TextqкЈStandardStandardd #'##0.00 CCC#ћџ'љџ##0ћџ.њџ00ћџ џџCCC$ TT.MM.JJJJTT.џџMM.џџJJJJˆStandardStandardd  #.##0,00 CCC#ћџ.љџ##0ћџ,њџ00ћџ џџCCCЌ TT.MM.JJJJTT.џџMM.џџJJJJ'StandardStandardd(' #'##0.00 CCC#ћџ'љџ##0ћџ.њџ00ћџ џџCCC4' TT.MM.JJJJTT.џџMM.џџJJJJџџџџB$jŠ~jŠ~jŠ~PЗpА Уџџ299 SAAP.ХAAPndnddnAPndndSAAP.ХAAPndnddnAPndndZџџSSWG, A<  #$%&'()*./0123456789:;<=>?@ABCDGHK  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFQRSTUŒ~0 —!'@sX'@ ArialX'"@ЧdBsXX' @ъX'@ X'@(X@'1!@UrdrddrXA'2:@“rdrd№dxddxdXXX&7S;$@ЧXX8S<&@љXX9S=&@+XX('@9@tUXR'D@“X.X†ЅФуV†Иъ/’PU$' '(l. и. D . А. . ˆ. є. `#. Ь'. 8,. Є0. 5. |9. ш=. 6') 2ќ G Internet Link Internet Link@џџ!''ЩRahmenRahmen@џџ1@'2A';7S<8S=9S>>џџ@(' ЩGrafikGrafik@џџ;7S<8S=9S>>џџ ЩStandardStandard@џџЩ мberschriftStandard мberschrift@џџ''2A'DR' Щ TextkіrperStandard Textkіrper@џџ2A'Щ мberschrift 3 мberschrift мberschrift 3@џџ''  мberschrift 1 мberschrift мberschrift 1@џџ''  Rahmeninhalt Textkіrper Rahmeninhalt@џџ ЩAbsenderStandardAbsender@џџ 'ЩRЏњ(|О \œ+2,max,688;748;100;568;568;11908;12793;0;0,144‘Standard LIBIMBEDDED LIBIMBEDDEDўџр…ŸђљOhЋ‘+'Гй0 h t € Œ ˜ЄМдрьј15@€—wі@˜ўJ@€Ю“vEWН@€FЩ$hVНMichael HergerMichael HergerџџOXOutdevItemPool 1шшщъыьэюя№ёђѓєѕіїјљњћќ§   ш)шщъыьэюя№ёљњћќ§ў     &'()*+,-./06789:;UVWXYZ[\]шcшщъыьэюя№ёђѓєѕіїјљњћќ§ўџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstшtшщъыьэюя№ёђѓєѕіїјљњћќ§ўџ      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdef”•–—˜™š›œžŸ Ёdюь 0O P]оEditEngineItemPoolЄ ŸЏŸЁЂЃЄЅІЇЈЉЊЋЌ­БВГŸГŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАВГДДžŸ ЁЂЃЄЅІЇЉЊЋЌ­ЎЏАБВГДЕ6f 01 P?DrMd Ї  JoeMl0#р0дRщ$р0LЇ $р06; џџ №DrLy HellDrLy HeavenDrPg § aaџџћ VCControls  -Щ0!v пп@[XXуу @yфф @цц@ГStandardXщщ “@:DocWithProgressDocModalDocStartDocCount DocCancelDocTimer DocStartDlgXX#X1X?XMX\Xjъъ @lыы @‚ээ @˜юю@ИXX№№ @жёёF@ѓ6&&-XXXX&X.ђђ^@v. RЕ ФIXXXX&X.X6X>ѓѓ:@Шz‹ qHXXXX&єє:@%ЅXXXX&ѕѕ @4іі@OXїї@nXјј!@› MS Sans SerifXљљ@Н Xњњ@мXћћ@ћXќќ@ X§§ @5 ўўž@Ч *Fortschrittsbalken in Statuszeile anzeigenSanduhr anzeigen Demo starten Abbrechen00:00:000XX>XTXfXuXƒџџ @ѕ  @ @& X@F X##Н@ 'Standard.ProgressDocDemo.EnableDocModalStandard.ProgressDocDemo.Main*Standard.ProgressDocDemo.DocCancel_ClickedStandard.ProgressDlgDemo.MainXX;X^XŽ$$ @) %% @? 88 @U ;;@f  progress.sdw'Standard.ProgressDocDemo.EnableDocModal progress.sdwStandard.ProgressDocDemo.Main progress.sdw*Standard.ProgressDocDemo.DocCancel_Clicked progress.sdwStandard.ProgressDlgDemo.MainXXQXŠXа6LbŠ)?Uk“ЉћeЋё&Er”ГвђВШо§цќ( P –JoeMM,Т/DrML DrOb ЌSDVC&6 ЏЋ 6 vaццщщёёђђѓѓєєііїїјјљљњњћћќќўўпп##;;DrOb  SDVC&&Е Ай & jaццщщююёёђђѓѓєєііїїјјљљњњћћќќўўппDrOb  SDVC&ѓRcіѓRjaццщщююёёђђѓѓєєііїїјјљљњњћћўў##;;DrOb  SDVC&ѓФchѓФjaццщщююёёђђѓѓєєііїїјјљљњњћћўў##;;DrOb šSDVC&-t$-пdaццщщёёђђѓѓєєііїїјјљљњњћћќќўўDrOb šSDVC&-.tK-daццщщёёђђѓѓєєііїїјјљљњњћћќќўўDrOb  SDVC&&I–э&Ijaццщщююёёђђѓѓєєііїїјјљљњњћћўў##;;DrXXDControlsgg,$StandardDrXXMD‚ƒ„…ўџџџўџџџўџџџ‰ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџSfxDocumentInfoMichael Herger #р0RcщMichael Herger $р0&Ї  uKє Info 0 Info 1 Info 2 Info 3 #р0И<щa$<88„.љ1 SVGDI*Ш.ХA с Ш§џџШ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ88„.љ1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџNџџџџџџArialB NџџџџџџMS Sans Serif NџџџџџџArialB  1П Demo FortschrittsanzeigeNџџџџџџTimes New Roman№ NџџџџџџArialB NџџџџџџTimes New Roman№  "П­{ Diese Demonstration zeigt, wie ein lфngerer Prozess mittels Fortschrittsanzeige auf verschiedene Arten benutzerfreundlicher gestaltet werden kann. Die Demo selber tut nicht viel, ausser Zeit verbraten, Zahlen von 0 bis 500 durchzфhlen und den Fortschritt anzeigen. "ПЪ|v Diese Demonstration zeigt, wie ein lфngerer Prozess mittels Fortschrittsanzeige auf verschiedene Arten benutzerfreundlicher gestaltet werden kann. Die Demo selber tut nicht viel, ausser Zeit verbraten, Zahlen von 0 bis 500 durchzфhlen und den Fortschritt anzeigen. "Пчѓ Diese Demonstration zeigt, wie ein lфngerer Prozess mittels Fortschrittsanzeige auf verschiedene Arten benutzerfreundlicher gestaltet werden kann. Die Demo selber tut nicht viel, ausser Zeit verbraten, Zahlen von 0 bis 500 durchzфhlen und den Fortschritt anzeigen. "ж ч Diese Demonstration zeigt, wie ein lфngerer Prozess mittels Fortschrittsanzeige auf verschiedene Arten benutzerfreundlicher gestaltet werden kann. Die Demo selber tut nicht viel, ausser Zeit verbraten, Zahlen von 0 bis 500 durchzфhlen und den Fortschritt anzeigen. NџџџџџџArial NџџџџџџTimes New Roman№ NџџџџџџArial  8П! Fortschrittsanzeige im DokumentРРРџџџџџџчM t Лџџџџџџџџџџџџ€€€џџџџџџHУЮ | Џ Ю ЛџџџџџџџџџџџџNџџџџџџTimes New Roman№  AEп(Aktueller Zфhler: џ Vergangene Zeit: џ AE(Aktueller Zфhler: џ Vergangene Zeit: џџџџџџџ9u uчM чОw M w ОчM w M чОw ОџџџџџџџџџџџџNџџџџџџTimes New Roman№ NџџџџџџArial  @П•''Fortschrittsanzeige in separatem DialogNџџџџџџTimes New Roman№ NџџџџџџArial NџџџџџџTimes New Roman№  M q4Letzte Фnderung: џ Copyright Љ1998 by Michael Herger M…q4Letzte Фnderung: џ Copyright Љ1998 by Michael Herger !Сq24.03.98 M Ž 4Letzte Фnderung: џ Copyright Љ1998 by Michael Herger MБŽ %4Letzte Фnderung: џ Copyright Љ1998 by Michael HergerN€џџџџџџTimes New Roman№ NџџџџџџTimes New Roman№ N€џџџџџџTimes New Roman№  MэŽ &4Letzte Фnderung: џ Copyright Љ1998 by Michael Herger88„.љ1РРРџџџџџџ;š ГЈ ;š ГЈ (€џџ€џџ88„.љ1џџџџџџџџџџџџ;š ГЈ NРРРArialУNРРРArialУNРРРArialУРРРџџџџџџџџџџџџџџџџџџ(€џџ€џџ88„.љ1N€џџџџџџTimes New Roman№ 88„.љ1РРРџџџџџџ+З Зд +З Зд (€џџ€џџ88„.љ1џџџџџџџџџџџџ+З Зд NРРРArialУNРРРArialУNРРРArialУРРРџџџџџџџџџџџџџџџџџџ(€џџ€џџ88„.љ1N€џџџџџџTimes New Roman№ 88„.љ1РРРџџџџџџьL\№ьL\№РРРћ[M[ћ[ћсџџџџџџьL\LьLь№MсћсMсM[€€€\№ь№\№\LџџџџџџџџџџџџNџџџџџџArialУNџџџџџџArialУNџџџџџџArialУРРРџџџџџџџџџџџџџџџџџџN€џџџџџџTimes New Roman№ (€џџ€џџ88„.љ188„.љ1РРРџџџџџџьП\cьП\cРРРћЮMЮћЮћTџџџџџџьП\ПьПьcMTћTMTMЮ€€€\cьc\c\ПџџџџџџџџџџџџNџџџџџџArialУNџџџџџџArialУNџџџџџџArialУРРРџџџџџџџџџџџџџџџџџџN€џџџџџџTimes New Roman№ (€џџ€џџ88„.љ188„.љ1РРРџџџџџџ2 w*џџџџџџџџџџџџA+Y NРРРArialУРРРџџџџџџџџџџџџџџџџџџN€џџџџџџTimes New Roman№ (€џџ€џџ88„.љ188„.љ1РРРџџџџџџ2*wGџџџџџџџџџџџџAHY)NРРРArialУРРРџџџџџџџџџџџџџџџџџџN€џџџџџџTimes New Roman№ (€џџ€џџ88„.љ188„.љ1РРРџџџџџџ(P˜є(P˜єРРР7_‰_7_7хџџџџџџ(P˜P(P(є‰х7х‰х‰_€€€˜є(є˜є˜PџџџџџџџџџџџџNџџџџџџArialУNџџџџџџArialУNџџџџџџArialУРРРџџџџџџџџџџџџџџџџџџN€џџџџџџTimes New Roman№ (€џџ€џџ88„.љ1џџџџџџџџџџџџџџџџџџџџџџџџьИЋ ьЭBMF6(c$џџџfЬ™™™ffЬЬЬ™™™™Ьџ™33™ЬЬf™Ьџџџ™3ЬџџЬ™fЬЬџЬ™ЬЬf™џЬ™џЬЬf3f3fff33333f3ff™f™3ff™™џfff3       Й  ЪпдЉкНI О@НМJM                                                            џџџџџџџџџџџџџџџџџџџџџџџџўџ џџџџАщ‹BаЄ^ $WБTextStarWriter 4.0soffice.StarWriterDocument.4є9ВqSBX sb №,џ Standard StarBASICSBX ARSBX AR SBX AR‡CV euџ ProgressDialogDialogѓ aџџS  VCControls  Ы! 04 нн@єXщщ п@ ЗLabel3DlgWithProgressProgressDialogDlgModalLabel2 FrameControl1Label4 DlgCancelDlgTimer  DlgCounter DlgStartXXX/XCXQX]XpX|X‹X™XЉъъ @љыы @ьь @%ээ @;юю@VXяя.@ˆXXX№№ @Њёё ‚@ јЄ,x№ Д ` шXXXX&X.X6X>XFXNXVђђ j@ŽД,”АЄptXXXXX&X.X6X>XFѓѓ v@ yEЙ eEЭ  MXXXX&X.X6X>XFXNєєF@ni-ёIXXXX&X.ѕѕ @˜іі@Г Xїї@в Xјј@ђ Xљљ@ Xњњ@3 Xћћ@R Xќќ @l§§ @‚ўў @ … &Demo startenFortschritts-Anzeige &Abbrechen Fortschritt:es langsam von 0 bis 100 zфhlt.Aktueller Zфhler:Vergangene Zeit:*Fortschrittsbalken in Statuszeile anzeigen Sanduhr anzeigenXX!X;XKX]X‚X™XЏXЕXхџџ @У v@ !XXXX&X.X6X>XFXN @[ @q @‡ @@ИX @в@№X @  @  @6@RX$$@rX%%ж@D $Standard.ProgressDemo.Cancel_Clicked%Standard.ProgressDlgDemo.StartCounter'Standard.ProgressDlgDemo.EnableDlgModal*Standard.ProgressDlgDemo.DlgCancel_ClickedXXX>XiX–&&@t X''@” X((@Д X))@д X**@є X++@ X,,@4 X--@T X22@t X33@” X44 @Ў 55 @Ф 66@р X;;0@  progress.sdw%Standard.ProgressDlgDemo.StartCounter progress.sdw$Standard.ProgressDemo.Cancel_Clicked progress.sdw'Standard.ProgressDlgDemo.EnableDlgModal progress.sdw*Standard.ProgressDlgDemo.DlgCancel_ClickedXXOXWX—Xк-.DZpЩпmуeЗЭь +Ml‹ЁЗтјzІМвё)?Uk‹Ћ­Ээ - M m  ­ Э у љ  Pў aщщёёђђѓѓєєўў$$%%&&''(())**++,,--223366;;ннSBX AR SBX AR SBX AR1 CV n№џ  CommandButton aщщяяёё ђђѓѓєєііїїјјљљњњћћўў%%&&''(())**++,,--;;SBX AR SBX AR SBX ARCV x­џ  FrameControl^aщщяяёёђђѓѓ єєііїїјјљљњњћћўўSBX AR SBX AR SBX ARCV vІџ Label^aщщяяёёђђѓѓєєііїїјјљљњњћћўўSBX AR SBX AR SBX ARCV vІџ Label^aщщяяёёђђѓѓєєііїїјјљљњњћћўўSBX AR SBX AR SBX ARCV vЌџ Labeldaщщ яяёё ђђѓѓєєііїїјјљљњњћћўўSBX AR SBX AR SBX ARCV vЌџ LabeldaщщяяёёђђѓѓєєііїїјјљљњњћћўўSBX AR SBX AR SBX ARCV pхџ CheckBoxšaщщяяёёђђѓѓ єєііїїјјљљњњћћўў%%&&''(())**++,,--;;SBX AR SBX AR SBX ARCV pЏџ CheckBoxdaщщююяяёёђђѓѓєєііїїјјљљњњћћўў SBX AR SBX AR SBX ARCV nъџ  CommandButtonšaщщ яяёё ђђѓѓєєііїїјјљљњњћћўў%%&&''(())**++,,--;;SBX AR SBX AR SBX ARSBX bm — џ ProgressDemoToolsStarBASICModuleSBX ARHSBX em€Dџ00:00:14 TimeElapsedinit )жSBX em€bџ InitProgress bProgress @bModal @MaxCount@ %SBX em€,џ EndProgressЁSBX em€@џSetProgressValueValue@ tSBX AR SBX ARBMх MNProgressDemoToolsSCџ§Dim myProgress as New Progress Dim bWithProgress as Boolean Sub InitProgress(bProgress as Boolean, bModal as Boolean, MaxCount&) bWithProgress = bProgress If bWithProgress Then myProgress.Start("Ich zфhle...", MaxCount&, bModal, bModal, ) End If End Sub Sub SetProgressValue(Value&) If bWithProgress Then myProgress.Value = Value& End If End Sub Sub EndProgress If bWithProgress Then myProgress.Stop() End If End Sub ' "lokal globale Variable": muss Aufruf ќberleben Dim StartTime as Long Function TimeElapsed(ByVal init as Boolean) as String Dim currentTime, Hours, Min, Sec as Long if init then StartTime = Timer TimeString$ = "00:00:00" else currentTime = Timer - StartTime Min = Fix(currentTime / 60) Sec = Fix(currentTime Mod 60) Hours = Fix(currentTime / 3600) Min = Min Mod 60 TimeString$ = Right("00" + Hours, 2) TimeString$ = TimeString$ + ":" + Right("00" + Min, 2) TimeString$ = TimeString$ + ":" + Right("00" + Sec, 2) end if TimeElapsed = TimeString$ End Function PC%E‡Š  Œ‡Š EЩ‡‡ ƒ ‡ Gn‡ Aƒƒ ƒ ‚ € ‡ +‡ ‡  G›‡  ‚ ƒ‡+‡‡ GУ‡ ‚ ‡+‡ŠE$‡‡‰ ‰ ‰ ‰‡ƒ G"‡€‡AE‡ €‡   B<€€‡! B<€€‡"  B€€‡#  B<‡$A B€€‡%AA B€€‡&AAB€€‡(ƒ‡)++STv "/9@IV\afkp‡“˜ЂЎГПХЩЭгочыюєіProgressmyProgressbWithProgressInitProgressbProgressbModalMaxCountIch zфhle...StartPAR2PAR3PAR4PAR5SetProgressValueValueEndProgressStopStartTimeTimeElapsedinitcurrentTimeHoursMinSecTimerTimeString00:00:00Fix00Right:SBX bm \џ ProgressDlgDemoStarBASICModuleSBX ARщSBX em€%џMain SBX em€-џ StartCounter #cSBX em€/џEnableDlgModal%'ZSBX em€2џDlgCancel_Clicked)+SBX AR SBX ARBM  MNProgressDlgDemoSCЅЃDim MaxCount& Dim bCancelled as Boolean Sub Main MaxCount& = 500 ' Flag fќr den Abbruch bCancelled = False ProgressDialog.Show() ProgressDialog.Unload() End Sub Sub StartCounter Dim Counter% ProgressDialog.CurrentStep = 2 InitProgress(DlgWithProgress.Value, DlgModal.Value, MaxCount&) TimeElapsed(True) For Counter% = 1 To MaxCount& DlgTimer.Caption = TimeElapsed(False) DlgCounter.Caption = Counter% SetProgressValue(Counter%) If bCancelled Then Exit For End If Next EndProgress() ProgressDialog.Hide() End Sub Sub EnableDlgModal DlgModal.Enabled = (DlgWithProgress.Value) End Sub Sub DlgCancel_Clicked bCancelled = True End Sub PC›E‡Š‡Š Eš‡‡Bє‡ € ‡  ‚ ‡  ‚ ‡ +‡ ‡‰ ‡ ‚ B‡ ‚  ‚ €‡€ €‡ BB%K9‡ ‚ € €‡ ‚  ‡ €‡ G0‡E9‡&Eе‡!‡" ‚ ‡#+‡%‡& ‚  ‚ ‡'+‡)‡* € ‡+++ST‚ .3:GO[kqz‡Œ‘–›ЇАИУдрхєќMaxCountbCancelledMainFalseProgressDialogShowUnloadStartCounterCounterCurrentStepDlgWithProgressValueDlgModalInitProgressPAR2PAR3PAR4TrueTimeElapsedDlgTimerCaptionDlgCounterSetProgressValueEndProgressHideEnableDlgModalEnabledDlgCancel_ClickedSBX bm џ ProgressDocDemoStarBASICModuleSBX ARАSBX em€%џMain$SBX em€2џDocCancel_Clicked*,‘SBX em€/џEnableDocModal&(lSBX AR SBX ARBMь MNProgressDocDemoSCЌЊDim MaxCount& Dim bCancelled as Boolean Sub Main Dim Counter% MaxCount& = 500 DocStart.Enabled = False ' Flag fќr den Abbruch bCancelled = False InitProgress(DocWithProgress.Value, DocModal.Value, MaxCount&) TimeElapsed(True) DocCancel.Enabled = True and not DocWithProgress.Value For Counter% = 1 To MaxCount& DocTimer.Caption = TimeElapsed(False) DocCount.Caption = Counter% SetProgressValue(Counter%) If bCancelled Then Exit For End If Next DocCancel.Enabled = False EndProgress() DocStart.Enabled = True End Sub Sub EnableDocModal DocModal.Enabled = (DocWithProgress.Value) End Sub Sub DocCancel_Clicked bCancelled = True End Sub PC­E‡Š‡Š EЌ‡‡‰‡Bє‡  ‚ € ‡  € ‡ ‚  ‚  €‡€ €‡ ‚ €  ‚ ‡BB%K1‡ ‚ € €‡ ‚ ‡€‡ G(‡E1‡&EЭ‡ ‚ € ‡!‡# ‚ € ‡$+‡&‡' ‚  ‚ ‡(+‡*‡+ € ‡,++STJ !*28HNWdinsx„Ž—ŸЈЙХдцMaxCountbCancelledMainCounterDocStartEnabledFalseDocWithProgressValueDocModalInitProgressPAR2PAR3PAR4TrueTimeElapsedDocCancelDocTimerCaptionDocCountSetProgressValueEndProgressEnableDocModalDocCancel_Clicked2c%bqq