' ___________________________________________________________________________
' |*************************************************************************|
' |*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|
' |*| Set TAB to 4 for best readable file layout.  |*|  Maxon Basic 3.00  |*|
' |*|______________________________________________|*|____________________|*|
' |*************************************************************************|
' |*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|
' |*|               |*|  $Id: ShowMsgDemo.BAS (18.11.00)                  |*|
' |*| ###### ###### |*|  RhoSigma Source based on NDK 3.1 Includes 40.15  |*|
' |*| ##  ## ##   # |*| _________________________________________________ |*|
' |*| ##  ##  ##    |*|                                                   |*|
' |*| ######   ##   |*|  Demo to show use of extra/ShowMsg() and Macros   |*|
' |*| ##      ##    |*|                                                   |*|
' |*| ##     ##   # |*| ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ |*|
' |*| ##     ###### |*|  Copyright © 1998-2000 RhoSigma, Roland Heyder    |*|
' |*|               |*|  All Rights Reserved.                             |*|
' |*|_______________|*|___________________________________________________|*|
' |*************************************************************************|
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

'$TO		ShowMsgDemoBAS
'$ICONS
'$NOLIBRARY
'$NOWINDOW

'$INCLUDE	settings.bc
'$INCLUDE	extra.bh

DATA "$VER: ShowMsgDemoBAS 1.0 (18.11.00)"

LIBRARY OPEN "extra"

SMTEXT 100,6,"linke Seite",FALSE%		' END-Flag FALSE (kein Ende)
SMTEXT 444,6,"rechte Seite",FALSE% 		' absolute X-Koordinaten
SMTEXT SMTPOS_C%,16,"zentriert",FALSE%	' END-Flag FALSE, zentriert
SMTEXT SMTPOS_C%,26,"Ende",TRUE%		' END-Flag TRUE (Ende), zentriert
ok&=ShowMsg&(SADD(smAlert$),0&,40&,0&)

SMTEXT 112,6,"Oder",FALSE%
SMTEXT 212,6,"alles",FALSE%
SMTEXT 312,6,"in",FALSE%
SMTEXT 412,6,"einer",FALSE%
SMTEXT 512,6,"Zeile !!",TRUE%
ok&=ShowMsg&(SADD(smAlert$),0&,20&,0&)

SMTEXT SMTPOS_C%,6,"Oder",FALSE%
SMTEXT SMTPOS_C%,16,"alles",FALSE%
SMTEXT SMTPOS_C%,26,"zentriert",FALSE%
SMTEXT SMTPOS_C%,36,"!!",TRUE%
ok&=ShowMsg&(SADD(smAlert$),0&,50&,0&)

SMTEXT SMTPOS_L%,6,"linksbündig",FALSE%
SMTEXT SMTPOS_C%,6,"zentriert",FALSE%
SMTEXT SMTPOS_R%,6,"rechtsbündig",FALSE%
SMTEXT 200,16,"absolute X-Pos 200 v.l.",TRUE%
ok&=ShowMsg&(SADD(smAlert$),0&,30&,0&)

OPEN "I",#1,"S:PCD"					' Diese Anwendung sollte man jedoch
y%=6								' mit Vorsicht genießen, da einiges
WHILE NOT EOF(1)					' schiefgehen kann, wenn die Datei
	LINE INPUT #1,l$				' größer als eine Bildschirmseite ist
	SMTEXT SMTPOS_L%,y%,l$,EOF(1)	' oder Zeilen enthält, die breiter
	y%=y%+10						' als 80 Zeichen sind !!
WEND
CLOSE #1
y%=y%+14
ok&=ShowMsg&(SADD(smAlert$),0&,y%,0&)

SMCOLOR 3,12,0,10,FALSE%	' neue Farbtabelle definieren
SMCOLOR 4,9,0,13,FALSE%
SMCOLOR 5,5,0,14,FALSE%
SMCOLOR 6,0,0,15,FALSE%
SMCOLOR 7,0,10,14,FALSE%
SMCOLOR 8,0,14,9,FALSE%
SMCOLOR 9,0,14,0,FALSE%
SMCOLOR 10,5,14,0,FALSE%
SMCOLOR 11,12,15,0,FALSE%
SMCOLOR 12,15,13,0,FALSE%
SMCOLOR 13,15,9,0,FALSE%
SMCOLOR 14,15,4,0,FALSE%
SMCOLOR 15,15,0,0,TRUE%
SMTEXT SMTPOS_C%,5,"Das sieht natürlich alles noch nicht besonders überzeugend aus,",FALSE%
txt1$="aber dies hier ist dann doch ein ganz schöner Unterschied zu der"
txt2$="völlig geschmacklosen Intuition-Routine »DisplayAlert()«, oder ?!"
farb%=4
delta%=-1
FOR x%=1 TO LEN(txt1$)
	SMTEXTP x%*8+56,16,farb%,1,1,STS_Plain%,STM_Outline%,MID$(txt1$,x%,1),FALSE%
	farb%=farb%+delta%
	IF farb%=15 OR farb%=3 THEN delta%=-delta%
NEXT x%
farb%=4
delta%=-1
FOR x%=1 TO LEN(txt2$)
	SMTEXTP x%*8+52,27,15,farb%,farb%,STS_Plain%,STM_Outline%,MID$(txt2$,x%,1),FALSE%
	farb%=farb%+delta%
	IF farb%=15 OR farb%=3 THEN delta%=-delta%
NEXT x%
SMTEXTP SMTPOS_C%,38,10,14,14,STS_Italic% OR STS_Underline%,STM_Shadow%,"So, dies sollte kursiv & unterstrichen sein, sowie einen Schatten haben.",FALSE%
SMTEXTP SMTPOS_C%,49,5,1,1,STS_Plain%,STM_Outline%,"<--- bitte wählen Sie --->",FALSE%
SMTEXTP SMTPOS_L%,49,12,1,1,STS_Bold%,STM_Normal%,"!! SEHR GUT !!",FALSE%
SMTEXT SMTPOS_R%,49,"!! NICHT GUT !!",TRUE%
ok&=ShowMsg&(SADD(smAlert$),0&,63&,SADD(smFarb$))

SMTEXTP	SMTPOS_C%,6,9,11,11,STS_Plain%,STM_Outline%,"extra.library 1.323 - Copyright © 1998-2000 - Roland Heyder",FALSE%
SMTEXTP	SMTPOS_C%,18,9,15,15,STS_Plain%,STM_Outline%,"For registration send DM 10,- or the changed amount in other currencies to:",FALSE%
SMTEXTP	SMTPOS_C%,30,9,13,13,STS_Plain%,STM_Outline%,"Roland Heyder - Oberstadt 44 - 38877 Benneckenstein - Germany",TRUE%
ok&=ShowMsg&(SADD(smAlert$),0&,46&,0&)

LIBRARY CLOSE
END