Kleiner helfer

Anwendungen, Tools, Userlibs und anderes nützliches.
myself
Beiträge: 67
Registriert: 18.03.2006 12:48

Kleiner helfer

Beitrag von myself »

Nix tolles aber in manchen fällen sehr hilfreich :P einfach mit der maus links oben an den bildschirmrand ankommen :)
Funktionsweise sollte selbsterklärend sein

(PB 4)

Code: Alles auswählen

Enumeration
  #main
EndEnumeration

;Hier ändern wenn man will :)
panels = 5
width = 250
height = 250
;--------------------


OpenWindow(#main,-249,0,width,height,"",#PB_Window_BorderLess)
  CreateGadgetList(WindowID(#main))
  PanelGadget(0, 0, 0, width, height)
  For i = 1 To panels
    AddGadgetItem (0, -1, "[- "+Str(i)+" -]")
    edit = EditorGadget(#PB_Any,0,0,width-3,height-23)
    SetGadgetColor(edit,#PB_Gadget_BackColor,RGB(240,240,150))
  Next
;----------------
StickyWindow(#main,1)
notused = OpenWindow(#PB_Any,0,0,0,0,"",#PB_Window_Invisible)
SetWindowLong_(WindowID(#main),#GWL_HWNDPARENT,WindowID(notused))



Repeat
WaitWindowEvent(500)

  If WindowMouseX(#main) <> -1 And WindowMouseY(#main) <> -1
  
      If dragged_out = 0
        For i = -249 To 0 Step 15
          ResizeWindow(#main,i,0,width,height)
          Delay(10)
        Next
        ResizeWindow(#main,0,0,width,height)
        dragged_out = 1
      EndIf
      
    Else
    
      If dragged_out = 1
        For i = 0 To -249 Step -15
          ResizeWindow(#main,i,0,width,height)
          Delay(10)
        Next  
        ResizeWindow(#main,-249,0,width,height)
        dragged_out = 0
      EndIf
      
  EndIf

ForEver
mfg MySelf
Benutzeravatar
winduff
Beiträge: 879
Registriert: 10.02.2006 21:05
Wohnort: Gießen
Kontaktdaten:

Beitrag von winduff »

Ja - nicht schlecht

Fast GENAU das selbe hatte ich auch am anfang programmiert, noch vor nem post-it versuch der nur so halb funktionierte :-P

Lg
Bild
AND51 hat geschrieben:...und ich würde dein Programm aus Wut zwei mal installieren, um eines genüsslicher löschen zu können, als das andere...
Benutzeravatar
Programie
Beiträge: 1280
Registriert: 06.08.2005 22:56
Computerausstattung: https://www.sysprofile.de/id160800
Wohnort: Gernsbach
Kontaktdaten:

Beitrag von Programie »

Sieht ziemlich gut aus! :allright:
BildBildBildBild
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

Mhhh..... Irgendwie solltest du das Fenster anders verstecken. Bei mir
geht es nämlich hinter der 0 Koordinate im Minusbereich noch weiter,
habe ja auch 2 Monitore ;).
Bild
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

@ mxva: Kann man sich eigentlich aussuchen, auf welchem Monitor man ein Fenster öffnen oder ein Vollbild aufmachen will?
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Benutzeravatar
winduff
Beiträge: 879
Registriert: 10.02.2006 21:05
Wohnort: Gießen
Kontaktdaten:

Beitrag von winduff »

stimmt würde mich auch mal interessieren wie sowas funktioniert... wäre bestimmt ne geile sache ;-)
Bild
AND51 hat geschrieben:...und ich würde dein Programm aus Wut zwei mal installieren, um eines genüsslicher löschen zu können, als das andere...
Benutzeravatar
dige
Beiträge: 1246
Registriert: 08.09.2004 08:53

Beitrag von dige »

Das geht dann aber nur von unten bzw. von oben, es sei denn es gibt
jemand der die Monitore übereinander gestellt hat ;)

Mit SystemParametersInfo_() und #SPI_GETWORKAREA bzw.
#SM_CXVIRTUALSCREEN kann man den Arbeitsbereich und die
vituelle Größe ( für mehrere Monitore wichtig ) auslesen.
"Papa, ich laufe schneller - dann ist es nicht so weit."
Antworten