XProfan

I have on this functions already since etlichen Profan-versions nothing more changed.

Greeting
Roland

RGH

means by me (Windows XP per in the klassischen Style) runs the following Program free from problems:
Compile Mark Separation

cls
print gettext$(findWindow(X))
clearlist
addwindows
print listbox$(Fensterliste, 1)
waitinpu

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

11/21/06 ▲

GDL

Hi,

Findwindow goes by me correct. have about but following question:

have with Findwindow the lever the launched 2.application determined.but How I get it now there,that the Prog which The 2.application started, these now minimizes?
Global(lever2.anwendung&,??)
find here whom Scancode not.thanks.

Hello
GDL

Windows7 Xprofan 8,9,10 [...]

[...]

11/22/06 ▲

Rolf
Koch

Hi GDL,
meinste something like?
Compile Mark Separation

declare finde&,showstat&
cls
shell Notepad.exe
finde&=Findwindow(Unbenannt - Editor)

if finde& > 0

    showstat&=showwindow(finde&,6)
    Print Notepad ist klein - Taste drücken

else

    Print Nix zum Verkleinern da :( - Taste drücken

endif

waitinput

if showstat&=1

    showstat&=showwindow(finde&,1)
    Print Notepad hat wieder Lust - Taste zum Beenden

else

    Print Was soll ich denn Vergrössern, Sie Schelm :)?

endif

waitinput

11/22/06 ▲

Nico
Madysa

I have Yes never behauptet, that it with you not goes, by me crashes something like constantly ex.
z.B. has The ReBar-demonstration of Uwe Pascal Niemeier forever not worked, To I fixes have, that the Abstürzer at
AddWindows lying.
gives it any known Windoofs-Spinnereien/Problems, which such command to that Abschmieren misleading?

Nico Madysa

too a Loop to that detain the Hauptprogammes helps not mode 2.
with Winexecwait goes it though.

As I said, It's all right now.I wanted to only Roland this yet communicating.

Hello
Georg

GDL

Hello Rolf,

many Thanks,It's all right.with lauter Scancode search have I on irgendeinen lane fixes and others things none in Betracht pulled.
to that Vorposting over again:
To XProfan10 have I it with
winexec(trafos.exe,2) resolved.
this goes but with XProfan10 komischerweise not any more.it'll of course in the Taskbar displayed and at 3tastengriff too as Process led, but its no surface present.One rechtsklick or doppelklick in the Taskbar can then the program vollends vanish.Anzeigemodus 1 goes but correct.As I said XProfan9 and XProfan8 weg.
Compile Mark Separation

clear fehler1%
name$=astart$+trafos.exe
fehler1%=winexec(name$,1)     Modus 2 geht nicht
clear num%

while num% =0

    num%=@FindWindow(Trafopanel)

/a>

Windows7 Xprofan 8,9,10 [...]

[...]

Jörg
Sellmeyer

Nico Madysa

How always:
One kurzer lauffähiger code, with the the trouble appears, otherwise is the only pure Rumstochern in the mist.

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

Jörg Sellmeyer

Nico Madysa

How always:
One kurzer lauffähiger code, with the the trouble appears, otherwise is the only pure Rumstochern in the mist.

@Jörg: this I had [t b] minimalbeispiel [t b] prepares

I mean the Text is so erschlagend the itself one Nonsourceposter (<-- lol watn Wort) richtig genervt fühlt

[tb]minimalbeispiel[/tb]

Hello Nico...

Perhaps fits [...]

too To your trouble???

Greeting

Andreas

11/24/06 ▲

Nico
Madysa

no, To dwell Have I Yes quite no internet.

OK, following Code crashes with
Compile Mark Separation

AddWindows

ex (through Trace-mode determined):
Compile Mark Separation

window 50,50-700,500
declare ReBar&,ReBar#,Lb1&,Lb2&,Lb3&,a#
dim a#,16
Lb1&=create(listbox,%hwnd,,0,0,0,0)
Lb2&=create(listbox,%hwnd,,0,0,0,0)
Lb3&=create(listbox,%hwnd,,0,0,0,0)
clearlist
addwindows
movelisttolist(Lb1&)
clearlist
addfonts
movelisttolist(Lb2&)
clearlist
addfiles *.*
movelisttolist(Lb3&)
clear a#
long a#,0=8
long a#,4=$FFFF---Alles initialisieren
external(comctl32.dll,InitCommonControlsEx,a#)
--Stil: $50000000 | ~CCS_NORESIZE | ~RBS_FIXEDORDER
ReBar&=Control(ReBarWindow32,,$50000804 ,10,10,600,400,%hwnd,1,0)
struct ReBar=Size&,Mask&,Style&,clrFore&,clrBack&,lpText&,cch&,iImage&,hwndChild&,
cxMinChild&,cyMinChild&,cx&,hbmBack&,wID&,cyChild&,cyMaxChild&,cyIntegral&,
cxIdeal&,lParam&,cxHeader&
dim ReBar#,ReBar--REBARBANDINFO
clear ReBar#

with ReBar#

    .Size&=sizeof(ReBar#)
    .Mask&=$71------RBBIM_STYLE | RBBIM_CHILD | RBBIM_CHILDSIZE | RBBIM_SIZE
    .cyMaxChild&=1--Darf nicht Null sein
    .Style&=256------------------------RBBS_NOGRIPPER (1. Band ohne Griff)
    .cxMinChild&=5---------------------Minimum Breite
    .cyMinChild&=height(ReBar&)--------Höhe des Bandes
    .cx&=100---------------------------Vorgabe Breite
    .hwndChild&=Lb1&-------------------Band 1
    sendmessage(ReBar&,1025,0,ReBar#)--RB_INSERTBAND
    .Style&=128------------------------RBBS_GRIPPERALWAYS (folgende Bänder mit Griff)
    .cxMinChild&=50--------------------Minimum Breite
    .cyMinChild&=200-------------------Höhe des Bandes
    .cx&=300---------------------------Vorgabe Breite
    .hwndChild&=Lb2&-------------------Band 2
    sendmessage(ReBar&,1025,1,ReBar#)--RB_INSERTBAND
    .cxMinChild&=10--------------------Minimum Breite
    .cyMinChild&=300-------------------Höhe des Bandes
    .hwndChild&=Lb3&-------------------Band 3
    sendmessage(ReBar&,1025,2,ReBar#)--RB_INSERTBAND

endwith

while 1

    waitinput

    if sendmessage(ReBar&,1051,0,0) > height(ReBar&)--1051 = RB_GETBARHEIGHT

        clear a#--Umklappen rückgängig, falls Gripper nach unten gezogen wurde
        sendmessage(ReBar&,1047,0,a#)--RB_SIZETORECT

    endif

./../function-references/XProfan/endwhile/'>endwhile

Nico Madysa

11/24/06 ▲

means by me working your code - here the Ablaufplan:
Compile Mark Separation

 $DEFINE XPSE
WINDOW 50,50-700,500
DIM A#,16
LB1&=CREATE(*listbox*,%HWND,**,0,0,0,0)
LB2&=CREATE(*listbox*,%HWND,**,0,0,0,0)
LB3&=CREATE(*listbox*,%HWND,**,0,0,0,0)
CLEARLIST
ADDWINDOWS **
MOVELISTTOLIST(LB1&)
CLEARLIST
ADDFONTS
MOVELISTTOLIST(LB2&)
CLEARLIST
ADDFILES **.**
MOVELISTTOLIST(LB3&)
CLEAR A#
LONG A#,0=8
LONG A#,4=$FFFF
EXTERNAL(*comctl32.dll*,*InitCommonControlsEx*,A#)
REBAR&=CONTROL(*ReBarWindow32*,**,$50000804 ,10,10,600,400,%HWND,1,0)
struct REBAR=SIZE&,MASK&,STYLE&,CLRFORE&,CLRBACK&,LPTEXT&,CCH&,IIMAGE&,HWNDCHILD&,CXMINCHILD&,CYMINCHILD&,CX&,HBMBACK&,WID&,CYCHILD&,CYMAXCHILD&,CYINTEGRAL&,CXIDEAL&,LPARAM&,CXHEADER&
DIM REBAR#,REBAR
CLEAR REBAR#

WITH REBAR#

    .SIZE&=SIZEOF(REBAR#)
    .MASK&=$71
    .CYMAXCHILD&=1
    .STYLE&=256
    .CXMINCHILD&=5
    .CYMINCHILD&=HEIGHT(REBAR&)
    .CX&=100
    .HWNDCHILD&=LB1&
    SENDMESSAGE(REBAR&,1025,0,REBAR#)
    .STYLE&=128
    .CXMINCHILD&=50
    .CYMINCHILD&=200
    .CX&=300
    .HWNDCHILD&=LB2&
    SENDMESSAGE(REBAR&,1025,1,REBAR#)
    .CXMINCHILD&=10
    .CYMINCHILD&=300
    .HWNDCHILD&=LB3&
    SENDMESSAGE(REBAR&,1025,2,REBAR#)

ENDWITH

WHILE { WHILE 1 }/* LINE:51 ont>

WAITINPUT

11/24/06 ▲