Seite 1 von 1
Icon spiegeln (windows only)
Verfasst: 14.02.2011 22:05
von 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)
Re: Icon spiegeln (windows only)
Verfasst: 14.02.2011 22:10
von RSBasic
@ts-soft
Great
Re: Icon spiegeln (windows only)
Verfasst: 14.02.2011 22:23
von Frabbing
Wo findest du sowas nur immer?
Re: Icon spiegeln (windows only)
Verfasst: 14.02.2011 22:25
von ts-soft
Frabbing hat geschrieben:Wo findest du sowas nur immer?
Du weißt doch, das ich gerne bei Dir Klaue
Re: Icon spiegeln (windows only)
Verfasst: 14.02.2011 22:58
von Frabbing
Re: Icon spiegeln (windows only)
Verfasst: 15.02.2011 00:11
von hjbremer
Klasse
PS:
; Minimum supported client, Windows 2000 Professional
; Minimum supported server, Windows 2000 Server
; DLL, Comctl32.dll (version 5.81 Or later)
Re: Icon spiegeln (windows only)
Verfasst: 15.02.2011 08:25
von Thorium
hjbremer hat geschrieben:
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.
Re: Icon spiegeln (windows only)
Verfasst: 15.02.2011 08:31
von rolaf
Icon spiegeln (windows only)
Luschtig
Wüßte jetzt aber nicht wo man es einsetzen könnte.
