| |
| |
|
| - Page 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 Aiuto 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 per 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 ▲ |
|
| |
|
|
| |
| |
| - Page 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
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 Aiuto
Tabelle: XProfan-Icons
auch so eine Seite eingebaut. Sowas, dann
per 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 Aiuto 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 Programmi z.B. durch den "x"-Button im Fenstertitel.
(Hatte ich vor Jahren mal testweise eingebaut, dann aber vergessen, es in die Aiuto aufzunehmen.)
Saluto
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 Aiuto-Buch und das Uralt-Telefono...
(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 Aiuto 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 circa das Kreuz abfangen kannst. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 17.08.2015 ▲ |
|
| |
|
| |
| |
| - Page 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 circa das Kreuz abfangen kannst.
Da ging ich von der Aiuto 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 |
|
| |
|
|
ByteAttack | mal durchnummeriert... [...]  |
|
| |
| |
| |
|
|
ByteAttack |
|
| |
| |
| |
|
(898)
Deutsch
English
Français
Español
Italia