Icon spiegeln (windows only)

[ts-soft]

Code: Alles auswählen

EnableExplicit

Prototype mirroricon(hInstance, *pIcon)

Define hIcon, hDLL
Define.mirroricon IconMirror

hIcon = ExtractIcon_(0, #PB_Compiler_Home + "PureBasic.exe", 1)
hDLL = OpenLibrary(#PB_Any, "comctl32.dll")
If hDLL
  IconMirror = GetFunctionEntry(hDLL, 414)
  If IconMirror
    IconMirror(0, @hIcon)
  EndIf
EndIf

OpenWindow(0, #PB_Ignore, #PB_Ignore, 640, 480, "Gespiegeltes Icon")
SendMessage_(WindowID(0), #WM_SETICON, 1, hIcon)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

DestroyIcon_(hIcon)

[RSBasic]

@ts-soft
Great

[Frabbing]

Wo findest du sowas nur immer?

[ts-soft]

Wo findest du sowas nur immer?

Du weißt doch, das ich gerne bei Dir Klaue

[Frabbing]

[hjbremer]

Klasse

PS:
; Minimum supported client, Windows 2000 Professional
; Minimum supported server, Windows 2000 Server
; DLL, Comctl32.dll (version 5.81 Or later)

[Thorium]

PS:
; Minimum supported client, Windows 2000 Professional
; Minimum supported server, Windows 2000 Server
; DLL, Comctl32.dll (version 5.81 Or later)

Bist du dir sicher dass das stimmt?
Es wurden alle Systeme vor Win 2000 aus der MSDN rausgeworfen. Da steht bei allem was sogar schon in Win 95 verfügbar war minimum Windows 2000.

[rolaf]

Icon spiegeln (windows only)

Luschtig

Wüßte jetzt aber nicht wo man es einsetzen könnte.