| |
|
|
- Seite 1 - |
|
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 : KompilierenMarkierenSeparierenDeclare 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 ▲ |
|
|
|
|
| |
|
- Seite 1 - |
|
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: KompilierenMarkierenSeparierenwindowstyle 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 X2Intel 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 ▲ |
|
|
|
|
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 KompilierenMarkierenSeparieren am Ende deines Codes zu bedeuten ? Ist nirgends in der Hilfe erläutert. Jedenfalls kennt es der Interpreter. |
|
|
| 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 ▲ |
|
|
|
|
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 X2Intel 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 ▲ |
|
|
|
|
H.Brill | Aha, wie ich das sehe, braucht man dann dieses nicht mehr : KompilierenMarkierenSeparieren 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. |
|
|
| 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 ▲ |
|
|
|
|
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 ▲ |
|
|
|
|
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!
|
|
|
| |
|
|
|
H.Brill | |
|
| 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 ▲ |
|
|
|
|
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 X3System: Windows 8/10, XProfan X4 Programmieren, das spannendste Detektivspiel der Welt. | 16.08.2015 ▲ |
|
|
|
|
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 ... | 17.08.2015 ▲ |
|
|
|
| |
|
- Seite 2 - |
|
|
H.Brill | Michael W. (16.08.15)
Durch das WaitEnd kann aber die Schleife entfallen.
Ja, aber nur, wenn man sonst nichts abzufragen hat. Ich mach es dann lieber auf alt hergebrachte Weise. Ist sowieso selten, daß ich sonst nichts abfrage. Meistens sind bei mir noch Buttons, MenuItems usw. dabei.
Jörg Sellmeyer (17.08.15)
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.
Da ging ich von der Hilfe aus und weil Roland das in manchen Beispielcodes auch so gemacht hatte.
So ganz logisch finde ich es aber nicht, daß ungewollt aus der Schleife rausgesprungen wird : KompilierenMarkierenSeparieren Da frage ich doch besser die UserMessage $10 ab. Man hat ja öfter mal noch Dateien offen oder sonstige Aufräumarbeiten zu erledigen. Da lasse ich das besser nicht zur Gewohnheit werden und bleibe bei der alten Vorgehensweise.
Als alter Hase hat man da seine Normen. Sowas geht auch in keiner anderen Programmiersprache, also -> Gewohnheit von mir. |
|
|
| 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. | 17.08.2015 ▲ |
|
|
|
|
ByteAttack | mal durchnummeriert... [...] |
|
|
| |
|
|
|
ByteAttack |
|
|
| |
|
|