Author Topic: [Release] Window-Icon (Only Windows!!!)  (Read 6417 times)

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5021
  • O Rly?
    • View Profile
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!
« Last Edit: 2008-May-10 by trucidare »
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline Quentin

  • Prof. Inline
  • *****
  • Posts: 915
    • View Profile
Fenster-ICON setzen (Only Windows!!!)
« Reply #1 on: 2008-Jan-03 »
chic,

aber sind Icons normalerweise nicht 16x16 Pixel?
klappt zumindest auch damit.

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5021
  • O Rly?
    • View Profile
Fenster-ICON setzen (Only Windows!!!)
« Reply #2 on: 2008-Jan-03 »
Ok dann 16x16 ;)
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline trucidare

  • Administrator
  • Prof. Inline
  • *******
  • Posts: 1377
  • Bachelor of Fail
    • View Profile
Fenster-ICON setzen (Only Windows!!!)
« Reply #3 on: 2008-Jan-03 »
Gernot deine Inline Funktion wird beliebter ;)
Ich bin übrigens aus meiner WinterDepri raus und kann endlich wieder proggen hehe
MacBook Pro 2,2 GHz Core 2 Duo, 4 GB RAM, 160 GB HDD, 8600M GT
Core i3 - 3,07 GHz, 8 GB Ram, 2.5 TB HDD, Geforce GTX 260+ OC

Offline Kitty Hello

  • code monkey
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 10713
  • here on my island the sea says 'hello'
    • View Profile
    • http://www.glbasic.com
Fenster-ICON setzen (Only Windows!!!)
« Reply #4 on: 2008-Jan-04 »
Yu-huuuuuuu!

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5021
  • O Rly?
    • View Profile
Fenster-ICON setzen (Only Windows!!!)
« Reply #5 on: 2008-Jan-04 »
:good: mach ich doch alles für meine geliebte Community ;)
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5021
  • O Rly?
    • View Profile
Fenster-ICON setzen (Only Windows!!!)
« Reply #6 on: 2008-Apr-27 »
Ich hab keine Ahnung ^^
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline trucidare

  • Administrator
  • Prof. Inline
  • *******
  • Posts: 1377
  • Bachelor of Fail
    • View Profile
Fenster-ICON setzen (Only Windows!!!)
« Reply #7 on: 2008-Apr-27 »
das hast du doch selbst verschoben schranzi ^^
MacBook Pro 2,2 GHz Core 2 Duo, 4 GB RAM, 160 GB HDD, 8600M GT
Core i3 - 3,07 GHz, 8 GB Ram, 2.5 TB HDD, Geforce GTX 260+ OC

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5021
  • O Rly?
    • View Profile
Fenster-ICON setzen (Only Windows!!!)
« Reply #8 on: 2008-Apr-27 »
Deshalb sag ich ja kein Ahnung :D

Weils mit Inline und WinAPI war ?
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5021
  • O Rly?
    • View Profile
Fenster-ICON setzen (Only Windows!!!)
« Reply #9 on: 2008-Apr-28 »
:) dann ist ja gut :P
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard