Aktuelle Zeit: 26.08.2019 03:07

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 20 Beiträge ]  Gehe zu Seite Vorherige  1, 2
Autor Nachricht
 Betreff des Beitrags: Re: Kalender auf CanvasGadget Basis
BeitragVerfasst: 28.06.2018 14:21 
Offline
Ein Admin
Benutzeravatar

Registriert: 29.08.2004 20:20
Wohnort: Saarbrücken
@Kiffi: Webgadget-Magie geht mal wieder nicht unter Linux ;-)

@¯\_(ツ)_/¯:
Ich habe jetzt keine Zeit mehr da weiter zu basteln. Ich habe trotzdem mal durch deinen Code gescrollt. In Zeile 62 zeigst du immer eine komplette Zeile des Monats an. Das muss natürlich raus, wenn du einzelne Tage einfärben willst, und dafür musst du an dieser Stelle dein DrawTextX immer wieder zurück setzen. Dann musst du das neue DrawText() in Zeile 70 und 72 setzen, wo die Kalenderzeile Stück für Stück zusammengesetzt wird und nach jedem DrawText() dein DrawTextX erhöhen.

_________________
Freakscorner.de - Der Bastelkeller | Neustes Video: Neje DK - 1 Watt Laser Engraver
Ubuntu Gnome 18.04.1 LTS x64, PureBasic 5.60 x64 (außerdem 4.41, 4.50, 4.61, 5.00, 5.10, 5.11, 5.21, 5.22, 5.30, 5.31, 5.40, 5.50)
"Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen – Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen."


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Kalender auf CanvasGadget Basis
BeitragVerfasst: 28.06.2018 14:35 
Offline
Benutzeravatar

Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9
NicTheQuick hat geschrieben:
@Kiffi: Webgadget-Magie geht mal wieder nicht unter Linux ;-)

achso, ja das vergesse ich immer wieder. Hätte ich zu Hause an meinem Rechner gesessen, wäre mir das früher aufgefallen. :|

Grüße ... Peter

_________________
"A user interface is like a joke. If you have to explain it, it’s not that good." (Martin Leblanc)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Kalender auf CanvasGadget Basis
BeitragVerfasst: 28.06.2018 14:58 
Offline
Benutzeravatar

Registriert: 08.09.2004 00:57
Wohnort: Berlin
WebGadget Magie unter Linux 8)
Bild

Kein Problem hier,

Gruß
Thomas

_________________
PureBasic 5.70 | SpiderBasic 2.21 | Windows 10 Pro (x64) | Linux Mint 19.2 (x64)
"Die Jugend von heute mit ihren Ballerspielen, hocken nur in der Bude - wir haben früher die Leute noch draußen erschossen!"
Bild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Kalender auf CanvasGadget Basis
BeitragVerfasst: 28.06.2018 15:26 
Offline
Admin
Benutzeravatar

Registriert: 05.10.2006 18:55
Wohnort: Deutschland::Berlin()
[ot]
Profil von ts-soft hat geschrieben:
Beiträge insgesamt: 22222

Herzlichen Glückwunsch zu deinem 22.222. Beitrag. Schnapszahl :allright:
[/ot]

_________________
BildBildBildBild(Update: 17.08.2019 (+196 Dateien, +1392 MB)) BildBild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Kalender auf CanvasGadget Basis
BeitragVerfasst: 28.06.2018 15:26 
Offline
Ein Admin
Benutzeravatar

Registriert: 29.08.2004 20:20
Wohnort: Saarbrücken
ts-soft hat geschrieben:
Kein Problem hier,

Was mache ich schon wieder falsch? Mein Fenster friert nur ein.

Übrigens Glückwunsch zu deinem 22222. Beitrag. Wann trinken wir denn mal einen Schnaps? :-D

@RSBasic: Hee, Gemeinheit. Ich wollte das zuerst sagen. :lol:

_________________
Freakscorner.de - Der Bastelkeller | Neustes Video: Neje DK - 1 Watt Laser Engraver
Ubuntu Gnome 18.04.1 LTS x64, PureBasic 5.60 x64 (außerdem 4.41, 4.50, 4.61, 5.00, 5.10, 5.11, 5.21, 5.22, 5.30, 5.31, 5.40, 5.50)
"Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen – Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen."


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Kalender auf CanvasGadget Basis
BeitragVerfasst: 28.06.2018 15:27 
Offline
Admin
Benutzeravatar

Registriert: 05.10.2006 18:55
Wohnort: Deutschland::Berlin()
@NicTheQuick
Wir hatten wohl den gleichen Gedanken. :D

\\Edit:
NicTheQuick hat geschrieben:
Wann trinken wir denn mal einen Schnaps? :-D

Ich trinke heute Abend einen Sambuca auf ihn. :D

_________________
BildBildBildBild(Update: 17.08.2019 (+196 Dateien, +1392 MB)) BildBild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Kalender auf CanvasGadget Basis
BeitragVerfasst: 28.06.2018 15:37 
Offline
Benutzeravatar

Registriert: 08.09.2004 00:57
Wohnort: Berlin
NicTheQuick hat geschrieben:
Übrigens Glückwunsch zu deinem 22222. Beitrag. Wann trinken wir denn mal einen Schnaps? :-D

Da kommste über ein Jahrzehnt zu spät, Anti-Alkoholiker :D

Die Schnapszahl sollte jetzt auch wieder weg sein, danke euch, wäre mir gar nicht aufgefallen.

PS: Mit SubSystem QT fehlt die Fensterdekoration, also Titelzeile.

Gruß
Thomas

_________________
PureBasic 5.70 | SpiderBasic 2.21 | Windows 10 Pro (x64) | Linux Mint 19.2 (x64)
"Die Jugend von heute mit ihren Ballerspielen, hocken nur in der Bude - wir haben früher die Leute noch draußen erschossen!"
Bild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Kalender auf CanvasGadget Basis
BeitragVerfasst: 28.06.2018 15:54 
Offline
Admin
Benutzeravatar

Registriert: 05.10.2006 18:55
Wohnort: Deutschland::Berlin()
@¯\_(ツ)_/¯
Ich habe deinen Code umgebaut und damit ist es möglich, für jedes Datum eine andere Farbe festzulegen. Du musst nur zusätzliche Abfragen eiinbauen, wann du eine andere Farbe haben möchtest:
Code:
EnableExplicit

LoadFont(0, "Courier New", 10)
LoadFont(1, "Courier New", 10, #PB_Font_Bold)

Procedure showCalendarMonth()
  Protected Date
  Protected DrawTextX
  Protected DrawTextY
  Protected m
  Protected x
  Protected y
  Protected d
  Protected Month
  Protected Year
  Protected DayOfWeek
 
  If StartDrawing(CanvasOutput(0))
    For m=Month(Date()) To 12
      DrawingFont(FontID(1))
     
      DrawTextX = 30
      DrawTextY + 20
      DrawText(DrawTextX, DrawTextY, StringField("Januar,Februar,März,April,Mai,Juni,Juli,August,September,Oktober,November,Dezember", m, ",") + " " + Year(Date()), RGB(0, 0, 0), RGB(255, 255, 255))
     
      DrawTextX = 0
      DrawTextY + 20
      For d=1 To 7
        DrawTextX + 30
        DrawText(DrawTextX, DrawTextY, StringField("Mo,Di,Mi,Do,Fr,Sa,So", d, ","), RGB(0, 0, 0), RGB(255, 255, 255))
      Next d
     
      DrawingFont(FontID(0))
      Date = Date(Year(Date()), m, 1, 0, 0, 0)
      Month = Month(Date)
      Year = Year(Date)
      DayOfWeek = DayOfWeek(Date)-1
      If DayOfWeek = -1
        DayOfWeek = 6
      EndIf
      Date = AddDate(Date, #PB_Date_Day, -DayOfWeek)
     
      DrawTextY + 20
      For y=1 To 6
        DrawTextX = 0
        For x=1 To 7
          DrawTextX + 30
          DrawText(DrawTextX, DrawTextY, Str(Day(Date)), RGB(0, 0, 0), RGB(255, 255, 255))
          Date = AddDate(Date, #PB_Date_Day, 1)
        Next x
        DrawTextY + 20
      Next y
    Next m
   
    StopDrawing()
  EndIf
EndProcedure

If OpenWindow(0, 0, 0, 250, 920, "Kalender", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
 
  CanvasGadget(0, 0, 0, 250, 920, #PB_Canvas_Border)
 
  showCalendarMonth()
 
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow : EndIf

_________________
BildBildBildBild(Update: 17.08.2019 (+196 Dateien, +1392 MB)) BildBild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Kalender auf CanvasGadget Basis
BeitragVerfasst: 28.06.2018 22:42 
Offline
Benutzeravatar

Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9
NicTheQuick hat geschrieben:
@Kiffi: Webgadget-Magie geht mal wieder nicht unter Linux ;-)
Kiffi hat geschrieben:
achso, ja das vergesse ich immer wieder. Hätte ich zu Hause an meinem Rechner gesessen, wäre mir das früher aufgefallen. :|

Nachtrag: Funktioniert bei mir (ebenso wie bei Thomas) unter Linux (Mint 18.3 Cinnamon 64-bit).

_________________
"A user interface is like a joke. If you have to explain it, it’s not that good." (Martin Leblanc)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Kalender auf CanvasGadget Basis
BeitragVerfasst: 29.06.2018 09:20 
Offline

Registriert: 18.08.2017 09:35
Danke RSBasic für den Code, auch dich liebe ich. :allright:

_________________
Bild


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 20 Beiträge ]  Gehe zu Seite Vorherige  1, 2

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye