Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
4 - Anregungen & Vorschläge

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Neuerer Beitrag  |  Älteres Thema 
 Iconfeld
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   13.08.17 09:24

Hallo Roland,
wäre es möglich, bei

Create("Icon",N,S,X1,Y1)


alternativ auch ein IconHandle anzugeben ?

Create("Icon",N,[H,S],X1,Y1)


Also entweder Name oder Handle ?

zusätzlich wäre auch eine Option für Large Icons
interessant.

H.Brill
XProfan X4 + FreeProfan

Nachricht bearbeitet (13.08.17 10:13)

Beitrag beantworten
 
 Re: Iconfeld
Autor: Jacob Liebeck (---.telekabel-riesa.de)
Datum:   13.08.17 11:44

...oder wenn möglich dx und dy um die Größe zu bestimmen. Geht zwar auch mit der API CreateIconEx() aber da wird die Standardgröße genommen und gestreckt, auch wenn das Icon in größerer Größe vorliegt.

XProfan X4 Beta

Beitrag beantworten
 
 Re: Iconfeld
Autor: RGH (194.25.203.---)
Datum:   14.08.17 15:23

Gute Anregung!

Folgendes wird in X4 gehen:

Create("Icon", H, "Name", X, Y)
Wie bisher: Standardgröße 32*32

Create("Icon", H, "Name", X, Y, M)
Wenn M größer als 0 ist, wird das Icon in seiner Originalgröße (größte Variante im Icon) dargestellt. (API: Zusätzlicher Stil ss_realsizeimage)

Create("Icon", H, "Name", X, Y, DX, DY)
Das Icon wird auf die Größe DX, DY gedehnt und angezeigt. (API: Zusätzlicher Stil ss_realsizecontrol)

Damit sollte Allen geholfen sein.

Gruß
Roland

Offizielle Homepage: http://www.xprofan.de
Der neue PROFAN-FAN-SHOP: http://www.spreadshirt.de/shop.php?sid=9330
Das kostenlose Kartenspiel: http://www.rgh-soft.de/sprace/sprace.htm

Beitrag beantworten
 
 Re: Iconfeld
Autor: Jacob Liebeck (---.telekabel-riesa.de)
Datum:   14.08.17 16:14

Was ist, wenn das Icon zum Beispiel schon als 64*64 und 32*32 vorliegt, im System 32*32 voreingestellt ist und man 64*64 anzeigen will? In meinem Fall (und damit meine ich diverse APIs) wird das kleinere Icon genommen und vergrößert, was aber sch**** ist.

XProfan X4 Beta

Beitrag beantworten
 
 Re: Iconfeld
Autor: Jacob Liebeck (---.telekabel-riesa.de)
Datum:   14.08.17 16:15

Ok, ich hatte wieder nicht richtig gelesen. Bleibt aber die Frage, wenn ich das Icon als 48*48 darstellen will, ob dann das kleinere oder das größere verwendet wird.

XProfan X4 Beta

Beitrag beantworten
 
 Re: Iconfeld
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   14.08.17 18:19

Super, Roland.
Ich denke da gerade an die ImageListe.
Wäre da, gerade für die Icons, ein

 ImageList("DeleteIcon", H, N)
 ImageList("ReplaceIcon", H,N,neuesIcohandle)
 ImageList("Insert", H, N, POS)
 


möglich ?
Auch ein Speichern der ImageListe als ganze Bitmap
wäre da interessant. Ich denke da an ein Tool, um
selber solche Toolbars (TOOLBAR32) zu erstellen
bzw. bei einer vorhandenen einzelne Teile auszutauschen.

H.Brill
XProfan X4 + FreeProfan

Nachricht bearbeitet (14.08.17 19:07)

Beitrag beantworten
 
 Re: Iconfeld
Autor: Michael Wodrich (---.customer.vsm.sh)
Datum:   14.08.17 19:23

Hier gibt es ein Test-Icon.
https://workupload.com/file/FLu4J9D

Schmeiß alle Layer heraus, die Du nicht brauchst (als Icon-Kopie speichern) und teste mal durch.

Marc-Gordon lieferte mir die Vorlage dafür. Wollte es erst mit Gimp bearbeiten, habe mich dann aber für das von Marc empfohlene Greenfish entschieden.

Gruß
Michael Wodrich

--
Programmieren, das spannendste Detektivspiel der Welt.
Programmierumgebung: | XProfan (neueste) | Win (neueste)


Nachricht bearbeitet (14.08.17 19:25)

Beitrag beantworten
 
 Re: Iconfeld
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   18.08.17 19:11

Super Sache mit dem flexiblen Iconfeld.
Geht gut mit Statics und sieht sogar noch
gut in Listboxen aus :

 $H windows.ph
 Declare Handle ico, st, lb
 Declare Long ende, y
 
 ende = 0
 y = 1
 Window 600, 400
 st = Create("Static", %HWnd, 10, 10, 200, 150)
 lb = Create("Listbox", %HWnd,0, 250, 10, 150, 100)
 
 Create("Icon", st, "A", 10, 10, 1)
 Create("Icon", st, "A", 100, 10)
 
 WhileLoop 1, 20
    Create("Icon", lb, "GESICHT", 1, y, 16, 16)
    AddString(lb, "     " + Str$(&LOOP) + ".Eintrag !")
    Inc y, 16
 EndWhile
 
 WhileNot ende
   WaitInput
   If Clicked(lb)
     ~InvalidateRect(lb, 0, 0)
     ~UpdateWindow(lb)
   EndIf
   Case %Key = 2 : ende = 1
 EndWhile
 End
 
 


H.Brill
XProfan X4 + FreeProfan

Beitrag beantworten
 Foren-Liste  |  Baumstruktur   Neuerer Beitrag  |  Älteres Thema 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org