ࡱ> Root EntryRoot EntryB^$W}WMW&CompObjiOle persist elements"  !"#$%&'()*+,-/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSfxPreview"SfxDocumentInfo  _SummaryInformation( @StarBASIC0 PWbEWBasicManager2^^ 4SfxWindowsX @ ,DrawingLayer QV SfxStyleSheetsxy9wSwPageStyleSheets Qb x L$StarWriterDocumentxMwLw&Drawin3StandardI $x|y(0xz.Hhw5wr$o  !"#$%&'()*+,-./012345678:;<=>?@ABCDEFGHIJKLMNOPRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~SW4HDR.$0 <C(364D(BUILD:1085)(SV364)]DAdrebuchADRESSEN! Frameformat ZeichenformatTextformatvorlageStandard Textkrper  berschrift  berschrift 4Absender Internet Link GrafikRoot 11 DrawObj 12 DrawObj 13 StarOffice 14Standard  Abbildung Tabelle Textd2z01 j) stardiv.dicZ standard.dic FNTN$0Mehrseitige Dialoge mit Step und CurrentStepw$ T$Diese Datei enthlt zwei Beispiele mehrseitiger Dialoge. Beim ersten handelt es sich um einen erweiterbaren Dialog, der sich auf Knopfdruck vergrssern lsst (ExtendDlg):w^ Tb$SA @AG0o<: S-A PAP8A PT$lDas zweite Beispiel entspricht dem ersten, wurde aber als eine Art AutoPilot implementiert (AutoPilotDlg):wC ] Tb$SA @AG0o<: S-A PAP8A PT $iT$4Letzte nderung: Copyright 1998 by Michael Hergerl: SAPAP<d<dd<A1PN(G../images/sologo.gifA PAPxAP<A PANPX*http://www.stardivision.de/_topCreated using StarOffice!A0 A38 &4mailto:mherger@jo-sac.chw#.JUPGU88y-?D+7y-Ux,PUx,?,,x,:,ex,%,x,,ex, ,x, ,x,I ,x,:-U? <x ZࡱSW4HDR.$0 <! Frameformat ZeichenformatTextformatvorlageStandard Textkrper  berschrift  berschrift 4Absender Internet Link GrafikRoot 11 DrawObj 12 DrawObj 13 StarOffice 14Standard  Abbildung Tabelle TextqStandardStandardd #'##0.00 CCC#'##0.00 CCC$ TT.MM.JJJJTT.MM.JJJJStandardStandardd #.##0,00 CCC#.##0,00 CCC TT.MM.JJJJTT.MM.JJJJ'StandardStandardd(' #'##0.00 CCC#'##0.00 CCC4' TT.MM.JJJJTT.MM.JJJJB$j~j~j~Pp 2$99 SAAP.AAPndnddnAPndndSAAP.AAPndnddnAPndndZࡱ> SWG, A<  #$%&'()*./0123456789:;<=>?@ABCDGHK  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFQRSTU0 !'@sX'@ ArialX'"@dUXX' @X'@ X'@(XA'2*@ZdxddxdXX7S;@X8S<@X9S=@XR'D@X.X<`P$' '(l. . D . . . . . `#. '. 8,. 0. 5. |9. =. 6')2  Internet Link Internet Link@!''GrafikGrafik@;7S<8S=9S>> StandardStandard@ TextkrperStandard Textkrper@2A' berschriftStandard Textkrper@''2A'DR'  berschrift 4 berschrift Textkrper@' '' AbsenderStandardAbsender@ 'R `ࡱ> OXOutdevItemPool 1   )     &'()*+,-./06789:;UVWXYZ[\]c !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstt      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefd 0O P]EditEngineItemPool 6f 01 P?DrMd JoeMl00$0 <$0!9 DrLy HellDrLy HeavenDrPg eaa VCControls  -]0*  @Q @g@StandardX:@CommandButton1CommandButton2XX" @ @ @ @- @C@aX"@$ XX@ X@X @@X@'X!@T MS Sans SerifX@v X@X@XB@Erweiterbarer DialogAutoPilot-DialogXX(##[@e Standard.HandleAutoPilotDlg.MainStandard.HandleExtendDlg.MainXX4%% @88 @;;@"  dlgstep.sdw Standard.HandleAutoPilotDlg.Main dlgstep.sdwStandard.HandleExtendDlg.MainXXI$:b8f+Ml@Vl P jJoeMy-DrML DrOb SDVC&$ da##;;DrOb SDVC&   da##;;DrXXDControlsgg,$StandardDrXXMDࡱ> *2,max,688;748;100;568;570;12208;6705;0;0,1ࡱ44Standard LIBIMBEDDED LIBIMBEDDEDࡱOh+'0 h t 54@y{ @J@W@0lQMichael HergerMichael HergerSfxDocumentInfoMichael Herger 0QMichael Herger $0; uK Info 0 Info 1 Info 2 Info 3 0ө6<ࡱ> 8:/1 ࡱ> ࡱ>  B^$WTextStarWriter 4.0soffice.StarWriterDocument.49qࡱSVGDI*.A i 88//NArial NMS Sans Serif NArial  I00Mehrseitige Dialoge mit Step und CurrentStepNTimes New Roman NArial NTimes New Roman  S|Diese Datei enthlt zwei Beispiele mehrseitiger Dialoge. Beim ersten handelt es sich um einen erweiterbaren Dialog, der sich auf Knopfdruck vergrssern lsst (ExtendDlg): p}/Diese Datei enthlt zwei Beispiele mehrseitiger Dialoge. Beim ersten handelt es sich um einen erweiterbaren Dialog, der sich auf Knopfdruck vergrssern lsst (ExtendDlg): j llDas zweite Beispiel entspricht dem ersten, wurde aber als eine Art AutoPilot implementiert (AutoPilotDlg):NTimes New Roman NTimes New Roman NTimes New Roman  M 4Letzte nderung: Copyright 1998 by Michael Herger M4Letzte nderung: Copyright 1998 by Michael Herger !24.03.98 M 4Letzte nderung: Copyright 1998 by Michael Herger M%4Letzte nderung: Copyright 1998 by Michael HergerNTimes New Roman NTimes New Roman NTimes New Roman  M&4Letzte nderung: Copyright 1998 by Michael Herger88// &  & 555  && &     5   &NArialNArialNArialNTimes New Roman (88//88// "   "  1 1 1   " "  "     1    " NArialNArialNArialNTimes New Roman (88//BMF6(c$f̙ff33f3̙f̙f̙f3f3fff33333f3fff3fffff3                                                            ࡱ> SBX sb H Standard StarBASICSBX ARSBX AR SBX AR1CV eY  ExtendDlgDialog a;  VCControls  0; @X3@CommandButton2enhancednormal ExtendDlgCommandButton1 FrameControl1Label2Label1Label3 Name Vorname url ForgetIt eMailFamNameCancelCloseXX"X0X<XKX_XrX~XXXXXXXXX @H @^ @t @ @.@XXX @^@> (l DXXXX&X.X6X> @ | h,8 T XXXX&X.X6X>XFXNXVX^ j@Jp )eyXXXX&X.X6X>XFF@ ia  -XXXX&X. @@X@ X@,X@N X@mX@X @ @ 5@  Erweitert >> Normal &<< &Abbrechen &Schliessen&Name, Vorname:Name, Vorname:&eMail-Adresse: Registrierung  Erweitert &>> &Homepage (URL): 2Vergiss obige Daten bitte schnellstmglich wieder!XX X0X@XFXWXlXXXXX@ X@      XXXX&X.X6X>XFXNXVX^XfXn @ @ @@+X@OXX%@http://XX @@X @ @ @  @  @.  @D   @Z !! @p "" @ $$@ X%%@8  Standard.Modul1.Enhanced_ClickedStandard.Modul1.Normal_Clicked&Standard.HandleExtendDlg.Close_ClickedXXX:X^&&@d X''@ X((@ X))@ X**@ X++@ X,,@$ X--@D X.. @^ 22@z X33@ X44 @ 55 @ 66@ X;;@ ausklappender Dialog.sdw Standard.Modul1.Enhanced_Clickedausklappender Dialog.sdwStandard.Modul1.Normal_Clicked dlgstep.sdw&Standard.HandleExtendDlg.Close_ClickedXXX^X-l*. +Jj7V4Ji&<Rh~  " B b  $ P a$$%%&&''(())**++,,--223366SBX AR SBX AR SBX AR8 CV n  CommandButtona %%&&''(())**++,,--;;SBX AR SBX AR SBX ARCV v Label^aSBX AR SBX AR SBX ARCV ~ TextBoxdaSBX AR SBX AR SBX ARCV ~ TextBoxda SBX AR SBX AR SBX ARCV v Label^a SBX AR SBX AR SBX ARCV ~ TextBoxda SBX AR SBX AR SBX ARCV v Label^aSBX AR SBX AR SBX ARCV ~ TextBoxda SBX AR SBX AR SBX ARCV n  CommandButtona  %%&&''(())**++,,--;;SBX AR SBX AR SBX AR CV n  CommandButtona  %%&&''(())**++,,--;;SBX AR SBX AR SBX AR CV x  FrameControl:a SBX AR SBX AR SBX AR CV n  CommandButtona  %%&&''(())**++,,--;;SBX AR SBX AR SBX AR CV p CheckBox^a    SBX AR SBX AR SBX ARCV ec  AutoPilotDlgDialog1 a  VCControls  ._ 0;$@WX@;ForwardCancelLabel5Label1Label2Label3FamNameurl Vorname eMail  AutoPilotDlg Label6 URL2ForgetIteMail2Name2XXX'X-X9XEXQX]XjXsXXXXXXX @ @ @,@Registrierungs-AutoPilotX @.@= XXX @_^@  Dl (XXXX&X.X6X> @ 7xH  XXXX&X.X6X>XFXNXVX^ v@ )pye=XXXX&X.X6X>XFXN:@i-XXXX& @A@\X@XX@X@ X@X@X @ @45@ IName, Vorname: &Weiter >> &Abbrechen&Name, Vorname:&eMail-Adresse:&Homepage (URL):Homepage (URL):eMail-Adresse:  2Vergiss obige Daten bitte schnellstmglich wieder! Registrierungs-AutoPilot (1/2)XX"X2XBXWXlXXXXX@X@*       XXXX&X.X6X>XFXNXVX^XfXnXvX~X @  @  @ @ X@ XX%@!http://XX @:!@X!X @r! @! @! @! @! @!   @!!! @ """ @""$$@>"X%%I@"+Standard.HandleAutoPilotDlg.Forward_ClickedXX?&&@"X''@"X((@"X))@#X**@3#X++@S#X,,@s#X--@#X.. @#22@#X33@#X44 @$55 @$66@5$X;;`@$ dlgstep.sdw+Standard.HandleAutoPilotDlg.Forward_ClickedXXT-Qg}152ZzGf<Rh~ .DZp i ) I i  P%a  $$%%&&''(())**++,,--223366SBX AR SBX AR SBX AR CV n  CommandButtona%%&&''(())**++,,--;;SBX AR SBX AR SBX ARCV v Label^aSBX AR SBX AR SBX ARCV ~ TextBoxdaSBX AR SBX AR SBX ARCV ~ TextBoxda SBX AR SBX AR SBX ARCV v Label^aSBX AR SBX AR SBX ARCV ~ TextBoxda SBX AR SBX AR SBX ARCV v Label^aSBX AR SBX AR SBX ARCV ~ TextBoxda SBX AR SBX AR SBX ARCV n  CommandButtona%%&&''(())**++,,--;;SBX AR SBX AR SBX AR CV v Label^a SBX AR SBX AR SBX AR CV v Label^a SBX AR SBX AR SBX AR CV v Label^a  SBX AR SBX AR SBX AR CV v Label^a  SBX AR SBX AR SBX AR CV v Label^a  SBX AR SBX AR SBX ARCV v Label^a  SBX AR SBX AR SBX ARCV p CheckBox^a  SBX AR SBX AR SBX ARSBX bm  HandleExtendDlgStarBASICModuleSBX ARSBX em%Main SBX em1Enhanced_ClickedSBX em/Normal_Clicked"DSBX em. Close_Clicked SSBX AR SBX ARBM MNHandleExtendDlgSCmkSub Main ' Dialog laden, aber noch nicht anzeigen ExtendDlg.Load() ' Fokus auf erstes Eingabefeld ExtendDlg.FamName.SetFocus() ' ...und auf den Bildschirm damit! ExtendDlg.Show() ExtendDlg.Unload() End Sub Sub Close_Clicked ' Hier knnte man die Dialog-Einstellungen auswerten... If ExtendDlg.ForgetIt.Value Then ' der Anwender hat die erweiterten Einstellungen aktiviert MsgBox("Schade, dass Du mir misstraust... Ich habe Deine Personalien bereits wieder vergessen!", 64, "Schon vergessen!") Else MsgBox(ExtendDlg.Vorname.Text + " " + ExtendDlg.FamName.Text + "!" + Chr$(13) + _ "Obwohl Du mich nicht gebeten hast, Name, URL (" + ExtendDlg.URL.Text + ") und eMail-Adresse (" + ExtendDlg.eMail.Text + _ ") zu vergessen, tue ich es jetzt dennoch. Diesen Wunsch httest Du in den erweiterten Einstellungen vornehmen knnen!", _ 48, "Erweiterte Einstellungen bersehen?") End If ' ... und dann den Dialog schliessen ExtendDlg.Hide() End Sub Sub Enhanced_Clicked ExtendDlg.Height = 3001 ExtendDlg.CurrentStep = 2 End Sub Sub Normal_Clicked ExtendDlg.Height = 2401 ExtendDlg.CurrentStep = 1 End SubPCuE          +  GA B@A  E   A   AB A   A   AB0A   +  B   B+   Ba !  B"+STk%*1?HN!MainExtendDlgLoadFamNameSetFocusShowUnloadClose_ClickedForgetItValueSchade, dass Du mir misstraust... Ich habe Deine Personalien bereits wieder vergessen!Schon vergessen!MsgBoxVornameText !ChrObwohl Du mich nicht gebeten hast, Name, URL (URL) und eMail-Adresse (eMail) zu vergessen, tue ich es jetzt dennoch. Diesen Wunsch httest Du in den erweiterten Einstellungen vornehmen knnen!Erweiterte Einstellungen bersehen?HideEnhanced_ClickedHeightCurrentStepNormal_ClickedSBX bm  HandleAutoPilotDlgStarBASICModuleSBX ARSBX em%Main SBX em0Forward_Clicked SSBX em)CloseDlg%2aSBX em)SetStep2#SBX AR SBX ARBMH  MNHandleAutoPilotDlgSC.,Sub Main ' Dialog laden, aber noch nicht anzeigen AutoPilotDlg.Load() ' Fokus auf erstes Eingabefeld AutoPilotDlg.FamName.SetFocus() ' ...und auf den Bildschirm damit! AutoPilotDlg.Show() AutoPilotDlg.Unload() End Sub Sub Forward_Clicked If AutoPilotDlg.CurrentStep = 1 Then SetStep2() Else CloseDlg() End If End Sub Sub SetStep2 ' Fenstertitel anpassen AutoPilotDlg.Caption = AutoPilotDlg.Tag + " (2/2)" ' Werte aus erster Seite kopieren AutoPilotDlg.Name2.Caption = AutoPilotDlg.FamName.Text + " " + AutoPilotDlg.Vorname.Text AutoPilotDlg.URL2.Caption = AutoPilotDlg.URL.Text AutoPilotDlg.eMail2.Caption = AutoPilotDlg.eMail.Text ' Default-Knopf mit neuem Text versehen AutoPilotDlg.Forward.Caption = "&Beenden" ' Zweite Seite anzeigen AutoPilotDlg.CurrentStep = 2 End Sub Sub CloseDlg ' Hier knnte man die Dialog-Einstellungen auswerten... If AutoPilotDlg.ForgetIt.Value Then ' der Anwender hat die erweiterten Einstellungen aktiviert MsgBox("Schade, dass Du mir misstraust... Ich habe Deine Personalien bereits wieder vergessen!", 64, "Schon vergessen!") Else MsgBox(AutoPilotDlg.Vorname.Text + " " + AutoPilotDlg.FamName.Text + "!" + Chr$(13) + _ "Obwohl Du mich nicht gebeten hast, Name, URL (" + AutoPilotDlg.URL.Text + ") und eMail-Adresse (" + AutoPilotDlg.eMail.Text + _ ") zu vergessen, tue ich es jetzt dennoch. Diesen Wunsch httest Du in den erweiterten Einstellungen vornehmen knnen!", _ 48, "Erweiterte Einstellungen bersehen?") End If ' ... und dann den Dialog schliessen AutoPilotDlg.Hide() End Sub PC!E            +  BG| E +  A     A               A" B#+%'   G)AB@AE +   A   AB A    A!   A"B0A#1 $ 2+ST$(-4DPYbjnu{(/15dzMainAutoPilotDlgLoadFamNameSetFocusShowUnloadForward_ClickedCurrentStepSetStep2CloseDlgCaptionTag (2/2)Name2Text VornameURL2URLeMail2eMailForward&BeendenForgetItValueSchade, dass Du mir misstraust... Ich habe Deine Personalien bereits wieder vergessen!Schon vergessen!MsgBox!ChrObwohl Du mich nicht gebeten hast, Name, URL () und eMail-Adresse () zu vergessen, tue ich es jetzt dennoch. Diesen Wunsch httest Du in den erweiterten Einstellungen vornehmen knnen!Erweiterte Einstellungen bersehen?Hide2c%bqqࡱ>