WinAPI Library (Snippets) (1163 Beispielcodes)

[RSBasic]

WinAPI Library 1.3.6 wurde veröffentlicht (25 neue Beispielcodes)

Hinzugefügt:


Frame3DGadget:

• Mit Icon

Menü:

• Breite aller MenuTitle ermitteln
• Breite eines MenuTitle ermitteln
• Item rechtsbündig 2
• Multiline
• X-Position eines MenuTitle ermitteln
• Zwischenabstand hinzufügen

OpenWindow:

• Maximale Fenstergröße ermitteln
• Nachricht an Callback senden

PanelGadget:

• Maushover deaktivieren
• Minimale Breite einstellen
• Tabbreite bei Multiline nicht strecken
• Tabfarbe ändern
• Tabs als Buttons mit Separator darstellen

SpinGadget:

• Wertänderung umkehren

StringGadget:

• Abstand festlegen
• Erkennen, ob Änderung stattfand

ToolBar:

• Anzahl der Buttons ermitteln
• Button ausgrauen aber nicht deaktivieren
• Button deaktivieren
• Button gedrückt halten
• Button verschieben
• Button verstecken
• Nach jedem Separator neue Zeile
• Obere Linie entfernen

Online: http://www.rsbasic.de/winapi-library
Offline: Updaten

[mk-soft]

Macro´s für WinAPI...

Code: Alles auswählen

CompilerIf Defined(MACRO_HIWORD, #PB_Constant) = 0
  #MACRO_HIWORD = 1
  Macro HIWORD(Param)
    (Param >> 16)
  EndMacro
CompilerEndIf

CompilerIf Defined(MACRO_LOWORD, #PB_Constant) = 0
  #MACRO_LOWORD = 1
  Macro LOWORD(Param)
    (Param & $FFFF)
  EndMacro
CompilerEndIf

CompilerIf Defined(MACRO_MAKEWPARAM, #PB_Constant) = 0
  #MACRO_MAKEWPARAM = 1
  Macro MAKEWPARAM(X,Y)
    (Y << 16 | X)
  EndMacro
CompilerEndIf

CompilerIf Defined(MACRO_MAKELPARAM, #PB_Constant) = 0
  #MACRO_MAKELPARAM = 1
  Macro MAKELPARAM(X,Y)
    (Y << 16 | X)
  EndMacro
CompilerEndIf

CompilerIf Defined(MACRO_MAKELONG, #PB_Constant) = 0
  #MACRO_MAKELONG = 1
  Macro MAKELONG(X,Y)
    (Y << 16 | X)
  EndMacro
CompilerEndIf

Kann man vielleicht in einer globalen Include Packen

Beipiel aus Snippet ToolBar

Code: Alles auswählen

;Autor: Fluid Byte

EnableExplicit

CompilerIf Defined(MACRO_HIWORD, #PB_Constant) = 0
  #MACRO_HIWORD = 1
  Macro HIWORD(Param)
    (Param >> 16)
  EndMacro
CompilerEndIf

CompilerIf Defined(MACRO_LOWORD, #PB_Constant) = 0
  #MACRO_LOWORD = 1
  Macro LOWORD(Param)
    (Param & $FFFF)
  EndMacro
CompilerEndIf

CompilerIf Defined(MACRO_MAKEWPARAM, #PB_Constant) = 0
  #MACRO_MAKEWPARAM = 1
  Macro MAKEWPARAM(X,Y)
    (Y << 16 | X)
  EndMacro
CompilerEndIf

CompilerIf Defined(MACRO_MAKELPARAM, #PB_Constant) = 0
  #MACRO_MAKELPARAM = 1
  Macro MAKELPARAM(X,Y)
    (Y << 16 | X)
  EndMacro
CompilerEndIf

CompilerIf Defined(MACRO_MAKELONG, #PB_Constant) = 0
  #MACRO_MAKELONG = 1
  Macro MAKELONG(X,Y)
    (Y << 16 | X)
  EndMacro
CompilerEndIf


Define EventID

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateToolBar(1,WindowID(0))
    ToolBarStandardButton(0,#PB_ToolBarIcon_New)
    ToolBarStandardButton(1,#PB_ToolBarIcon_Open)
    ToolBarStandardButton(2,#PB_ToolBarIcon_Save)
    
    SendMessage_(ToolBarID(1),#TB_SETBUTTONSIZE,0,MAKELPARAM(64,30))
    SendMessage_(ToolBarID(1),#TB_AUTOSIZE,0,0)
    
  EndIf
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

Sind noch nicht alle Macro´s definiert

[RSBasic]

Jo, u.a. auch:

Code: Alles auswählen

Macro MAKEIPRANGE(low, high)
  low + high * $100
EndMacro

Wenn ihr weitere Macros kennt, dann bitte hier posten. Dann kann ich all' diese API-Macros in einer separaten Sammeldatei zusammenfassen.

[NicTheQuick]

Jo, u.a. auch:

Code: Alles auswählen

Macro MAKEIPRANGE(low, high)
  low + high * $100
EndMacro

Wenn ihr weitere Macros kennt, dann bitte hier posten. Dann kann ich all' diese API-Macros in einer separaten Sammeldatei zusammenfassen.

Ihr definiert die Makros falsch. Um jeden Parameter müssen noch Klammern drum!

Code: Alles auswählen

Macro MAKEIPRANGE(low, high)
  (low) + (high) * $100
EndMacro

Beispielfehler ohne Klammern:

Code: Alles auswählen

Macro MAKEIPRANGE(low, high)
	low + high * $100
EndMacro
Debug "Falsch:"
Debug MAKEIPRANGE(1 + 2, 3 + 4)
Debug "Richtig:"
Debug (1 + 2) + (3 + 4) * $100

[RSBasic]

Okay, danke, habs angepasst.

[mk-soft]

Vielleicht ein neuen Thema erstellen.

Hab meins mal überarbeitet. Filter, Klammersetzung , etc...

Code: Alles auswählen

;-TOP

; Macros for WinAPI
; Authors
; - mk-soft
; - 
; - 
;
; Revision 1.0
;

;------------------------------------------------------------------------------
CompilerIf Defined(MACRO_HIWORD, #PB_Constant) = 0
  #MACRO_HIWORD = 1
  Macro HIWORD(Param)
    (Param >> 16)
  EndMacro
CompilerEndIf
;------------------------------------------------------------------------------
CompilerIf Defined(MACRO_LOWORD, #PB_Constant) = 0
  #MACRO_LOWORD = 1
  Macro LOWORD(Param)
    (Param & $FFFF)
  EndMacro
CompilerEndIf
;------------------------------------------------------------------------------
CompilerIf Defined(MACRO_MAKEWPARAM, #PB_Constant) = 0
  #MACRO_MAKEWPARAM = 1
  Macro MAKEWPARAM(l,h)
    (((h) & $FFFF) << 16 | ((l) & $FFFF))
  EndMacro
CompilerEndIf
;------------------------------------------------------------------------------
CompilerIf Defined(MACRO_MAKELPARAM, #PB_Constant) = 0
  #MACRO_MAKELPARAM = 1
  Macro MAKELPARAM(l,h)
    (((h) & $FFFF) << 16 | ((l) & $FFFF))
  EndMacro
CompilerEndIf
;------------------------------------------------------------------------------
CompilerIf Defined(MACRO_MAKELONG, #PB_Constant) = 0
  #MACRO_MAKELONG = 1
  Macro MAKELONG(a,b)
    (((b) & $FFFF) << 16 | ((a) & $FFFF))
  EndMacro
CompilerEndIf
;------------------------------------------------------------------------------
CompilerIf Defined(MACRO_MAKEWORD, #PB_Constant) = 0
  #MACRO_MAKEWORD = 1
  Macro MAKEWORD(a,b)
    (((b) & $FF) << 8) | ((a) & $FF))
  EndMacro
CompilerEndIf
;------------------------------------------------------------------------------
CompilerIf Defined(MACRO_MAKEINTATOM, #PB_Constant) = 0
  #MACRO_MAKEINTATOM = 1
  Macro MAKEINTATOM(I)
    ((I) & $FFFF)
  EndMacro
CompilerEndIf
;------------------------------------------------------------------------------
CompilerIf Defined(MACRO_MAKELANGID, #PB_Constant) = 0
  #MACRO_MAKELANGID = 1
  Macro MAKELANGID(p, s) 
    (((s) & $FFFF) << 10) | ((p) & $FFFF))
  EndMacro
CompilerEndIf
;------------------------------------------------------------------------------
CompilerIf Defined(MACRO_MAKELCID, #PB_Constant) = 0
  #MACRO_MAKELCID = 1
  Macro MAKELCID(lgid, srtid)
    ((srtid) << 16) | (lgid))
  EndMacro
CompilerEndIf
;------------------------------------------------------------------------------

[RSBasic]

Sehr gut, thx.

[Sicro]

http://www.rsbasic.de/aktualisierung/wi ... mitteln.pb

Der Wert von dwTime muss von GetTickCount_() abgezogen werden, um den richtigen Zeitwert zu erhalten:

Code: Alles auswählen

; http://msdn.microsoft.com/en-us/library/windows/desktop/ms646302%28v=vs.85%29.aspx

Structure LASTINPUTINFO
  cbSize.l
  dwTime.l
EndStructure

Define.LASTINPUTINFO plii\cbSize = SizeOf(LASTINPUTINFO)

Delay(5000)

If GetLastInputInfo_(@plii)
  Debug "Der Computer wurde nicht mehr bedient seit: " + Str(GetTickCount_() - plii\dwTime) + " Millisekunden"
Else
  Debug "Abfrage fehlgeschlagen"
EndIf

[RSBasic]

Das stimmt, aber in dem Code gings nur darum, um zu ermitteln, ob überhaupt eine Änderung stattfand. Deinen Code kann ich ja zusätzlich hinzufügen, um zu ermitteln, wie lang die Idle-Zeit war.

[RSBasic]

WinAPI Library besitzt nun insgesamt 1.000 Beispielcodes!

WinAPI Library 1.3.7 wurde veröffentlicht (50 neue Beispielcodes)

Hinzugefügt:


ButtonGadget:

• Buttonklick simulieren

ComboBoxGadget:

• Große Icons verwenden

EditorGadget:

• Cursor ans Ende setzen
• Scrollleiste linksbündig
• Scrollposition ermitteln

ExplorerListGadget:

• Bis zur beliebigen Zeile scrollen
• CheckBox-Flag nachträglich aktivieren
• Eintrag automatisch markieren bei Mouseover
• Erste sichtbare Zeile ermitteln
• Gesamte Zeilenmarkierung nachträglich aktivieren
• Hand-Mauscursor bei Mouseover
• Header-Höhe ermitteln
• Moderne Markierung
• Scrollleiste linksbündig
• Scrollposition ermitteln
• Zwischenlinien nachträglich aktivieren

ExplorerTreeGadget:

• Scrollleiste linksbündig
• Scrollposition ermitteln

Frame3DGadget:

• Einfache Linie erstellen

IPAddressGadget:

• IP-Feld auf Readonly setzen

ListIconGadget:

• Bis zur beliebigen Zeile scrollen
• CheckBox-Flag nachträglich entfernen
• Eintrag automatisch markieren bei Mouseover
• Erste sichtbare Zeile ermitteln
• Gesamte Zeilenmarkierung nachträglich aktivieren
• Hand-Mauscursor bei Mouseover
• Header-Höhe ermitteln
• Moderne Markierung
• Scrollleiste linksbündig
• Scrollposition ermitteln
• Zwischenlinien nachträglich aktivieren

ListViewGadget:

• Erste sichtbare Zeile ermitteln
• Scrollleiste linksbündig
• Scrollposition ermitteln

Maus und Tastatur:

• Idle-Zeit seit der letzten Maus- und Tastatureingabe ermitteln

Menü:

• Eintrag nachträglich hinzufügen

PanelGadget:

• Höhe der Tab-Leiste ermitteln

Popup-Menü:

• Eintrag nachträglich hinzufügen

Prozesse:

• Buttonklick simulieren

ScrollAreaGadget:

• Scrollleiste linksbündig
• Scrollposition ermitteln

Sonstige:

• Ermitteln, ob Windows aktiviert ist
• Lautstärke ermitteln und setzen
• Macros

StringGadget:

• Cursor ans Ende setzen

TextGadget:

• RTF-Formatierung

ToolBar:

• Bild eines Items ändern

TreeGadget:

• Scrollleiste linksbündig
• Scrollposition ermitteln

WebGadget:

• Useragent ändern

Online: http://www.rsbasic.de/winapi-library
Offline: Updaten