Paules-PC-Forum.de Anzeige:

Microsoft Windows Intune: PC-Verwaltung und -Sicherheit in der Cloud: Updateverwaltung, Anti-Virus und vieles mehr!


Zurück   Paules-PC-Forum.de > Programmierung > XProfan > Helfer & Tools

Helfer & Tools Programme für und in XProfan und Fragen dazu.

EM-Tippspiel

Paule bei Facebook


Paule bei Twitter


Letzte Forenthemen
Gehe zum ersten neuen Beitrag Hilfe bei Script Erstellung
Aufrufe: 15, Antworten: 6
Gehe zum ersten neuen Beitrag PPF - Spiel "Wörter weiter...
Aufrufe: 26731, Antworten: 4207
Gehe zum ersten neuen Beitrag Von Live CD Windowspfad...
Aufrufe: 121, Antworten: 15
Gehe zum ersten neuen Beitrag Grand Prix 2012 Eurovision
Aufrufe: 36, Antworten: 4
Gehe zum ersten neuen Beitrag Bundesliga-Tippspiel Saision...
Aufrufe: 7572, Antworten: 179
Gehe zum ersten neuen Beitrag Verlust der Internetverbindung
Aufrufe: 43, Antworten: 2
Gehe zum ersten neuen Beitrag avs4you_com Lizenz oder Abo?
Aufrufe: 34, Antworten: 2
Gehe zum ersten neuen Beitrag Acer Aspire 8745ZG fährt...
Aufrufe: 25, Antworten: 4
Gehe zum ersten neuen Beitrag Dateien lassen sich nicht...
Aufrufe: 34, Antworten: 3
Gehe zum ersten neuen Beitrag Programmvorstellung:...
Aufrufe: 22, Antworten: 1
Zeige:





Antwort
 
LinkBack Themen-Optionen Ansicht
Alt 14.02.2011, 20:22   #1 (Direktlink)
Super-Moderator
 
Benutzerbild von Frabbing
 
Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.093
Standard Icons horizontal spiegeln

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.
Frabbing ist offline   Mit Zitat antworten
Werbung

Windows 7 Tipps und Tricks in Bildern

Alt 15.02.2011, 22:31   #2 (Direktlink)
Ist öfter hier
 
Benutzerbild von GAST-0815
 
Registriert seit: 12.10.2009
Ort: Berlin
Alter: 48
Beiträge: 52
Standard

Zitat:
Zitat von Frabbing Beitrag anzeigen
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&
DANKE ! , ABER unter XProfan 10 nicht lauffähig !!
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
GAST-0815 ist offline   Mit Zitat antworten
Alt 16.02.2011, 07:11   #3 (Direktlink)
Super-Moderator
 
Benutzerbild von Frabbing
 
Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.093
Standard

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.
Frabbing ist offline   Mit Zitat antworten
Alt 16.02.2011, 08:54   #4 (Direktlink)
RGH
Forenmaskottchen
 
Benutzerbild von RGH
 
Registriert seit: 08.02.2009
Ort: Nußloch (bei Heidelberg)
Beiträge: 550
Standard

Zitat:
Zitat von Frabbing Beitrag anzeigen
Ich hab das jetzt nicht mit allen Versionen ausprobiert...
Jemand eine Idee, warum die Zeile mit der 10er Version nicht läuft?
Weil es da diese Form des Befehles DrawIcon (mit Icon-Handle als ersten Parameter) noch nicht gab.

(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
RGH ist offline   Mit Zitat antworten
Alt 16.02.2011, 12:41   #5 (Direktlink)
Super-Moderator
 
Benutzerbild von Jac de Lad
 
Registriert seit: 06.02.2009
Ort: Coswig
Alter: 27
Beiträge: 1.159
Standard

Na gut, das lässt sich aber pipileicht umändern.
__________________
XProfan-Profi (XProfan X2+XPIA)
http://jacdelad.bplaced.net
http://jacdelad.square7.ch
Jac de Lad ist offline   Mit Zitat antworten
Werbung

Windows 7 Tipps und Tricks in Bildern

Alt 16.02.2011, 21:23   #6 (Direktlink)
Super-Moderator
 
Benutzerbild von Frabbing
 
Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.093
Standard

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.
Frabbing ist offline   Mit Zitat antworten
Antwort

  Paules-PC-Forum.de > Programmierung > XProfan > Helfer & Tools

Lesezeichen

Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen erlaubt, neue Themen zu verfassen.
Es ist Ihnen erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are an


Ä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



Alle Zeitangaben in WEZ +2. Es ist jetzt 16:51 Uhr.


Powered by vBulletin® Version 3.8.7 (Deutsch)
Copyright ©2000 - 2012, vBulletin Solutions, Inc.
Powered by vBCMS® 2.7.0 ©2002 - 2012 vbdesigns.de
(c) Paules-PC-Forum.de

::: Impressum :::

Search Engine Optimization by vBSEO 3.3.2