Message über Startleiste, wie bei ICQ

Anfängerfragen zum Programmieren mit PureBasic.
Little John

Beitrag von Little John »

Ich hab's jetzt ersetzt durch

Code: Alles auswählen

SetWindowColor(0,$404080)
Das funktioniert, aber ich weiß natürlich nicht ob das bei Dir mit SetWinBackgroundColor() genauso aussieht.

Gruß, Little John
Benutzeravatar
Fluid Byte
Beiträge: 3110
Registriert: 27.09.2006 22:06
Wohnort: Berlin, Mitte

Beitrag von Fluid Byte »

Was die Tranzparenz angeht: AnimateWindow_() ist dein Freund! :wink:
Windows 10 Pro, 64-Bit / Outtakes | Derek
Benutzeravatar
edel
Beiträge: 3667
Registriert: 28.07.2005 12:39
Computerausstattung: GameBoy
Kontaktdaten:

Beitrag von edel »

Vor lauter Baeumen ... :D

Code: Alles auswählen

SHAppBarMessage_(#ABM_GETTASKBARPOS,Taskbar.APPBARDATA)

#cx = 160
#cy = 140

hWnd  = OpenWindow(0,Taskbar\rc\Right-#cx,Taskbar\rc\top-#cy,#cx,#cy,"leer",#PB_Window_Invisible|#PB_Window_borderless)
StickyWindow(0,1)
SetWindowColor(0,$404080)
SetTimer_(hWnd,0,3000,0)

Repeat
  event = WaitWindowEvent()
  
  If event = #WM_TIMER 
    If Not flag & #AW_HIDE
      flag = #AW_HIDE|#AW_BLEND 
    Else 
      flag = #AW_BLEND
    EndIf
    AnimateWindow_(hWnd,700,flag)
  EndIf
  
Until event = #PB_Event_CloseWindow
Benutzeravatar
chrizl
Beiträge: 60
Registriert: 31.08.2004 15:03
Wohnort: Pbg.
Kontaktdaten:

Beitrag von chrizl »

joar, das wäre auch nicht schlecht..
also ich bin gerade dabei, die erste version einzubinden und auch ein bischen zu testen... also so kleines "erweiterungen" ein zu setzen...

@ kiffi
ich weiss, ich sollte öfters mal wieder on kommen...
ist allgemein nur die sache, das ich momentan für ein "größeres projekt" die php programmierung mit mache.. vision-szenemagazin
und bei der arbeit bin ich auch dauerhaft mit php am arbeiten.. somit hab ich leider wenig zeit, mich mit pb zu beschäftigen...

natürlich bastel ich auch zwischendurch einige sachen, wenn es gebraucht wird mit pb, wie letztens zum beispiel ein "backup-tool", was nur ganz einfach aufgebaut ist, die laufwerke ausliest und wenn es die cd gefunden hat, mit den aktuellen daten, dann eine sicherung mit aktuellem datum anlegt und die neuen dateien kopiert..

aber ich bin auch gerade dabei, für das vision-projekt ein kleines tool zu proggen, mit welchem man dann einige daten lokal auf dem pc anzeigen lassen kann, wie z.b. nachrichten, die man über vision bekommen hat usw. bzw. auch aktuelle news, die ich dann vom webserver senden kann.


mein vater sagt da irgendwie nicht mehr viel zu, wundert mich xD
aber ihr könnte mich deshalb doch nicht aus dem board werfen :( ich bleibe pb trotzdem treu und arbeite auch weiterhin damit :allright:
Mit freundlichen Grüßen,
chrizl
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

Hallo!

Wollte schon früher posten, aber ging nicht. Ich hoffe, meine Lösung findet auch Verwendung. Ich verwende nur einen API-Aufruf: SystemParametersInfo_() (Abwärtskompatible bis Win95).

Code: Alles auswählen

EnableExplicit

OpenWindow(0, 0, 0, 300, 250, "AND51", #PB_Window_BorderLess|#PB_Window_Invisible)
CreateGadgetList(WindowID(0))
	ButtonGadget(0, 50, 50, 200, 50, "Close", #PB_Button_Default)

; get the right location for the window. therefore, we get the WORKAREA-coords
Define winpos.RECT

SystemParametersInfo_(#SPI_GETWORKAREA, 0, @winpos, 0)
ExamineDesktops()

With winpos
	\Right-WindowWidth(0)
	\Bottom-WindowHeight(0)
	
	ResizeWindow(0, \Right, \Bottom, #PB_Ignore, #PB_Ignore)
EndWith

; Show the window
; AnimateWindow_(WindowID(0), 1500, #AW_VER_NEGATIVE) ; Roll up
AnimateWindow_(WindowID(0), 1500, #AW_VER_NEGATIVE|#AW_SLIDE) ; Slide up

; Wait for closing the window
Repeat : Until WaitWindowEvent() = #PB_Event_Gadget And EventGadget() = 0


; Hide the window
; AnimateWindow_(WindowID(0), 1500, #AW_VER_POSITIVE|#AW_HIDE) ; Roll down
AnimateWindow_(WindowID(0), 1500, #AW_VER_POSITIVE|#AW_SLIDE|#AW_HIDE) ; Slide down
Das ist doch gemeint, oder?
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Benutzeravatar
chrizl
Beiträge: 60
Registriert: 31.08.2004 15:03
Wohnort: Pbg.
Kontaktdaten:

Beitrag von chrizl »

hey, genauso meinte ich das eigentlich..

also so, das es langsam von unten nach oben hoch fährt..

naja, es ist zwar im hintergrund, sobald man ein anderes fenster öffnet, aber ich glaube, ich werde eure lösungen ein bischen kombinieren und dann wird es hoffentlich genauso aussehen, wie ich es eigentlich haben wollte.


auf jeden fall find ich es super, das ihr mir dabei so helft....
dann lerne ich wenigstens noch so einiges von pb dazu :)
Mit freundlichen Grüßen,
chrizl
Benutzeravatar
Fluid Byte
Beiträge: 3110
Registriert: 27.09.2006 22:06
Wohnort: Berlin, Mitte

Beitrag von Fluid Byte »

AND51 hat geschrieben:Ich verwende nur einen API-Aufruf: SystemParametersInfo_() (Abwärtskompatible bis Win95).
Hab ich was verpasst? Wasn' mit AnimateWindow_()?
Windows 10 Pro, 64-Bit / Outtakes | Derek
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

> Hab ich was verpasst? Wasn' mit AnimateWindow_()?
Ups, ähhh... Ja den muss man dann wohl mit dazurechnen. Ist aber auch abwärtskompatibel zu Win9x.

Tschuldigung, mein Fehler!


> naja, es ist zwar im hintergrund
Ouh man, ich vergess die Hälfte. Warum? Weil ich anfange und dann untebrechen muss, weil ich noch nachmittags Sportunterricht habe... /:->
Kein Problem, mein Freund! Nimmste einfach StickyWIndow().
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Benutzeravatar
edel
Beiträge: 3667
Registriert: 28.07.2005 12:39
Computerausstattung: GameBoy
Kontaktdaten:

Beitrag von edel »

AND51 hat geschrieben:> Hab ich was verpasst? Wasn' mit AnimateWindow_()?
Ups, ähhh... Ja den muss man dann wohl mit dazurechnen. Ist aber auch abwärtskompatibel zu Win9x.
Gibt es nicht unter 95. Was aber eigentlich nicht so schlimm ist, wer braucht
so alte Schinken denn noch ? ...
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

Wusste nicht, ob 95 auch noch von AnimateWindow_() unterstützt wird, deshalb schrieb ich "Win 9x".

Aber ich geb dir Recht, Win 95 kann man IMHO vernachlässigen.
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Antworten