[*]Profan

Español

H.Brill

Mittlerweile arbeite Yo muy gerne con el Toolbar
y el integrierten Bildern el Toolbar32 como Mapa de bits.
Nun es así, daß no cada una Ressourceneditor
oder una sonstiges Tool benutzen mag, a individual
Bilder a sichten o. deren Position a ermitteln.

Mit una pequeño Programa es el sí muy bien a
ermitteln :
Kompilieren Marca Separación

Declare Handle iList, hBild, sbmp
Declare Int anz, p, x, y
WindowTitle "Toolbar32 -Viewer"
Window 800, 600
hBild = @create("hPic", 0, "TOOLBAR32")
iList = @Create("ImageList", 32, 32, hBild)
anz = @GetCount(iList) - 1
x = 15 : y = 15 : p = 0
Mcls 600, 500
StartPaint -1

WhileLoop 0, anz - 1

    Inc p
    DrawText x + 15, y - 15, Str$(&LOOP)
    DrawIcon iList, &LOOP, x + 12, y

    If (p MOD 10) = 0

        x = 15
        Inc y, 60

    Else

        Inc x, 50

    EndIf

EndWhile

EndPaint
sbmp = @Create("hPic", 0, "&MEMBMP")
StartPaint %HWnd
DrawPic sbmp, 10, 20;-1
EndPaint
SavePic $ProgDir + "Toolbar32.bmp", sbmp

While 1

    WaitInput
    Case %Key = 2 : Break

EndWhile

DeleteObject hBild, sbmp
End

Nun mi Anregung :
Tal vez kann Roland sí una solches Gesamtbild
con Nummern en el Ayuda en Abteilung Toolbar
einbetten. Damit entfällt el nervige Suchen después de
el Position el individual Bilder, si uno el
Toolbar benutzen möchte.

Gerade para Einsteiger oder Principiante wäre el de
Vorteil. Der hätte entonces alles Nötige en una Blick.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
W.

Sí, dafür.

[OFFTOPIC]Müssen wir ahora eigentlich en cada Programa "SetActiveWindow" con einbauen? MS scheint lo sí no en el Reihe a bekommen.

Es me auch y besonders en allen Meldungsfenstern sin Fenstertitel aufgefallen, el esta siempre hinter el real Programa aufgehen.

Wenn veces algo no mehr funktioniert, entonces sólo el Ventana mover (Ostereier suchen).
[/OFFTOPIC]

Zurück para Thema: El Nummerierung debería en allen Icons en XProfan angegeben voluntad. Aunque entonces con Versionsnummer.
Lo ha se sí en el Vergangenheit gezeigt, el lo auch Los cambios geben kann.

P.S.:
Kleines Problema todavía:

Der Startwert de y es 10.
Lo voluntad aber 15 abgezogen. Damit fehlt el BMP entonces oben una Teil de los Ziffern...

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Gracias, me está nada así aufgefallen.
Natürlich muß el Startwert de y entonces auch 15 ser.

Hab lo oben geändert.

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Como fällt me una, Yo vergessen habe!

Eigentlich Yo quería una entsprechenden "Helfer" aún en Helfer-Menü bajo ASCII-Tabla einfügen, como Yo el Nummern auch no en el Kopf habe. Mein Code:
Kompilieren Marca Separación

windowstyle 24
windowtitle "ToolbarIcons - Tooltips = Icon-Nummer"
window 600,220
var handle hBmp = create("hPic", 0, "TOOLBAR32")
var handle hIL  = create("ImageList", 32, 32, hBmp, rgb(192, 192, 192))
var handle hToolBar = Create("ToolBar", %hWnd, hIL, 0, 16, 9000, 1)
DeleteObject hBmp

WhileLoop 0,72

    Toolbar("AddButton", hToolBar, &loop, &loop, str$(&loop))

EndWhile

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Hola Roland,
Hast sí en deinen XProfan - eigenen Icons
en el Ayuda

Tabla: XProfan-Icons

auch así una Página instalado. Algo como, entonces
para el TOOLBAR32 a geeigneter Punto,
debería ya genügen.

Como necesidad du dir no viel Arbeit con hacer.

PS: Was ha el
Kompilieren Marca Separación

WaitEnd

al Ende su Codes a bedeuten ?
Ist nirgends en el Ayuda erläutert. Jedenfalls
sabe lo el Interpreter.

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

WAITEND wartet en el Beendigung des Programmes z.B. por el "x"-Button en el Fenstertitel.

(Hatte Yo antes Jahren veces testweise instalado, entonces aber vergessen, lo en el Ayuda aufzunehmen.)

Saludo
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Aha, como yo sehe, braucht una continuación dieses no mehr :
Kompilieren Marca Separación

Case %Key = 2 : Break

Ist sí siempre otra vez erstaunlich, cómo Roland una
Joker en el Ärmel entlocken kann.

Muß doch veces a la Hexviewer installieren, así Yo
el Interpreter después de Rolands vergessenen Gimmiks
durchforsten kann.

PS: ¿Es ya jemandem aufgefallen, daß el
después de rechts zeigende Pfeil Nr. 67 en el Toolbar32
kein Pendant (después de links zeigend) ha ?
Der debería doch auch disponible ser, vorallem, si
uno z.B. esta Pfeile fürs Blättern en uno DB anbietet.

Ähnlich es incluso en el beiden grünen Pfeilen.

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
W.

...y el Ayuda-Buch y el Uralt-Telefon...
(aber el grünen Pfeile son "Ausführen" y "Kompilieren")

Tal vez hilft uns Byte-Attack sí veces con uno vollgestopften DLL con Kontrast-Icons y Kunti-Bunti-Icons en verschiedenen Größen.
Natürlich entonces con uno BMP-Tafel wo's schön durchnummeriert es.

P.S.:
Das se anders gedeutet con el Pfeilen: (de 63)
bastante después de vorne, bastante después de hinten, zurück, antes, Play/Start, Umschalter zwischen Start y Pause, Pause, Stop,....

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

HofK

RGH (16.08.15)

(Hatte Yo antes Jahren veces testweise instalado, entonces aber vergessen, lo en el Ayuda aufzunehmen.)

Como podría Yo sólo 5 Jahre sin auskommen

, incluso el Syntaxhervorhebung klappt en 11.2 Libre ya!

XProfan 11

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Es incluso con uno Endlosschleife :
Kompilieren Marca Separación

WindowTitle "Test -Fenster"
Window 800, 600

While 1

    WaitInput

EndWhile

Wa

/a>

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
W.

Nein, no wirklich.....

Daran es el WaitInput beteiligt, el WaitEnd bekommt su nichts con.

Durch el WaitEnd kann aber el Bucle entfallen.

XProfan X3
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

16.08.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Nur veces así como Referencia:
In deinem Anzeigeprogramm oben juega el Línea "Case Key = 2" auch ningún papel. Das Programa final auch sin. Usted musst el UserMessage $10 conjunto, así Si es usted el Beenden encima el Cruz abfangen kannst.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...