GLBasic forum

Codesnippets => Inline / 3rd party => Topic started by: Schranz0r on 2008-Jan-03

Title: [Release] Window-Icon (Only Windows!!!)
Post by: Schranz0r on 2008-Jan-03
So hier mal eine möglichkeit, ein Fenstericon zu setzen, ohne einen Recourcenhacken zuhilfe zu nehmen!

Leider nur Windows ONLY!


Code: GLBasic [Select]
SetIcon("icon.ico")

WHILE TRUE

        PRINT "look at the window-icon!!",10,10

SHOWSCREEN
WEND
END


FUNCTION Close:
ENDFUNCTION

INLINE
        DECLARE_C_ALIAS(u32_GetActiveWindow,"user32.dll", "GetActiveWindow",(),int);
        DECLARE_C_ALIAS(u32_SetClassLong,"user32.dll", "SetClassLongA",(int,int,int), void);
        DECLARE_C_ALIAS(shell32_LoadIcon,"Shell32.dll", "ExtractIconA",(int,const char*,int), int);
ENDINLINE
 
FUNCTION SetIcon: Iconname$ // use a 16x16 icon
LOCAL hwnd, icon
INLINE
        hwnd = u32_GetActiveWindow();
        icon = shell32_LoadIcon(hwnd,Iconname_Str.c_str(),0);
        u32_SetClassLong(hwnd,-14,icon);
ENDINLINE
ENDFUNCTION
Wie erstelle ich ein Icon?
1.öffne Paint
2.bild auf 16x16 einstellen
3.was reinmalen
4.speichern unter "name.ico" , drücke ENTER

Fertig!
Title: Fenster-ICON setzen (Only Windows!!!)
Post by: Quentin on 2008-Jan-03
chic,

aber sind Icons normalerweise nicht 16x16 Pixel?
klappt zumindest auch damit.
Title: Fenster-ICON setzen (Only Windows!!!)
Post by: Schranz0r on 2008-Jan-03
Ok dann 16x16 ;)
Title: Fenster-ICON setzen (Only Windows!!!)
Post by: trucidare on 2008-Jan-03
Gernot deine Inline Funktion wird beliebter ;)
Ich bin übrigens aus meiner WinterDepri raus und kann endlich wieder proggen hehe
Title: Fenster-ICON setzen (Only Windows!!!)
Post by: Kitty Hello on 2008-Jan-04
Yu-huuuuuuu!
Title: Fenster-ICON setzen (Only Windows!!!)
Post by: Schranz0r on 2008-Jan-04
:good: mach ich doch alles für meine geliebte Community ;)
Title: Fenster-ICON setzen (Only Windows!!!)
Post by: Schranz0r on 2008-Apr-27
Ich hab keine Ahnung ^^
Title: Fenster-ICON setzen (Only Windows!!!)
Post by: trucidare on 2008-Apr-27
das hast du doch selbst verschoben schranzi ^^
Title: Fenster-ICON setzen (Only Windows!!!)
Post by: Schranz0r on 2008-Apr-27
Deshalb sag ich ja kein Ahnung :D

Weils mit Inline und WinAPI war ?
Title: Fenster-ICON setzen (Only Windows!!!)
Post by: Schranz0r on 2008-Apr-28
:) dann ist ja gut :P