[*]Profan

English

H.Brill

in the meantime work I very gladly with the Toolbar
and the integrierten Images the Toolbar32 as Bitmap.
now is it so, that not everyone a Ressourceneditor
or one sonstiges Tool using likes, around the individual
Images To sort or. its position To detect.

with one small Program is the Yes very well To
detect :
Compile Mark Separation

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

now my Why stay :
Perhaps can Roland yes a solches Gesamtbild
with numbers into Help the section Toolbar
einbetten. so entfällt the nervige Search to
the position the individual Images, if one The
Toolbar using would like.

straight for Beginner or Beginner would the of
benefit. The had then everything Nötige on a look.

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.

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
W.

Yes, for.

[OFFTOPIC]must we now really in each Program "SetActiveWindow" with install? MS shining it Yes not The row To get.

its me too and particularly with all Meldungsfenstern without Window Title noticed, thats always behind the actual Program open.

If time something not any more functions, then first The Window move (Ostereier search).
[/OFFTOPIC]

back about: The Nummerierung ought to with all Icons in XProfan indicated go. though then with version number.
it has itself Yes in the past tense viewed, the it too Changes give can.

P.s.:
small trouble yet:

The Startwert of y is 10.
it go but 15 abgezogen. so missing the BMP then supra one part from the Digits...

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

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

thanks, is me none so noticed.
naturally must the Startwert of y then too 15 his.

Have it supra changed.

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

there falls me one, I forget have!

really wished I a suitable "Helfer" yet in the aide-Menu under ASCII-scheduler insert, I The numbers neither in the head have. my code:
Compile Mark Separation

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

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

Hello Roland,
have Yes with your XProfan - own Icons
in the Help

scheduler: XProfan-Icons

too so a Page installed. Something like, then
for TOOLBAR32 on geeigneter place,
ought to already genügen.

there do you need you not plenty work with make.

PS: what has the
Compile Mark Separation

WaitEnd

end your Codes To mean ?
is nirgends in the Help explains. anyway
knows it the Interpreter.

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

WAITEND wait on The termination the Program z.B. by the "x"-Button in the Window Title.

(having I to years time testweise installed, then but forget, it into Help aufzunehmen.)

Greeting
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

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

I see, How I the see, need one then this not any more :
Compile Mark Separation

Case %Key = 2 : Break

is Yes over ands over again amazing, How one Roland a
Joker in the Ärmel elicit can.

mandatory still time a Hexviewer install, so I
whom Interpreter to Rolands forgotten Gimmiks
durchforsten can.

PS: is it already jemandem noticed, that the
to right zeigende arrow Nr. 67 in the Toolbar32
no Pendant (to left zeigend) has ?
The ought to still too present his, vorallem, if
one z.B. these Pfeile for flaking in a DB anbietet.

Similar is it too with whom both green Pfeilen.

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
W.

...and the Help-book and the Uralt-Phone...
(but the green Pfeile are "Ausführen" and "Kompilieren")

Perhaps helps us byte-Attack Yes time with of/ one jam-packed DLL contrast-Icons and Kunti-Bunti-Icons in different sizes.
naturally then with of/ one BMP-boards wo's beautiful durchnummeriert is.

P.s.:
This will differently gedeutet with the Pfeilen: (ex 63)
integrally to in front, integrally to hinten, back, to, Play/Start, Umschalter between Start and interval, interval, Stop,....

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

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

HofK

RGH (16.08.15)

(having I to years time testweise installed, then but forget, it into Help aufzunehmen.)

How could I only 5 years without get along

, even The Syntaxhervorhebung works with 11.2 Free already!

XProfan 11

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

the goes even of/ one Endlosschleife :
Compile Mark Separation

WindowTitle "Test -Fenster"
Window 800, 600

While 1

    WaitInput

EndWhile

Wa

/a>

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
W.

No, not really.....

on it is the WaitInput involved, the WaitEnd get of it nothing with.

by the WaitEnd can but the Loop entfallen.

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

08/16/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

only time so as Info:
in your Anzeigeprogramm supra game The row "Case Key = 2" too no role. the Program exits too without. You must The UserMessage $10 settle, so You the terminate over the Cross intercepting can.

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