XProfan

- Page 1 -

I had it first hither move - there I do not absolutely clear is the it itself circa a XProfan-bow deals.

into Bugnity come only Definitive.

If it itself differently herausstellt - Better get going zurückgeschoben.

salvo.

08/06/05 ▲

Michael
Dell

Hi,

Have the program time multiple launched and see there, to individual
crash plunge too the system!!

think of The Speicherverwaltung of Win98/SE & eff. ME, so was z.B.
the stature the SWAP- File aufs zehnfache angestiegen (I had long Nich).

recommend to safety whom multiple Start To prevent.

Salu...

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

it should fixes go obs one XProfanBug (or) | (and/or) one Toolbarproblem is.

Michael
Dell

Yes,

wished the Prog therefore with Profan2Cpp(v1.4.9a) create but
DrawPic is well not yet Umgesetzt.

Salu...

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Jörg
Sellmeyer

The problem shining only/mainly in the Context with Prfellow aufzutreten. using You too Prfellow or have You it differently ausprobiert?
After several erfolglosen (no crash) try directly from the Explorer (only prf-File by Double click launched) have ichs once more with Prfellow attempts and Kabumm!...

I Please means wagemutige Prfellowbenutzer whom code time from Prfellow out to start.
though absolutely any programs before terminate and the Reset-button entrosten

Greeting
Jörg

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

Jörg
Sellmeyer

I have time yet something moreover ausprobiert. of these code shining it To functions:
Compile Mark Separation

Declare appexit%,hBild&,TB#,Engage%
 $H WINDOWS.PH
 $H commctrl.ph
 $I RGHTOOLBAR.INC
Def GetSysColor(1) !USER32,GetSysColor
Def TBClicked(1) Abs(%menuitem) = &(1)
UserMessages 16

Proc SysTrans

    nach Michael Dell
    http://www.rgh-soft.de/forum01/read.php?f = 9&i = 1981&t = 1870#reply_1981
    hier sind die Veränderungen
    Parameters BmpNameIn$,BmpNameOut$
    MCls 128,16
    StartPaint -1
    Cls GetSysColor(15)
    LoadBmp BmpNameIn$,0,0;-1
    SaveBmp BmpNameOut$,0,0-128,16
    EndPaint

EndProc

Proc MyToolBar

    Declare tmpBild&,bmp$
    Randomize
    bmp$ = $TempDir + BB + Hex$(Rnd(50000)) + BB + Hex$(Rnd(50000)) + .bmp
    SysTrans Toolbar.bmp,bmp$
    transparente Buttons jetzt nicht mehr via Create(hPic,-1,...)
    hBild& = create(HPIC,-1,bmp$)
    Erase bmp$
    TB# = New(RGHToolbar,%HWnd,hBild&,0,16,2000,0)
    TB#.AddButton(0,2000,Button 1)
    TB#.Separator()
    TB#.AddButton(1,2001,Button 2)
    TB#.AddButton(2,2002,Button 3)
    TB#.Separator()
    TB#.AddButton(4,2003,Button 4)
    TB#.AddButton(5,2004,Button 5)
    TB#.CheckButton(2004,1)
    TB#.HideButton(2004)
    TB#.Separator()
    TB#.AddButton(3,2005,Ende)

EndProc

WindowTitle Test
WindowStyle $023A
SetTrueColor 1
Window 100,100-150,56
Cls GetSysColor(15)
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
MyToolBar

WhileNot appexit%

    WaitInput
    Case Or(%umessage = 16,appexit% > 0):Break

    If TBClicked(2005)

        appexit% = 1

    ElseIf TBClicked(2000)

        WindowTitle Button 1 gedrückt

    ElseIf TBClicked(2001)

        WindowTitle Button 2 gedrückt

    ElseIf TBClicked(2002)

        WindowTitle Button 3 gedrückt

    ElseIf TBClicked(2003)

        Engage% = 1
        TB#.HideButton(2003)
        TB#.ShowButton(2004)

    ElseIf TBClicked(2004)

        Engage% = 0
        TB#.HideButton(2004)
        TB#.ShowButton(2003)

    EndIf

Wend

The crash in the first code shining however mainly in link with others Programs (by me z.B. Firefox) aufzutreten.
If I Firefox walk have need it only few starts and then comes the crash.
it would nice, if the an or others time whom courage aufbringt the To testing (Warnungen see first Posting

)

Greeting
Jörg

P.s.

XPSE-View source recognized.Precompiler XPSE for process needed.

the is correct incidentally not!!

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

XPSE-View source recognized. Precompiler XPSE for process needed.

the is correct incidentally not!!

it is correct the not is correct.

lying on the URL in the Rem - // - habs korrigiert.

salvo, iF.

Michael
Dell

wonderful, now runs!

Have the Prog normal prepares (without PrFellow) and then
fifteen time launched (no other Program active!) but this time
running everything lovely, no crash More!

lying well means still on DrawPic.

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Jörg
Sellmeyer

Yes, by me runs now too free from problems. Schade, I found The simple Possibility a Bitmapresource To use so useful.
now must again The Api ran. time see obs with DrawExtBmp too goes.

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