AMIGA-RESISTANCE

Die Projektseite für alles rund um den Amiga
Aktuelle Zeit: 28 Mär 2024, 16:16

Alle Zeiten sind UTC


 

 

 



Ein neues Thema erstellen  Auf das Thema antworten  [ 7 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Fenster Resizable
BeitragVerfasst: 31 Mär 2009, 07:49 
Offline
Schreiberling

Registriert: 10 Aug 2007, 23:47
Beiträge: 262
SInd eigendlich Fenster in Hollywood 3.1 resizable zu machen, oder geht das mit der Sculib ?


Nach oben
   
 Betreff des Beitrags: Re: Fenster Resizable
BeitragVerfasst: 31 Mär 2009, 14:49 
Offline
Schreiberling
Benutzeravatar

Registriert: 17 Okt 2007, 21:48
Beiträge: 1392
Postleitzahl: 4132
Land: Schweiz
Wohnort: Muttenz
Salli Murmel

Ich hoffe, ich habe Dich richtig verstanden. Du möchtest ein Fenster
in der Grösse verändern :?:

Grundsätzlich ist dies mit dem Preprozessorbefehl @Display möglich.
Da musst Du das Argument Sizeable=True setzen. So erscheint bei
Deinem Fenster der Grösseknopf. Jetzt kannst Du das Fenster
in der Grösse ändern.


Möchtest Du, dass sich die Objekte der neuen Grösse anpassen,
dann gibt es drei Möglichkeiten:

1.
Du berrechnest das mühsam selber. Frag mich einfach nicht, wie
das geht, ich habe keinen blassen Schimmer. :(

2.
Du hast Hollywood 4.0. Da wird auf graphischer Ebene hochgerechnet.
Das Resultat ist meiner Meinung nach bei einem Anwenderprogramm eher
mässig. :|

3.
Du benutzt ScuiLib 6 beta. Schau da mal das Beispiel
T03_LabelsAndButtons(a).hws an. :)

Ich hoffe, Du hast das mit resizable gemeint.

Griessli
Tipsi


Nach oben
   
 Betreff des Beitrags: Re: Fenster Resizable
BeitragVerfasst: 31 Mär 2009, 22:06 
Offline
Schreiberling

Registriert: 10 Aug 2007, 23:47
Beiträge: 262
@Tipsi

Super Danke für den Tip :) Das Sizeable hatte ich übersehen Oo Aber auf Sizeable=True wäre ich wohl so schnell auch nicht gekommen :(

Ich zeichne ein schachbrett per Boxbefehl das ich der Fenstergrösse anpassen will weil ich von Vchess4.1 (Aminet) so angetan bin. Also läuft es auf eigen Berechnungen raus. Im Moment such ich ne Möglichkeit die neue Fenstergrösse zu ermitteln.

Haben eigendlich Aweb und Ibrowse Probleme mit diesem Forum ? Das ist nun mein dritter Versuch zu posten, und geklappt hat es erst mit OWB 1.1 (Mos),


Nach oben
   
 Betreff des Beitrags: Re: Fenster Resizable
BeitragVerfasst: 31 Mär 2009, 22:19 
Offline
Administrator
Benutzeravatar

Registriert: 07 Aug 2005, 19:05
Beiträge: 2134
Postleitzahl: 29640
Land: Deutschland
Wohnort: Schneverdingen
Murmel hat geschrieben:
Haben eigendlich Aweb und Ibrowse Probleme mit diesem Forum ? Das ist nun mein dritter Versuch zu posten, und geklappt hat es erst mit OWB 1.1 (Mos),
Hallo,
zu den Problemen von IB und AWeb gibt es hier ein paar Anmerkungen:
http://www.amiga-resistance.info/phpbb3 ... 749#p13749

Im Allgemeinen hilft es aus ä,ü,ö ae, ue und oe zu machen.

Gruss
novamann

_________________
Teil der Amiga-Community


Nach oben
   
 Betreff des Beitrags: Re: Fenster Resizable
BeitragVerfasst: 01 Apr 2009, 00:46 
Offline
Schreiberling

Registriert: 10 Aug 2007, 23:47
Beiträge: 262
@novaman

Ok das erklärt wohl einiges Thx

Ich poste hier mal den Code eines Schachbrettes das ich an die Fenstergrösse anpassen will. Inzwischen kann ich zwar die neue
Fensterpostionen auslesen, aber Box zeichnet dann die Box mit den neuen Kordinaten nicht neu. Gibt es dafür ne Anweisung das Fenster neu zu zeichnen ? Nicht wundern das ist noch genügend durcheinander weil ich noch teste ;)

Wenn Box auf neue Kordinaten reagieren würde müsste es in der ersten Zeile GFX fehler geben wenn man die Fenstergrösse verändert. Das passiert nicht, also anscheind muss man anweisen den code neu auszuführen.

***UPDATE***

Danke hat sich erledigt. Habe jetzt den Code unten geändert. Im Moment wirden Schachfelder gezeichnet die sich automatisch der FEnstergrösse anpassen. Mal guckn ob das mit den Figuren auch so klappen wird ;)


/****************************************************************
**                                                             **
** Name:                                                       **
** Author:                                                     **
** Description:                                                **
**                                                             **
****************************************************************/

@APPAUTHOR      ""
@APPCOPYRIGHT   ""
@APPDESCRIPTION ""
@APPTITLE       ""
@APPVERSION     "$VER: 1.0 (1.1.2000)"
@VERSION        3,1
;Fenstergrösse constanten
Const #lang=640
Const #hoch=640
ll=80
bb=80
@DISPLAY { Title = "Schach-Gui", X = #CENTER, Y = #CENTER, Width = #lang, Height = #hoch, color = #GRAY, sizeable=True}
;Variablen
Repeat
;Funktion neue Festergrösse
Function p_HandlerFunc(msg)
    Switch (msg.action)
    Case "SizeWindow":
        Print("User hat moved the Windowsize to", msg.height, msg.width)
bb=(msg.height/8)
ll=(msg.width/8)
     EndSwitch
EndFunction

InstallEventHandler({ActiveWindow = p_HandlerFunc, SizeWindow = p_HandlerFunc})
cls
;
; Board zeichnen
;
;Reihe 8
SetFillStyle(#fillcolor)
Box(0,0,ll,bb,#WHITE,5)
Box(ll,0,ll,bb,#BLACK,5)
Box((ll*2),0,ll,bb,#WHITE,5)
Box((ll*3),0,ll,bb,#BLACK,5)
Box((ll*4),0,ll,bb,#WHITE,5)
Box((ll*5),0,ll,bb,#BLACK,5)
Box((ll*6),0,ll,bb,#WHITE,5)
Box((ll*7),0,ll,bb,#BLACK,5)
;Reihe7
SetFillStyle(#fillcolor)
Box(0,bb,ll,bb,#BLACK,5)
Box(ll,bb,ll,bb,#WHITE,5)
Box((ll*2),bb,ll,bb,#BLACK,5)
Box((ll*3),bb,ll,bb,#WHITE,5)
Box((ll*4),bb,ll,bb,#BLACK,5)
Box((ll*5),bb,ll,bb,#WHITE,5)
Box((ll*6),bb,ll,bb,#BLACK,5)
Box((ll*7),bb,ll,bb,#WHITE,5)
;reihe6
SetFillStyle(#fillcolor)
Box(0,(bb*2),ll,bb,#WHITE,5)
Box(ll,(bb*2),ll,bb,#BLACK,5)
Box((ll*2),(bb*2),ll,bb,#WHITE,5)
Box((ll*3),(bb*2),ll,bb,#BLACK,5)
Box((ll*4),(bb*2),ll,bb,#WHITE,5)
Box((ll*5),(bb*2),ll,bb,#BLACK,5)
Box((ll*6),(bb*2),ll,bb,#WHITE,5)
Box((ll*7),(bb*2),ll,bb,#BLACK,5)
;reihe 5
SetFillStyle(#fillcolor)
Box(0,(bb*3),ll,bb,#BLACK,5)
Box(ll,(bb*3),ll,bb,#WHITE,5)
Box((ll*2),(bb*3),ll,bb,#BLACK,5)
Box((ll*3),(bb*3),ll,bb,#WHITE,5)
Box((ll*4),(bb*3),ll,bb,#BLACK,5)
Box((ll*5),(bb*3),ll,bb,#WHITE,5)
Box((ll*6),(bb*3),ll,bb,#BLACK,5)
Box((ll*7),(bb*3),ll,bb,#WHITE,5)
;reihe 4
SetFillStyle(#fillcolor)
Box(0,(bb*4),ll,bb,#WHITE,5)
Box(ll,(bb*4),ll,bb,#BLACK,5)
Box((ll*2),(bb*4),ll,bb,#WHITE,5)
Box((ll*3),(bb*4),ll,bb,#BLACK,5)
Box((ll*4),(bb*4),ll,bb,#WHITE,5)
Box((ll*5),(bb*4),ll,bb,#BLACK,5)
Box((ll*6),(bb*4),ll,bb,#WHITE,5)
Box((ll*7),(bb*4),ll,bb,#BLACK,5)
;reihe3
SetFillStyle(#fillcolor)
Box(0,(bb*5),ll,bb,#BLACK,5)
Box(ll,(bb*5),ll,bb,#WHITE,5)
Box((ll*2),(bb*5),ll,bb,#BLACK,5)
Box((ll*3),(bb*5),ll,bb,#WHITE,5)
Box((ll*4),(bb*5),ll,bb,#BLACK,5)
Box((ll*5),(bb*5),ll,bb,#WHITE,5)
Box((ll*6),(bb*5),ll,bb,#BLACK,5)
Box((ll*7),(bb*5),ll,bb,#WHITE,5)
;reihe2
SetFillStyle(#fillcolor)
Box(0,(bb*6),ll,bb,#WHITE,5)
Box(ll,(bb*6),ll,bb,#BLACK,5)
Box((ll*2),(bb*6),ll,bb,#WHITE,5)
Box((ll*3),(bb*6),ll,bb,#BLACK,5)
Box((ll*4),(bb*6),ll,bb,#WHITE,5)
Box((ll*5),(bb*6),ll,bb,#BLACK,5)
Box((ll*6),(bb*6),ll,bb,#WHITE,5)
Box((ll*7),(bb*6),ll,bb,#BLACK,5)
;reihe1
SetFillStyle(#fillcolor,5)
Box(0,(bb*7),ll,bb,#BLACK,5)
Box(ll,(bb*7),ll,bb,#WHITE,5)
Box((ll*2),(bb*7),ll,bb,#BLACK,5)
Box((ll*3),(bb*7),ll,bb,#WHITE,5)
Box((ll*4),(bb*7),ll,bb,#BLACK,5)
Box((ll*5),(bb*7),ll,bb,#WHITE,5)
Box((ll*6),(bb*7),ll,bb,#BLACK,5)
Box((ll*7),(bb*7),ll,bb,#WHITE,5)



SetFontColor(#RED)
posx=MouseX()
posy=MouseY()
Locate (2,2)
Print (posx, posy)
Locate (2,10)
Print (#lang, #hoch ,Width, Height, ll, bb)

;Wait(50)

; /// "main loop"


    WaitEvent
Forever

; ///



                                                                 



Nach oben
   
 Betreff des Beitrags: Re: Fenster Resizable
BeitragVerfasst: 03 Apr 2009, 13:06 
Offline
Holly-Wooder
Benutzeravatar

Registriert: 01 Feb 2008, 10:47
Beiträge: 355
Postleitzahl: 1109
Land: Deutschland
Wohnort: Dresden
Hi Murmel,

ich war mal so frei und habe Deine Quellcode etwas optimiert. Ich weiß nicht, inwiefern Du das alles selbst noch gemacht hättest, aber ich hatte Lust, mein (Halb)-Wissen aus dem Studium etc. mal zu testen. :-)
In Deiner Version machst Du viele Sachen halt redundant, da Du nahezu alles in die Repeat-Schleife gepackt hast, was aber nicht notwendig ist und Dein Programm u.U. nur unnötig verlangsamt.

Mit der "nachgefügten" @DISPLAY-Direktive bin ich noch etwas unzufrieden, aber ich verstehe, warum Du es so gemacht hast, weswegen ich es erstmal drin gelassen habe. Ich werde aber heute Abend oder so mal meine Variante vorstellen. Sicher auch nicht ideal, aber im Endeffekt vielleicht übersichtlicher!? Geschmackssache ...

So, aber hier erstmal der Code; ich hoffe, er hilft etwas:
/****************************************************************
**                                                             **
** Name:                                                       **
** Author:                                                     **
** Description:                                                **
**                                                             **
****************************************************************/

@APPAUTHOR      ""
@APPCOPYRIGHT   ""
@APPDESCRIPTION ""
@APPTITLE       ""
@APPVERSION     "$VER: 1.0 (1.1.2000)"
@VERSION        3,1
;Fenstergrösse constanten
Const #lang=640
Const #hoch=640
ll=80
bb=80
@DISPLAY { Title = "Schach-Gui", X = #CENTER, Y = #CENTER, Width = #lang, Height = #hoch, color = #GRAY, sizeable=True}
;Variablen


;;; Board zeichnen
Function p_drawBoard()
    ;Reihe 8
    SetFillStyle(#fillcolor)
    Box(0,0,ll,bb,#WHITE,5)
    Box(ll,0,ll,bb,#BLACK,5)
    Box((ll*2),0,ll,bb,#WHITE,5)
    Box((ll*3),0,ll,bb,#BLACK,5)
    Box((ll*4),0,ll,bb,#WHITE,5)
    Box((ll*5),0,ll,bb,#BLACK,5)
    Box((ll*6),0,ll,bb,#WHITE,5)
    Box((ll*7),0,ll,bb,#BLACK,5)

    ;Reihe7
    SetFillStyle(#fillcolor)
    Box(0,bb,ll,bb,#BLACK,5)
    Box(ll,bb,ll,bb,#WHITE,5)
    Box((ll*2),bb,ll,bb,#BLACK,5)
    Box((ll*3),bb,ll,bb,#WHITE,5)
    Box((ll*4),bb,ll,bb,#BLACK,5)
    Box((ll*5),bb,ll,bb,#WHITE,5)
    Box((ll*6),bb,ll,bb,#BLACK,5)
    Box((ll*7),bb,ll,bb,#WHITE,5)

    ;reihe6
    SetFillStyle(#fillcolor)
    Box(0,(bb*2),ll,bb,#WHITE,5)
    Box(ll,(bb*2),ll,bb,#BLACK,5)
    Box((ll*2),(bb*2),ll,bb,#WHITE,5)
    Box((ll*3),(bb*2),ll,bb,#BLACK,5)
    Box((ll*4),(bb*2),ll,bb,#WHITE,5)
    Box((ll*5),(bb*2),ll,bb,#BLACK,5)
    Box((ll*6),(bb*2),ll,bb,#WHITE,5)
    Box((ll*7),(bb*2),ll,bb,#BLACK,5)

    ;reihe 5
    SetFillStyle(#fillcolor)
    Box(0,(bb*3),ll,bb,#BLACK,5)
    Box(ll,(bb*3),ll,bb,#WHITE,5)
    Box((ll*2),(bb*3),ll,bb,#BLACK,5)
    Box((ll*3),(bb*3),ll,bb,#WHITE,5)
    Box((ll*4),(bb*3),ll,bb,#BLACK,5)
    Box((ll*5),(bb*3),ll,bb,#WHITE,5)
    Box((ll*6),(bb*3),ll,bb,#BLACK,5)
    Box((ll*7),(bb*3),ll,bb,#WHITE,5)

    ;reihe 4
    SetFillStyle(#fillcolor)
    Box(0,(bb*4),ll,bb,#WHITE,5)
    Box(ll,(bb*4),ll,bb,#BLACK,5)
    Box((ll*2),(bb*4),ll,bb,#WHITE,5)
    Box((ll*3),(bb*4),ll,bb,#BLACK,5)
    Box((ll*4),(bb*4),ll,bb,#WHITE,5)
    Box((ll*5),(bb*4),ll,bb,#BLACK,5)
    Box((ll*6),(bb*4),ll,bb,#WHITE,5)
    Box((ll*7),(bb*4),ll,bb,#BLACK,5)

    ;reihe3
    SetFillStyle(#fillcolor)
    Box(0,(bb*5),ll,bb,#BLACK,5)
    Box(ll,(bb*5),ll,bb,#WHITE,5)
    Box((ll*2),(bb*5),ll,bb,#BLACK,5)
    Box((ll*3),(bb*5),ll,bb,#WHITE,5)
    Box((ll*4),(bb*5),ll,bb,#BLACK,5)
    Box((ll*5),(bb*5),ll,bb,#WHITE,5)
    Box((ll*6),(bb*5),ll,bb,#BLACK,5)
    Box((ll*7),(bb*5),ll,bb,#WHITE,5)

    ;reihe2
    SetFillStyle(#fillcolor)
    Box(0,(bb*6),ll,bb,#WHITE,5)
    Box(ll,(bb*6),ll,bb,#BLACK,5)
    Box((ll*2),(bb*6),ll,bb,#WHITE,5)
    Box((ll*3),(bb*6),ll,bb,#BLACK,5)
    Box((ll*4),(bb*6),ll,bb,#WHITE,5)
    Box((ll*5),(bb*6),ll,bb,#BLACK,5)
    Box((ll*6),(bb*6),ll,bb,#WHITE,5)
    Box((ll*7),(bb*6),ll,bb,#BLACK,5)

    ;reihe1
    SetFillStyle(#fillcolor,5)
    Box(0,(bb*7),ll,bb,#BLACK,5)
    Box(ll,(bb*7),ll,bb,#WHITE,5)
    Box((ll*2),(bb*7),ll,bb,#BLACK,5)
    Box((ll*3),(bb*7),ll,bb,#WHITE,5)
    Box((ll*4),(bb*7),ll,bb,#BLACK,5)
    Box((ll*5),(bb*7),ll,bb,#WHITE,5)
    Box((ll*6),(bb*7),ll,bb,#BLACK,5)
    Box((ll*7),(bb*7),ll,bb,#WHITE,5)
EndFunction
;;;

;;; Gibt Informationen aus
Function p_drawInfo()
    SetFontColor(#RED)
    posx=MouseX()
    posy=MouseY()
    Locate (2,2)
    Print (posx, posy)
    Locate (2,10)
    Print (#lang, #hoch ,Width, Height, ll, bb)
EndFunction
;;;

;;; Funktion neue Festergrösse
Function p_HandlerFunc(msg)
    Switch (msg.action)
    Case "SizeWindow":
        Print("User hat moved the Windowsize to", msg.height, msg.width)
        bb=(msg.height/8)
        ll=(msg.width/8)

        p_drawBoard() ; zeichne das Brett neu
        p_drawInfo(); gib die Infos aus
     EndSwitch
EndFunction

InstallEventHandler({ActiveWindow = p_HandlerFunc, SizeWindow = p_HandlerFunc})

; einmalig beim ersten Starten ausführen!!!
p_drawBoard() ; zeichne das Brett neu
p_drawInfo(); gib die Infos aus

;;; "main loop"
Repeat
    WaitEvent
Forever
;;;
Ach ja, mir viel durch Deinen Code gleich noch ein Problem mit hw4cubic auf. Von daher, danke fürs aufmerksam machen! :-)

_________________
[ img ]
CD32 + SX1; AmiKit (WinUAE) + OS3.9


Nach oben
   
 Betreff des Beitrags: Re: Fenster Resizable
BeitragVerfasst: 03 Apr 2009, 13:53 
Offline
Schreiberling

Registriert: 10 Aug 2007, 23:47
Beiträge: 262
@Clyde
Danke für Deine Verbesserungen :) Bisher habe ich aber noch gar nicht versucht guten Code zu schreiben :D sondern versuche es nur so hinzubiegen das es funktioniert. Ich habe auch weitergemacht, und die neue Version sieht schon um einiges besser aus.! .. auch wenn der Code Schlecht ist :D

Das ist hier die Version mit einer Fenstergrösse von 680x680. Ich "versuche" grade die erste Figur zu setzen. ALSO NUR TESTCODE. Das Brett passt sich der Grösse des Fenster an. AB einer Breite von über >600 spinnen allerdings die A-H Kordinaten. (Abhilfe schafft hier im Moment nur mit einer Brettgrösse von ca. 1200x980 zu starten) Dann gibts die Probleme nicht mehr.

#lang=1240
#hoch=980
ll=150
bb=110
nu8=60
nu7=920
nu6=90

Was mir noch Probleme bereitet.
-Warum spinnt Locate wenn width>600 kommt ausser beim Start ist das Fenster so gross wie die Auflösung des Screens.
-Das Board kann man stufenlos verkleinern, nur macht es irgendwann keinen Sinn mehr weil die Kordinaten sich dann nicht mehr anpassen können. Das Brett selber habe ich also begrentzt, wie begrentzt man das Fenster ?
-Schachfiguren zeichnen und dann am besten Display Brush verwenden oder Layers ?
/****************************************************************
**                                                             **
** Name:                                                       **
** Author:                                                     **
** Descr iption:                                               **
**                                                             **
****************************************************************/

@APPAUTHOR      ""
@APPCOPYRIGHT   ""
@APPDESCRIPTION ""
@APPTITLE       ""
@APPVERSION     "$VER: 1.0 (1.1.2000)"
@VERSION        3,1
;Fenstergrösse constanten
Const #lang=680
Const #hoch=680
Const #rount=10 ;Rundung Schachfelder
Const #WHI=$f2e5ff
Const #BLA=$666666
ll=80
bb=80
nu8=60
nu7=680
nu6=60

@DISPLAY { Title = "Schach-Gui", X = #CENTER, Y = #CENTER, Width = #lang, Height = #hoch, color = #BLACK, sizeable=True}

;Variablen
Repeat
;Funktion neue Festergrösse
Function p_HandlerFunc(msg)
    Switch (msg.action)
    Case "SizeWindow":
if msg.width <240 Then msg.width=240
if msg.height<240 Then msg.height=240
      ;dbugPrint("User hat moved the Windowsize to", msg.height, msg.width)

nu8=(msg.height)/10
nu7=(msg.height)
if msg.width <=300 Then nu6=(msg.width)/9
if (msg.width >300) and (msg.width <=500) Then nu6=(msg.width)/11
if msg.width >500 Then nu6=(msg.width)/12
msg.height=msg.height-40
msg.width=msg.width-40
bb=(msg.height/8)
ll=(msg.width/8)
  EndSwitch
EndFunction
SetFont("times.font" ,11)
SetFontColor(#YELLOW)
InstallEventHandler({ActiveWindow = p_HandlerFunc, SizeWindow = p_HandlerFunc})
cls
;
; Board zeichnen
;
;Reihe8
SetFillStyle(#fillcolor)
Box(20,20,ll,bb,#WHI,#rount)
Box(ll+20,20,ll,bb,#BLA,#rount)
Box((ll*2)+20,20,ll,bb,#WHI,#rount)
Box((ll*3)+20,20,ll,bb,#BLA,#rount)
Locate (6,nu8)
NPrint ("8")
Box((ll*4)+20,20,ll,bb,#WHI,#rount)
Box((ll*5)+20,20,ll,bb,#BLA,#rount)
Box((ll*6)+20,20,ll,bb,#WHI,#rount)
Box((ll*7)+20,20,ll,bb,#BLA,#rount)
;Reihe7
SetFillStyle(#fillcolor)
Box(20,bb+20,ll,bb,#BLA,#rount)
Box(ll+20,bb+20,ll,bb,#WHI,#rount)
Box((ll*2)+20,bb+20,ll,bb,#BLA,#rount)
Box((ll*3)+20,bb+20,ll,bb,#WHI,#rount)
Locate (6,nu8+bb)
NPrint ("7")
Box((ll*4)+20,bb+20,ll,bb,#BLA,#rount)
Box((ll*5)+20,bb+20,ll,bb,#WHI,#rount)
Box((ll*6)+20,bb+20,ll,bb,#BLA,#rount)
Box((ll*7)+20,bb+20,ll,bb,#WHI,#rount)
;Reihe6
SetFillStyle(#fillcolor)
Box(20,(bb*2)+20,ll,bb,#WHI,#rount)
Box(ll+20,(bb*2)+20,ll,bb,#BLA,#rount)
Box((ll*2)+20,(bb*2)+20,ll,bb,#WHI,#rount)
Box((ll*3)+20,(bb*2)+20,ll,bb,#BLA,#rount)
Locate (6,nu8+bb*2)
NPrint ("6")
Box((ll*4)+20,(bb*2)+20,ll,bb,#WHI,#rount)
Box((ll*5)+20,(bb*2)+20,ll,bb,#BLA,#rount)
Box((ll*6)+20,(bb*2)+20,ll,bb,#WHI,#rount)
Box((ll*7)+20,(bb*2)+20,ll,bb,#BLA,#rount)
;Reihe5
SetFillStyle(#fillcolor)
Box(20,(bb*3)+20,ll,bb,#BLA,#rount)
Box(ll+20,(bb*3)+20,ll,bb,#WHI,#rount)
Box((ll*2)+20,(bb*3)+20,ll,bb,#BLA,#rount)
Locate (6,nu8+bb*3)
NPrint ("5")
Box((ll*3)+20,(bb*3)+20,ll,bb,#WHI,#rount)
Box((ll*4)+20,(bb*3)+20,ll,bb,#BLA,#rount)
Box((ll*5)+20,(bb*3)+20,ll,bb,#WHI,#rount)
Box((ll*6)+20,(bb*3)+20,ll,bb,#BLA,#rount)
Box((ll*7)+20,(bb*3)+20,ll,bb,#WHI,#rount)
;Reihe4
SetFillStyle(#fillcolor)
Box(20,(bb*4)+20,ll,bb,#WHI,#rount)
Box(ll+20,(bb*4)+20,ll,bb,#BLA,#rount)
Box((ll*2)+20,(bb*4)+20,ll,bb,#WHI,#rount)
Box((ll*3)+20,(bb*4)+20,ll,bb,#BLA,#rount)
Locate (6,nu8+bb*4)
NPrint ("4")
Box((ll*4)+20,(bb*4)+20,ll,bb,#WHI,#rount)
Box((ll*5)+20,(bb*4)+20,ll,bb,#BLA,#rount)
Box((ll*6)+20,(bb*4)+20,ll,bb,#WHI,#rount)
Box((ll*7)+20,(bb*4)+20,ll,bb,#BLA,#rount)
;Reihe3
SetFillStyle(#fillcolor)
Box(20,(bb*5)+20,ll,bb,#BLA,#rount)
Box(ll+20,(bb*5)+20,ll,bb,#WHI,#rount)
Box((ll*2)+20,(bb*5)+20,ll,bb,#BLA,#rount)
Box((ll*3)+20,(bb*5)+20,ll,bb,#WHI,#rount)
Locate (6,nu8+bb*5)
NPrint ("3")
Box((ll*4)+20,(bb*5)+20,ll,bb,#BLA,#rount)
Box((ll*5)+20,(bb*5)+20,ll,bb,#WHI,#rount)
Box((ll*6)+20,(bb*5)+20,ll,bb,#BLA,#rount)
Box((ll*7)+20,(bb*5)+20,ll,bb,#WHI,#rount)
;Reihe2
SetFillStyle(#fillcolor)
Box(20,(bb*6)+20,ll,bb,#WHI,rount)
Box(ll+20,(bb*6)+20,ll,bb,#BLA,rount)
Box((ll*2)+20,(bb*6)+20,ll,bb,#WHI,#rount)
Box((ll*3)+20,(bb*6)+20,ll,bb,#BLA,#rount)
Locate (6,nu8+bb*6)
NPrint ("2")
Box((ll*4)+20,(bb*6)+20,ll,bb,#WHI,#rount)
Box((ll*5)+20,(bb*6)+20,ll,bb,#BLA,#rount)
Box((ll*6)+20,(bb*6)+20,ll,bb,#WHI,#rount)
Box((ll*7)+20,(bb*6)+20,ll,bb,#BLA,#rount)
;Reihe1
SetFillStyle(#fillcolor)
Box(20,(bb*7)+20,ll,bb,#BLA,#rount)
Box(ll+20,(bb*7)+20,ll,bb,#WHI,#rount)
Box((ll*2)+20,(bb*7)+20,ll,bb,#BLA,#rount)
Box((ll*3)+20,(bb*7)+20,ll,bb,#WHI,#rount)
Locate (6,nu8+bb*7)
NPrint ("1")
Box((ll*4)+20,(bb*7)+20,ll,bb,#BLA,#rount)
Box((ll*5)+20,(bb*7)+20,ll,bb,#WHI,#rount)
Box((ll*6)+20,(bb*7)+20,ll,bb,#BLA,#rount)
Box((ll*7)+20,(bb*7)+20,ll,bb,#WHI,#rount)
Locate (nu6,nu7-15)
NPrint ("A")
Locate (nu6+ll,nu7-15)
NPrint ("B")
Locate (nu6+(ll*2),nu7-15)
NPrint ("C")
Locate (nu6+(ll*3),nu7-15)
NPrint ("D")
Locate (nu6+(ll*4),nu7-15)
NPrint ("E")
Locate (nu6+(ll*5),nu7-15)
NPrint ("F")
Locate (nu6+(ll*6),nu7-15)
NPrint ("G")
Locate (nu6+(ll*7),nu7-15)
NPrint ("H")

SetFormStyle(#edge, ARGB(256, #BLACK))
CreateBrush(1,120,120)
SelectBrush(1)
SetFillStyle(#fillgradient, #linear, #BLACK, #GRAY)
Circle(50,50,10,#BLACK)
Circle(40,70,20,#BLACK)
Ellipse(30,110,30,2,#BLACK)
EndSelect()
SetBrushTransparency(1, #BLACK)
;MoveBrush(1, #CENTER, #BOTTOMOUT, #CENTER, #TOPOUT, 10)
ScaleBrush(1,ll,bb)
DisplayBrush(1,(ll+bb)/2,(ll+bb)/2)
;DisplayBrush(1,190,120, {smoothscale=True})
posx=MouseX()
posy=MouseY()
Locate (2,2)
NPrint (posx, posy)
Locate (2,10)
NPrint (#lang, #hoch ,Width, Height, ll, bb, nu7, nu8)
;Arc(0,0,183,183,45,315,#WHITE)
;Circle(164,33,16,#WHITE)
; /// "main loop"


    WaitEvent
Forever

; ///


Nach oben
   
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen  Auf das Thema antworten  [ 7 Beiträge ] 

Alle Zeiten sind UTC


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder


Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.

Gehe zu: 

cron