[*]Profan

Deutsch

H.Brill

Mittlerweile arbeite ich sehr gerne mit der Toolbar
und den integrierten Bildern der Toolbar32 als Bitmap.
Nun ist es so, daß nicht jeder einen Ressourceneditor
oder ein sonstiges Tool benutzen mag, um die einzelnen
Bilder zu sichten bzw. deren Position zu ermitteln.

Mit einem kleinen Programm ist das ja sehr gut zu
ermitteln :
Kompilieren Markieren Separieren

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 meine Anregung :
Vielleicht kann Roland ja ein solches Gesamtbild
mit Nummern in die Hilfe bei der Abteilung Toolbar
einbetten. Damit entfällt das nervige Suchen nach
der Position der einzelnen Bilder, wenn man die
Toolbar benutzen möchte.

Gerade für Einsteiger oder Anfänger wäre das von
Vorteil. Der hätte dann alles Nötige auf einen 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 zitieren Zeilenweise zitieren

Michael
W.

Ja, dafür.

[OFFTOPIC]Müssen wir jetzt eigentlich in jedes Programm "SetActiveWindow" mit einbauen? MS scheint es ja nicht auf die Reihe zu bekommen.

Es ist mir auch und besonders bei allen Meldungsfenstern ohne Fenstertitel aufgefallen, das diese immer hinter dem eigentlichen Programm aufgehen.

Wenn mal etwas nicht mehr funktioniert, dann erst die Fenster verschieben (Ostereier suchen).
[/OFFTOPIC]

Zurück zum Thema: Die Nummerierung sollte bei allen Icons in XProfan angegeben werden. Allerdings dann mit Versionsnummer.
Es hat sich ja in der Vergangenheit gezeigt, das es auch Änderungen geben kann.

P.S.:
Kleines Problem noch:

Der Startwert von y ist 10.
Es werden aber 15 abgezogen. Damit fehlt dem BMP dann oben ein Teil von den Ziffern...

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

16.08.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Danke, ist mir gar nicht so aufgefallen.
Natürlich muß der Startwert von y dann auch 15 sein.

Hab es oben geändert.

16.08.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Da fällt mir ein, was ich vergessen habe!

Eigentlich wollte ich einen entsprechenden "Helfer" noch im Helfer-Menü unter ASCII-Tabelle einfügen, da ich die Nummern auch nicht im Kopf habe. Mein Code:
Kompilieren Markieren Separieren

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

WaitEnd

Die Nummer wird beim Darüberfahren angezeigt. In der nächsten XProfed-Version sollte ich so etwas einbauen.

Gruß
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 zitieren Zeilenweise zitieren

H.Brill

Hallo Roland,
Hast ja bei deinen XProfan - eigenen Icons
in der Hilfe

Tabelle: XProfan-Icons

auch so eine Seite eingebaut. Sowas, dann
für die TOOLBAR32 an geeigneter Stelle,
sollte schon genügen.

Da brauchst du dir nicht viel Arbeit mit machen.

PS: Was hat das
Kompilieren Markieren Separieren

WaitEnd

am Ende deines Codes zu bedeuten ?
Ist nirgends in der Hilfe erläutert. Jedenfalls
kennt es der Interpreter.

16.08.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

WAITEND wartet auf die Beendigung des Programmes z.B. durch den "x"-Button im Fenstertitel.

(Hatte ich vor Jahren mal testweise eingebaut, dann aber vergessen, es in die Hilfe aufzunehmen.)

Gruß
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 zitieren Zeilenweise zitieren

H.Brill

Aha, wie ich das sehe, braucht man dann dieses nicht mehr :
Kompilieren Markieren Separieren

Case %Key = 2 : Break

Ist ja immer wieder erstaunlich, wie man Roland einen
Joker im Ärmel entlocken kann.

Muß doch mal einen Hexviewer installieren, damit ich
den Interpreter nach Rolands vergessenen Gimmiks
durchforsten kann.

PS: Ist es schon jemandem aufgefallen, daß der
nach rechts zeigende Pfeil Nr. 67 in der Toolbar32
kein Pendant (nach links zeigend) hat ?
Der sollte doch auch vorhanden sein, vorallem, wenn
man z.B. diese Pfeile fürs Blättern in einer DB anbietet.

Ähnlich ist es auch bei den beiden grünen Pfeilen.

16.08.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
W.

...und das Hilfe-Buch und das Uralt-Telefon...
(aber die grünen Pfeile sind "Ausführen" und "Kompilieren")

Vielleicht hilft uns Byte-Attack ja mal mit einer vollgestopften DLL mit Kontrast-Icons und auch Kunti-Bunti-Icons in verschiedenen Größen.
Natürlich dann mit einer BMP-Tafel wo's schön durchnummeriert ist.

P.S.:
Das wird anders gedeutet mit den Pfeilen: (ab 63)
ganz nach vorne, ganz nach hinten, zurück, vor, Play/Start, Umschalter zwischen Start und Pause, Pause, Stop,....

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

16.08.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

HofK

RGH (16.08.15)

(Hatte ich vor Jahren mal testweise eingebaut, dann aber vergessen, es in die Hilfe aufzunehmen.)

Wie konnte ich nur 5 Jahre ohne auskommen

, sogar die Syntaxhervorhebung klappt bei 11.2 Free schon!

XProfan 11

16.08.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Das geht sogar mit einer Endlosschleife :
Kompilieren Markieren Separieren

WindowTitle "Test -Fenster"
Window 800, 600

While 1

    WaitInput

EndWhile

WaitEnd

16.08.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
W.

Nein, nicht wirklich.....

Daran ist das WaitInput beteiligt, das WaitEnd bekommt davon nichts mit.

Durch das WaitEnd kann aber die Schleife entfallen.

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

16.08.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Nur mal so als Hinweis:
In deinem Anzeigeprogramm oben spielt die Zeile "Case Key = 2" auch keine Rolle. Das Programm beendet auch ohne. Du musst die UserMessage $10 setzen, damit du das Beenden über das Kreuz abfangen kannst.

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