![]() |
Anzeige:
|
|
|||||||
| Helfer & Tools Programme für und in XProfan und Fragen dazu. |
|
![]() |
|
|
LinkBack | Themen-Optionen | Ansicht |
|
|
#1 (Direktlink) |
|
Super-Moderator
![]() Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.093
|
Eine kleine undokumentierte Spielerei ab Windows XP (SP2):
Code:
'
' (w) Frabbing für Paules-PC-Forum:
' http://www.paules-pc-forum.de/forum/xprofan/
'
Cls
Declare icon&, loicon&, hiicon&, mirroricon&
icon& = Create("hIcon", "Profan")
mirroricon& = External("kernel32", "GetProcAddress", UseDll("comctl32"), 414)
DrawIcon icon&, 16, 16
If mirroricon&
Call(mirroricon&, 0, Addr(icon&))
DrawIcon icon&, 64, 16
Endif
WaitInput
DeleteObject icon&
__________________
Gruß, Frank ![]() Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
|
|
#2 (Direktlink) | |
|
Ist öfter hier
![]() Registriert seit: 12.10.2009
Ort: Berlin
Alter: 48
Beiträge: 52
|
Zitat:
Nicht Jeder hat die neuste Version von XProfan !!! SOLLTE IMMER ANGEGEBEN WERDEN Unter XProfan 10 Fehler Zeile 9 Ansonsten toll . Mfg
__________________
Ubuntu 10.04 LTS 64 , Win XP-Prof. SP3 , Win 7 Ultimate 32 ,XProfan 10,XProfan 11Free |
|
|
|
|
|
|
#3 (Direktlink) |
|
Super-Moderator
![]() Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.093
|
Ich hab das jetzt nicht mit allen Versionen ausprobiert...
Jemand eine Idee, warum die Zeile mit der 10er Version nicht läuft?
__________________
Gruß, Frank ![]() Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
|
#4 (Direktlink) | |
|
Forenmaskottchen
![]() Registriert seit: 08.02.2009
Ort: Nußloch (bei Heidelberg)
Beiträge: 550
|
Zitat:
(Siehe XProfan-Hiilfe unter "DrawIcon" und "Was ist neu in Version 11".) Gruß Roland
__________________
Pentium D 2,8 GHz / 3 GB RAM / 500 GB HDD / ATI Radeon HD5450 1024 MB / Windows 7(32) - XProfan X2.0c AMD Athlon II X2 2,9 GHz / 3 GB RAM / 500 GB HDD / ATI Radeon 3000 / Windows 7(64) - XProfan X2.0c http://www.xprofan.de |
|
|
|
|
|
|
#5 (Direktlink) |
|
Super-Moderator
![]() Registriert seit: 06.02.2009
Ort: Coswig
Alter: 27
Beiträge: 1.159
|
Na gut, das lässt sich aber pipileicht umändern.
__________________
XProfan-Profi (XProfan X2+XPIA) http://jacdelad.bplaced.net http://jacdelad.square7.ch |
|
|
|
|
|
|
#6 (Direktlink) |
|
Super-Moderator
![]() Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.093
|
Ok, hier eine Variante für ältere XProfan's:
Code:
'
' (w) Frabbing für Paules-PC-Forum:
' http://www.paules-pc-forum.de/forum/xprofan/
'
Cls
Def DrawIconApi(4) !"user32","DrawIcon"
Declare icon&, loicon&, hiicon&, mirroricon&
icon& = Create("hIcon", "Profan")
mirroricon& = External("kernel32", "GetProcAddress", UseDll("comctl32"), 414)
DrawIconApi(%hdc2, 16, 16, icon&)
If mirroricon&
Call(mirroricon&, 0, Addr(icon&))
DrawIconApi(%hdc2, 64, 16, icon&)
Endif
Repaint
WaitInput
DeleteObject icon&
__________________
Gruß, Frank ![]() Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
![]() |
|
| Lesezeichen |
| Themen-Optionen | |
| Ansicht | |
|
|
Ähnliche Themen
|
||||
| Thema | Autor | Forum | Antworten | Letzter Beitrag |
| Systempartition spiegeln | Raja | Allgemein | 6 | 28.11.2006 20:56 |
| GIF spiegeln | Apollo_b | Software - Allgemein | 11 | 06.10.2006 18:39 |
| Spalten horizontal teilen | Philipp76 | Office-Anwendungen | 2 | 10.08.2005 10:57 |
| System spiegeln | Eric73 | Windows 95/98/ME/2000/NT | 2 | 16.06.2005 16:19 |
| Horizontal scrollen mit der Maus | Stev | Software - Allgemein | 1 | 14.11.2002 13:07 |