AMIGA-RESISTANCE https://forum.amiga-resistance.info/ |
|
Fenster Resizable https://forum.amiga-resistance.info/viewtopic.php?f=38&t=2459 |
Seite 1 von 1 |
Autor: | Murmel [ 31 Mär 2009, 07:49 ] |
Betreff des Beitrags: | Fenster Resizable |
SInd eigendlich Fenster in Hollywood 3.1 resizable zu machen, oder geht das mit der Sculib ? |
Autor: | Tipsi [ 31 Mär 2009, 14:49 ] |
Betreff des Beitrags: | Re: Fenster Resizable |
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 |
Autor: | Murmel [ 31 Mär 2009, 22:06 ] |
Betreff des Beitrags: | Re: Fenster Resizable |
@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), |
Autor: | novamann [ 31 Mär 2009, 22:19 ] | |
Betreff des Beitrags: | Re: Fenster Resizable | |
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 |
Autor: | Murmel [ 01 Apr 2009, 00:46 ] |
Betreff des Beitrags: | Re: Fenster Resizable |
@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 Code: Alles auswählen /**************************************************************** ** ** ** 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 ; /// |
Autor: | Clyde [ 03 Apr 2009, 13:06 ] |
Betreff des Beitrags: | Re: Fenster Resizable |
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: Code: Alles auswählen /**************************************************************** ** ** ** 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 ;;; |
Autor: | Murmel [ 03 Apr 2009, 13:53 ] |
Betreff des Beitrags: | Re: Fenster Resizable |
@Clyde Danke für Deine Verbesserungen Bisher habe ich aber noch gar nicht versucht guten Code zu schreiben 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 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 ? Code: Alles auswählen /**************************************************************** ** ** ** 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 ; /// |
Seite 1 von 1 | Alle Zeiten sind UTC |
Powered by phpBB® Forum Software © phpBB Limited Deutsche Übersetzung durch phpBB.de |