ࡱ> Root EntryRoot EntryB^$WpGXbEX)CompObjiOle persist elements"   !"#$%&'()*+,-./0123SfxDocumentInfo  _SummaryInformation(@BasicManager24StarBASIC 2X=XSfxWindowsLi([(Li "|:LiDrawingLayerxLik!_ SfxStyleSheetsLiELSwPageStyleSheetsLi$؋)wStarWriterDocumentw&  Standard+w  !"#$%&'(*+,-./0123456789:;<=>?@ABCDFGHIJKLMNOPQRSTUVWXYZ[\]^`abcdefghijklmnopqrstuvwxyz{|}~SW4HDR.&0C(364D(BUILD:1085)(SV364)]DAdrebuchADRESSEN!) Frameformat ZeichenformatTextformatvorlageStandard Textkrper  berschrift  berschrift 3Absender2Betont5 Quelltext Internet Link GrafikRoot 13 Grafik1 14 DrawObject 15 DrawObj 16 StarOffice 17Standard  Abbildung Tabelle Textd d01 j) stardiv.dicZ standard.dic^FNA T?GUI-unabhngige DialogeSAPw TDie folgenden beiden Dialoge haben keinerlei Funktionalitt. Sie dienen lediglich dazu, die Optimierung eines Dialoges auf ein Betriebssystem oder auf GUI-Unabhngigkeit zu demonstrieren.wTE+Der erste Dialog wurde speziell auf meinem Windows 95 System auf schn getrimmt. Da darin Schriften verwendet werden, welche nicht auf jedem Rechner installiert sind, wird wohl schon dieser Aufruf nicht ganz optimale Resultate liefern... Der Screenshot zeigt das optimierte Original zum Vergleich.w TSA @A0l: SrAPA0PN'Gimages/w95opt95.gifAPAP A PTSSA @A80o-:SA PA PT TDer zweite Dialog hingegen ist auf GUI-Unabhngigkeit optimiert. Er sollte im Gegensatz zu obigem Beispiel auf jedem System zu ansehnlichen Ergebnissen fhren.w#&#TSSA @A80o-:SA PA PT(SAPA PT T4Letzte nderung: Copyright 1998 by Michael HergerSA Pl: 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#4#.JU U88y-)?Dб7y-)Ux,(P^Ux,(? ,JJ,U,:,x,WVn,gx,:U. ? . H,Lx,!,x,,x,:h ,Lx,",x, I$,x, %,x,: -UB)?<xZࡱ> SW4HDR.&0!) Frameformat ZeichenformatTextformatvorlageStandard Textkrper  berschrift  berschrift 3Absender2Betont5 Quelltext Internet Link GrafikRoot 13 Grafik1 14 DrawObject 15 DrawObj 16 StarOffice 17Standard  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'J@ Courier NewTimes New RomanStandardXX$'@dX' @ X'@)X'@HXA'2*@zdxdddXX7S;@X8S<@X9S=@XR'D@X.9\P$' '(l. . D . . . . . `#. '. 8,. 0. 5. |9. =. 6')z2l (BetontBetont '2 Quelltext Quelltext'5 Internet Link Internet Link@!''GrafikGrafik@;7S<8S=9S>> StandardStandard@ TextkrperStandard Textkrper@2A' berschriftStandard berschrift@''2A'DR'  berschrift 3 berschrift berschrift 3@' AbsenderStandardAbsender@ '>t1sࡱ> OXOutdevItemPool 1   )     &'()*+,-./06789:;UVWXYZ[\]c !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstt      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefd 0O P]EditEngineItemPool 6f 01 P?DrMd >4JoeMl00\X&0&0 DrLy HellDrLy HeavenDrPg aa VCControls  -0Y  @Q @g@StandardX:@CommandButton2CommandButton1XX" @ @ @ @- @C@aX"@9#XX@PX@X @@X@'X!@T MS Sans SerifX@v X@X@XR@GUI-unabhngiger DialogWindows 95 optimierter DialogXX+##b@|&Standard.DlgHandler.ShowIndependantDlgStandard.DlgHandler.ShowW95DlgXX:%% @88 @;;@Q gui.sdw&Standard.DlgHandler.ShowIndependantDlg Plattformunabhngiger Dialog.sdwStandard.DlgHandler.ShowW95DlgXXK$:b8f+MlWm P jJoeMy-)DrML DrOb SDVC&9 9da##;;DrOb SDVC&# %#da##;;DrXXDControlsgg,$StandardDrXXMDࡱ> 62,44/44/595/442,688;748;100;568;3328;12208;11263;0;0,0ࡱ44Standard LIBIMBEDDED LIBIMBEDDEDࡱOh+'0 h t 92@,r@J@QdX@aPMichael HergerMichael HergerSfxDocumentInfoMichael Herger 0| Michael Herger &04 uK Info 0 Info 1 Info 2 Info 3 0` \<ࡱ> 8 /+ ࡱ> ࡱ>  B^$WTextStarWriter 4.0soffice.StarWriterDocument.49qࡱSBX sb + Standard StarBASICSBX ARSBX AR SBX AR%CV eS W95DlgDialog a  VCControls  Y 09<  @ @ PreviewLabel3Label1 OptionButton1CommandButton1Preview1Label2W95Dlg FrameControl1  OptionButton2XXX'X3XFXZXhXtXX@X@X @@1X@PX@rX @R@ P  XXXX&X.X6 @ XD 4  t L \ XXXX&X.X6X>XFXNXVX^ v@ A S1  ]  5 XXXX&X.X6X>XFXN^@Tii- XXXX&X.X6X>@X@X@XX<@ MS Sans SerifZapfHumnst Ult BTXX!.@O XXX@vX@X*@XX@X [@ 8Beispiel-AutoPilot#Herzlich willkommen zu dieser Demo! Weiter >>&Dieser Beispiel-Dialog tut nur so, als$Ja, ich will alle Demos installieren(tte er irgendwas. Aber dies tut er gut.Ja, tu endlich etwas!Nee, ich kann das eh schon... InstallationsoptionenXX&XOX^XXXXX @wX j@XXXX&X.X6X>XF@ X @&@AX   @[ @q @ @@X @ @ @ @  @*  @@ $$@\ X%%@| X&&@ X''@ X((@ X))@ X**@ X++@< X,,@\ X--@| X22@ X33@ X44 @ 55 @ 66@ X77W@g Standard.Modul1.RePaint"Standard.DlgHandler.W95Dlg_OnPaintXX+99 @ ;;@4  Plattformunabhngiger Dialog.sdwStandard.Modul1.RePaint Plattformunabhngiger Dialog.sdw"Standard.DlgHandler.W95Dlg_OnPaintXXU$<Rr'C^ 2.Mc%;Qg} = ] }  ) I P. a$$%%&&''(())**++,,--223366SBX AR SBX AR SBX ARCV v Label^aSBX AR SBX AR SBX ARCV n  CommandButtonda  SBX AR SBX AR SBX ARCV  Previewa$$%%&&''(())**++,,--6677;;SBX AR SBX AR SBX ARCV v Label^aSBX AR SBX AR SBX ARCV v Label^a SBX AR SBX AR SBX ARCV x  FrameControl^a SBX AR SBX AR SBX ARCV t  OptionButtondaSBX AR SBX AR SBX ARCV t  OptionButton^a  SBX AR SBX AR SBX ARCV e1 IndependantDlgDialog aa  VCControls  */ 05@SX @ PreviewCommandButton1Label2Label1Label3 FrameControl1 OptionButton1 OptionButton2 IndependantDlgXXX/X;XGXSXfXyX@AX@aX@X@X@X@ X@XR@K  @ XXXX&X.X6 j@  TXXXX&X.X6X>XF^@'pES] 1 A XXXX&X.X6X>j@i --XXXX&X.X6X>XF@X@XX@#XX+@Z MS Sans SerifXX!.@  XXX@ X@ X @ @ -@ Weiter >>&Dieser Beispiel-Dialog tut nur so, als#Herzlich willkommen zu dieser Demo!Beispiel-AutoPilot(tte er irgendwas. Aber dies tut er gut.InstallationsoptionenJa, tu endlich etwas!Nee, ich kann das eh schon...XXXIXrXXXX@ZXj@XXXX&X.X6X>XF@X @ @$X@CX@gXX @ @ @ @ @ @$$@X%%@/X&&@OX''@oX((@X))@X**@X++@X,,@X--@/X22@OX33@oX44 @55 @66@X77>@*Standard.DlgHandler.IndependantDlg_OnPaintX;;t@ Plattformunabhngiger Dialog.sdw*Standard.DlgHandler.IndependantDlg_OnPaintXX-;[{98r4E[q )Ii ) I _ u Pka $$%%&&''(())**++,,--223366SBX AR SBX AR SBX ARCV n  CommandButtondaSBX AR SBX AR SBX ARCV  Previewa$$%%&&''(())**++,,--6677;;SBX AR SBX AR SBX ARCV v Label^aSBX AR SBX AR SBX ARCV v Label^aSBX AR SBX AR SBX ARCV v Label^aSBX AR SBX AR SBX ARCV x  FrameControl^aSBX AR SBX AR SBX ARCV t  OptionButtondaSBX AR SBX AR SBX ARCV t  OptionButton^aSBX AR SBX AR SBX ARSBX bm   DlgHandlerStarBASICModuleSBX AR \SBX em+ ShowW95DlgSBX em/W95Dlg_OnPaint .SBX em7IndependantDlg_OnPaintSBX em3ShowIndependantDlgvSBX emV%I:\HOMES\herger\basic\os\urlcheck.bmpGetPicturePath"' SBX AR SBX ARBM MN  DlgHandlerSC' Fr Windows95 optimierter Dialog Sub ShowW95Dlg W95Dlg.Show() W95Dlg.Unload() End Sub Sub W95Dlg_OnPaint Dim Bitmap As Object Set Bitmap = LoadPicture (GetPicturePath$()) W95Dlg.Preview.DrawPicture(Bitmap) End Sub '************************************************************ ' Fr GUI-Unabhngigkeit optimierter Dialog Sub ShowIndependantDlg ' SD-Bibliothek "tools.sbl" fr PaintPicOnPreview() laden Application.LoadLibrary("tools") IndependantDlg.Show() IndependantDlg.Unload() Application.LoadLibrary("tools") End Sub Sub IndependantDlg_OnPaint PaintPicOnPreview(IndependantDlg.Preview, GetPicturePath$(), 136, 194, False) End Sub '************************************************************ ' Den vollen Pfad und Dateinamen der Abbildung bestimmen Function GetPicturePath$ Dim CurrentDir$ CurrentDir$ = ActiveDocument.FullName CurrentDir$ = Left(CurrentDir$, InStr(CurrentDir$, "gui.sdw") - 1) GetPicturePath$ = CurrentDir$ + "urlcheck.bmp" End Function2c%bqqࡱ>