Profan Bitmap-Ressourcen Übersicht

JörgG

Hallöle,
weil ich mich aktuell grad ein wenig damit beschäftigt hab, hier ein kleines Abfallprodukt, das ich als Hilfsmittel fix gebastelt hab, damit ich die Profan-Ressourcen besser plündern kann
Die Nummern entsprechen also dem Index, mit dem das Bild/Icon letztendlich extrahiert werden kann.
Vllt. hilft es ja den einen oder anderen...

Code

Declare hIL&, hBMP&,xp&,yp&,bz&,br&
 WindowStyle 31
 Window 1000,650
 'BilderListe für Icons 16x16:
 UseFont "courier new",20,10,1,0,0
 DrawText 35,5, "Profan Bitmap-Ressource 'TOOLBAR' (16x16):"   
 hBmp& = create("hPic", 0, "TOOLBAR") 'die toolbar-icons aus der profanruntime in eine bitmap schreiben
 hIL& = Create("ImageList", 16, 16, hBMP&, rgb(192, 192, 192)) ' 
 DeleteObject hBmp& 'wird nicht mehr benötigt, weil in imagelist kopiert wurde
 UseFont "courier new",16,8,0,0,0
 xp& = 0 'startpos. bild waagerecht   
 yp& = 30 'startpos. senkrecht
 bz& = 0 'bildzähler
 br& = 20
 WhileLoop 0, GetCount(hIL&) - 1
    Inc bz& 'bild hochzählen
    Inc xp&,35 'pos. des nächsten bildes      
    DrawText xp&,yp&,Str$(&loop)       
    DrawIcon hIL&,&loop, xp&,yp& + 17
    If bz& = br& 'wenn bildreihe voll ist
      Clear bz&, xp& 'bildzähler + x-bildpos. resetten
      Inc yp&,45 'y-pos. der nächsten Bildreihe        
    EndIf
 EndWhile
 DeleteObject hIL& 'imagelist wird nicht mehr benötigt, weil icons extrahiert wurden
 
 'BilderListe für Icons 32x32:
   UseFont "courier new",20,10,1,0,0
 DrawText 30,yp& + 60, "Profan Bitmap-Ressource 'TOOLBAR32' (32x32):"  
 hBmp& = create("hPic", 0, "TOOLBAR32") 'die toolbar-icons aus der profanruntime in eine bitmap schreiben
 hIL& = Create("ImageList", 32, 32, hBMP&, rgb(192, 192, 192)) ' 
 DeleteObject hBmp& 'wird nicht mehr benötigt, weil in imagelist kopiert wurde   
 UseFont "courier new",16,8,0,0,0
 xp& = -30 'startpos. bild waagerecht   
 yp& = yp& + 85 'startpos. senkrecht
 bz& = 0 'bildzähler
 br& = 16
 WhileLoop 0, GetCount(hIL&) - 1
    Inc bz& 'bild hochzählen
    Inc xp&,60 'pos. des nächsten bildes      
    DrawText xp&,yp&,Str$(&loop)       
    DrawIcon hIL&,&loop, xp&,yp& + 17
    If bz& = br& 'wenn bildreihe voll ist
      Clear bz&  ' bildzähler resetten
      xp& = -30 'x-bildpos.resetten
      Inc yp&,70 'y-pos. der nächsten Bildreihe        
    EndIf
 EndWhile
 DeleteObject hIL& 'imagelist wird nicht mehr benötigt, weil icons extrahiert wurden  
 UseFont "courier new",20,10,1,0,0
 DrawText 25,yp& + 65, "Taste = Ende"
 WaitKey
 End

Alles anzeigen

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

ts-soft

Zitat von JörgG

Edit: weiß jetzt nicht genau, ob das Thema hier reingehöhrt - falls nicht, dann bitte verschieben

Ich denke mal, hier: http://www.paules-pc-forum.de/ppf/board9-pro…lfer-und-tools/
ist es besser aufgehoben, hier ist ja nur für Fragen, die dann irgendwann "unauffindbar" verschwinden.

JörgG

Jo hast Recht - hab schon Antrag gestellt

p. specht

Geniales Tool!

JörgG

Danke, mir ist aber grad aufgefallen, daß die 32x32 erst ab X2 existieren - da werd ich nochmal nachbessern.

JörgG

So! jetzt gehts auch für xProfan kleiner X2

Code

Declare hIL&, hBMP&,xp&,yp&,bz&,br&
 WindowStyle 31
 Window 750,300 
 UseFont "courier new",20,10,1,0,0
 DrawText 35,5, "Profan Bitmap-Ressource 'TOOLBAR' (16x16):"   
 hBmp& = create("hPic", 0, "TOOLBAR") 'die toolbar-icons aus der profanruntime in eine bitmap schreiben
 hIL& = Create("ImageList", 16, 16, hBMP&, rgb(192, 192, 192)) ' 
 DeleteObject hBmp& 'wird nicht mehr benötigt, weil in imagelist kopiert wurde
 UseFont "courier new",16,8,0,0,0
 xp& = 0 'startpos. bild waagerecht   
 yp& = 30 'startpos. senkrecht
 bz& = 0 'bildzähler
 br& = 20 'bilder pro reihe
 WhileLoop 0, GetCount(hIL&) - 1
    Inc bz& 'bild hochzählen
    Inc xp&,35 'pos. des nächsten bildes      
    DrawText xp&,yp&,Str$(&loop)       
    DrawIcon hIL&,&loop, xp&,yp& + 17
    If bz& = br& 'wenn bildreihe voll ist
      Clear bz&, xp& 'bildzähler + x-bildpos. resetten
      Inc yp&,45 'y-pos. der nächsten Bildreihe        
    EndIf
 EndWhile
 DeleteObject hIL& 'imagelist wird nicht mehr benötigt, weil icons extrahiert wurden
If (Val(SubStr$($profver,1,".")) > 11) Or (SubStr$($profver,2,"-") <> "NT") 'profanversion höher 11 oder FreeProfan?  
   Window  1000,650 'hurtig fenster größer machen
   UseFont "courier new",20,10,1,0,0
   DrawText 30,yp& + 60, "Profan Bitmap-Ressource 'TOOLBAR32' (32x32):"  
   hBmp& = create("hPic", 0, "TOOLBAR32") 'die toolbar-icons aus der profanruntime in eine bitmap schreiben
   hIL& = Create("ImageList", 32, 32, hBMP&, rgb(192, 192, 192)) ' 
   DeleteObject hBmp& 'wird nicht mehr benötigt, weil in imagelist kopiert wurde   
   UseFont "courier new",16,8,0,0,0
   xp& = -30 'startpos. bild waagerecht   
   inc yp&,85 'startpos. senkrecht
   bz& = 0 'bildzähler
   br& = 16 'bilder pro reihe
   WhileLoop 0, GetCount(hIL&) - 1
      Inc bz& 'bild hochzählen
      Inc xp&,60 'pos. des nächsten bildes      
      DrawText xp&,yp&,Str$(&loop)       
      DrawIcon hIL&,&loop, xp&,yp& + 17
      If bz& = br& 'wenn bildreihe voll ist
        Clear bz&  ' bildzähler resetten
        xp& = -30 'x-bildpos.resetten
        Inc yp&,70 'y-pos. der nächsten Bildreihe        
      EndIf
   EndWhile
   DeleteObject hIL& 'imagelist wird nicht mehr benötigt, weil icons extrahiert wurden  
EndIf
 UseFont "courier new",20,10,1,0,0
 DrawText 25,yp& + 65, "Taste = Ende"
 WaitKey
 End

Alles anzeigen

ts-soft

Jetzt werden die grossen Icons im FreeProfan 64-bit, nicht mehr angezeigt
Version: 0.7-64

JörgG

Huch, an FreeProfan hab ich über nicht gedacht
Danke für den Hinweis, ich habs editiert - jetzt klappt es auch mit FreeProfan

Jetzt mitmachen!