XProfan

Frank
Abbing

Hi,

have you here already To Ähnlichem answered, you mußt too time hereon react: [...]

is a Notifymessage, The You read must, TVN_SELCHANGED. with my try in the Dialogstyle had to I sowohl The A (-402), as well as The W-Variante (-451) the Message inquire, at least in the Dialogstyle. a code in Profan Have I do not for you, probably goes a secure request only with Subclassing, means ex XProfan.

Rolf
Koch

Hi Rainer,

naja Frank has already answered

Rolf

Hello Frank,
Hello Rolf,

thanks for Answer.

Frank,
I had your Message in Profanforum already red, only not yet answers. too these inquire functions not at me. too this SetActiveWindow etc. haven't whom success whom i want and the behaviour that one of others Win-Programs knows. in the Übrigen having me the Info on a Assembler-routine too deterred, I of it now ÜBERHAUPT NICHTS VERSTEHE!

Rolf,
my question was really whether in the ROC these Events program are what about me tappt im dunkeln only not discover have. because one Event is Yes there to find, the normal Click on a entry, what about me me thought if someone so a lovely ObjectCreator bastelt, that then The most important Events berücksichtigt are.

i'm still of/ one the forever yesterday's PrFellow-users (Sorry Rolf, becomes well really Time To learn and to that ROC umzuschwenken!) and having The Events too in the WfEvents adopted, unfortunately without success. then coming even the attempt with ROC I hoping in a Program the always UpToDate in the development is the sought to find.

will be yourself moreover try my target To achieve, nevertheless be I furthermore for each Help grateful.

MfG

Rainer Hoefs

Gug time Perhaps helps you that here moreover:
Compile Mark Separation

DEF GetTreeItem(1) sendmessage(@&(1),$110A,$0009,TVitem#)
DEF SetTreeItem(2) sendmessage(@&(1),$110B,$0009,@&(2))
DEF TreeHitTest(2) sendmessage(@&(1),4369,0,@&(2))
DEF GetTreeCount(1) Sendmessage(@&(1),$1105,0,0)
DEF TreeExpand(2) sendmessage(@&(1),$1102,$0002,@&(2))
DEF TreeColapse(2) sendmessage(@&(1),$1102,$0001,@&(2))

so to the Motto if getfocus(treeview) and GetTreeItem<>oldtreeitem then success

salvo, iF

Frank
Abbing

Hi,

I Have here a Code Richard Maurukas. The determined just the first selektierte Item. Klappt hervoragend and comes integrally without Notifies from. not The swell manner, but functions

...
Compile Mark Separation

TreeView32-Control mit Imagelist (P)FairWare, FreeWare...
Für Profan² 6.0, 32 Bit
(c) 1998 Richard Maurukas
----------------------------------------------------------------
DEF GetModuleHandle(1) !"KERNEL32","GetModuleHandleA"
DEF LoadIcon(2) ! "USER32","LoadIconA" "&#","&"
DEF LoadBitmap(2) ! "USER32","LoadBitmapA"
DEF ImageList_Create(5) !"COMCTL32","ImageList_Create"
DEF ImageList_AddIcon(2) !"COMCTL32","ImageList_AddIcon"
DEF ImageList_Destroy(1) !"COMCTL32","ImageList_Destroy"
Declare hImageList&,hIcon&,Iconname#,Executehandle&
Declare Imagelist&,HIcon#
dim Iconname#,25
dim Hicon#,24
declare TVItem#
declare Treeview&
declare TVitemtext#
declare TVInsert#
dim Tvitem#,40
dim TVInsert#,48
dim TVitemtext#,255
Let Imagelist&=ImageList_Create(16,16,$0001,3,3) Imagelist erzeugen
Let ExecuteHandle&=GetModuleHandle(0)  Handle des laufenden Programms
Icon 0
String Iconname#,0="EDITOR"       Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
Icon 1
String Iconname#,0="A"            Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
Icon 2
String Iconname#,0="GESICHT"
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)

PROC TVITEM

    TVITEM und TVINSERT-Struktur-------------------------------
    String TVitemtext#,0=@$(4)      Der Text im Label
    long TVInsert#,0=@&(1)          TVins-Parent
    long Tvinsert#,4=@&(2)         TVins-Insert After
    long TVInsert#,8=$0027          mask IF_TEXT,IF_IMAGE,If_SelectedImage
    long TVInsert#,12=0            Htreeitem
    long TVInsert#,16=0             State
    long TVInsert#,20=0             StateMAsk
    long TVInsert#,24=Tvitemtext#   Adress of Label
    long TVInsert#,28=len(@$(4))   len of Label(länge GeDimt in Tvitemtext#)
    long TVInsert#,32=@&(2) 0      Image          z.B Ordner
    long TVInsert#,36=@&(3) 0      Selected Image z.B geöffneter Ordner
    long TVinsert#,40=0             cChildren
    long TVInsert#,44=0             Lparam
    -----------------------------------------------

ENDPROC

Declare TRoot&,TRoot1&,troot3&
Declare infotext&,ende%,Edithandle&
Window 0,0-350,440
Windowtitle "TreeViewControl32, (c) Richard Maurukas"
settruecolor 1
cls rgb(192,192,192)
let Infotext&=createtext(%Hwnd,"",40,0,250,20)
Let TreeView&=@control("SysTreeView32","",$5080002F,40,20,250,340,%Hwnd,200,%Hinstance)
sendmessage(TreeView&,$1109,0,Imagelist&) Associate the image list with the tree
TVITEM 0,0,1,"Richard Maurukas"
Let TRoot&= sendmessage(Treeview&,$1100,0,TVInsert#)  Insertitem in Root 0
TVITEM TRoot&,1,1,"präsentiert"
let TRoot1&=sendmessage(Treeview&,$1100,0,TVInsert#)  Insertitem in TRoot&
TVITEM TRoot&,0,0,"das TreeView32 Control"
let TRoot1&=sendmessage(Treeview&,$1100,0,TVInsert#)  Insertitem in TRoot&
TVITEM TRoot1&,1,1,"für Profan² Ver. 6.0 32 Bit"
sendmessage(Treeview&,$1100,0,TVInsert#)              Insertitem in TRoot1&
TVitem 0,1,0,"Roland G. Hülsmann"
let Troot3&=sendmessage(Treeview&,$1100,0,TVInsert#)  Insertitem in Root
TVitem Troot3&,2,2,"Entwickler von Profan²"
sendmessage(Treeview&,$1100,0,TVInsert#)              Insertitem in Troot3&
USefont "Times New Roman",18,0,1,1,0
sendmessage(Treeview&,$030,%Font,0)
settext infotext&,add$("Anzahl der Items im Control: ",
str$(Sendmessage(Treeview&,$1105,0,0))) TVM_Getcount
sendmessage(Treeview&,$1102,$0002,Troot&)     TV_Expand, Expand
sendmessage(Treeview&,$1102,$0002,Troot3&)    TV_Expand, Expand
sendmessage(Treeview&,$1102,$0001,Troot&)    TV_Expand, Colapse

Whilenot equ(Ende%,1)

    waitinput
    Das Selektierte Itemhandle im Treeview ermitteln
    TVM-Getnextitem=$110A, TVN_Caret=$0009, Eine Adresse=TVitem#
    Let Edithandle&= sendmessage(Treeview&,$110A,$0009,TVitem#)
    Settext infotext&,""
    Das ermittelte Handle mit dem erhaltenen Handle
    aus der Insertitem Message vergleichen und anzeigen.
    case equ(Troot&,Edithandle&):
    Settext infotext&,"Selected Text: Richard Maurukas"
    case equ(Troot1&,Edithandle&):
    Settext infotext&,"Selected Text: das TreeView32 Control"
    case equ(Troot3&,Edithandle&):
    Settext infotext&,"Selected Text: Roland G. Hülsmann"

wend

Dispose TVitemtext#
dispose TVInsert#
dispose TVitem#
ImageList_Destroy(hImagelist&)
Dispose Hicon#

Hello Frank...

[quote:c1cab62e5c]
...probably goes a secure request only with Subclassing, means ex XProfan.
[/quote:c1cab62e5c]
I have your Messageproblem already since some Time mitverfolgt, have unfortunately but yet To little with Treeviews worked, circa there really mitreden to.
what You there over The A and W Messages write, shining me so, as would there the Profan Messagehandling something durcheinanderschmeißen. Therefore is the but too no thing for Subclassing. has Roland already something to the Topic said?

circa Subclassing at all release to, must (as far as i know) the Profan Messagehandling shorted go. is alone with the turn off the Messahgehandlings The cause the Fehlfunktion but not already fixed and must then Subclassing at all yet come off?

Einge Messages go only from the jeweiligen Fensterclassen machine ( z.B. The CTLCOLOR Messages, WM_ERASEBKGND and WM_QUERRYENDSESSION). only for these Messages is Subclassing interestingly. heard The of you listed Message really moreover or is the Profankram?

over again To Subclassing in general (I hope, I langweile not):
coloured Buttons, coloured Edits, Listboxes and to all Things the intercepting the Herunterfahrens (even NotePad power the), are vernünfig only over Subclassing To release.
If I Subclassing correctly. understood have, is the really a more simply and very simple thing.
the one richtiges Subclassing vernünfig with Profan release can (too with XProfan), is utterly difficult. an Komponente, The Profan so extreme simply in the management power, would complete wegfallen - the Messagehandling => chaos for Beginner.
Subclassing the Messages WM_QUERYENDSESSION and WM_ENDSESSION would therefore a very notwendige expansion for DLLs for Profan (so should it really weg, without the Messagehandling To killen)...

Rolf
Koch

Hi Rainer,

You must you still not Entschuldigen, that You one Prfellow User are

unfortunately Have I Yes a Hauptberuf (unfortunately is well

- naturally in reference on The thing) and if I could would I gladly More Time into ROC hang. Ausserdem Have I in momentum so much around the ears - but who knows this not. be but nevertheless in a Update on the works.
but over again: ROC is a Window- and Dialoghelfer and no IDE.
The Actionwriter is only there, circa gewisse simple Procs incorporate circa it later in the code plainer to have.

but How already supra erwähnt, having The others here Yes some things about aufgezeigt.

Rolf

Frank
Abbing

Hello Andreas,

> I have your Messageproblem already since some Time mitverfolgt, have unfortunately but yet To little with Treeviews worked,
> circa there really mitreden to.
> what You there over The A and W Messages write, shining me so, as would there the Profan Messagehandling something durcheinanderschmeißen.
> Therefore is the but too no thing for Subclassing. has Roland already something to the Topic said?

Yes, it said me, it could the differences between Dialogmodus and the normalen Windowmodus not right explain. only becomes once The The Dialogproc angesprungen and once The Windowproc. apparently power windows here differences.

Messages go normal in the Superclassing quizzed. this is The normal Abfrageroutine for Messages in a Program. Verbiegt one whom Zeiger on The Fensterprozedur in the nachhinein, speaks one of Subclassing. and very in the Fensterprozedur go Messages recognized, changed or deleted. so is it in others Languages. Profan is something other, because it The Messages for us filtert and only The most important on us weiterleitet. it bemuttert us, what but not always erwünscht is, and therefore can this behaviour turn off.

> circa Subclassing at all release to, must (as far as i know) the Profan Messagehandling shorted go.

what I even already said.

> is alone with the turn off the Messahgehandlings The cause the Fehlfunktion but not already fixed and must then Subclassing
> at all yet come off?

Yes. because Messages often so quick one after another come, the Profan The values too slow in its variables writes. so go many Messages verschluckt, because again recent arrived are.

> Einge Messages go only from the jeweiligen Fensterclassen machine ( z.B. The CTLCOLOR Messages, WM_ERASEBKGND and WM_QUERRYENDSESSION).
> only for these Messages is Subclassing interestingly. heard The of you listed Message really moreover or is the Profankram?

any Messages can subgeclassed go. The supra listed is a Notifymessage, means a Sammelmessage, The under WM_NOTIFY led becomes.

> over again To Subclassing in general (I hope, I langweile not):
> coloured Buttons, coloured Edits, Listboxes and to all Things the intercepting the Herunterfahrens (even NotePad power the),
> are vernünfig only over Subclassing To release.
> If I Subclassing correctly. understood have, is the really a more simply and very simple thing.

really Yes.

> the one richtiges Subclassing vernünfig with Profan release can (too with XProfan), is utterly difficult. an
> Komponente, The Profan so extreme simply in the management power, would complete wegfallen - the Messagehandling => chaos
> for Beginner.

correctly.. Profan attempts The thing for User To vereinfachen and can only important Messages through. wants one any Messages receive, then is this Profanverhalten abzustellen. some messages go nevertheless verschluckt. Subclassed to the Profanfenster but, sustain one any Messages, before Profan tappt im dunkeln into fingers get.
I yourself using The Profan-Subclassing-engineering not, because tappt im dunkeln but for all that still line by line interprets becomes, How the normal Program too. therefore delayed it the whole Messageshandling. Bestes example is Andreas Miethes Splitterbar-Subclassingcode, the agonizing slow is.
From of/ one Dll from but power Subclassing correctly. joke and there's no Einschränkungen.

> Subclassing the Messages WM_QUERYENDSESSION and WM_ENDSESSION would therefore a very notwendige expansion for DLLs
> for Profan (so should it really weg, without the Messagehandling To killen)...

If you Profan2Cpp have, become You very soon Dlls from Profancode produce can. Nativen code.
Then us a true Dll-Schwemme überrollen, each bet!

rainerhoefs

Hello Frank, Andreas, Rolf and all others The on my question answered having.

my trouble have I resolved. Treevieweinträge go read, the Treeview lose whom Focus to the Double-click on a entry, sodaß I the sustained String weiterverarbeiten can, even if I The Tatstautr use and + each Entries aufklappe, with high and down anwähle and Enter fetch works everything, and anytime can into others items clicked and written go. Menu and Toolbar functions an so on. I have only The Events _OnEnter (_in the Api _OnReturn) and _OnDblclk into WfEvents.Inc installed. so was then my trouble resolved.

for all the what your with Assembler, SubClassing etc. written have over again thanks, is plenty To high for me.

Frank,
You erwähntest Prf2Cpp in the last Message. Yes, I have The Trial. my Profan Source becomes without jegliche Error too Translated. If I the though with DevC++ 4.* kompilieren wants functions at all nothing. sometimes succeed it the program in the RUN-mode to get started. though becomes then the dialog the at Anklicken one Toolbaricons attend ought to not launched. gives it somewhere detailed indicated How I the Compiler take on must so too a EXE arise. (in the form the too I it understand.) because the würd I gladly yet kapieren and utilize, there already in the Run-mode the program (unfortunately only the HWND) super quick runs!

thanks in the ahead

Rainer Hoefs

03/22/05 ▲

Frank
Abbing

Hello Rainer,

interestingly, I yourself use too whom DevC++4 as Compiler, without Problems. is probably only a Einstellungssache. best ask You time directly whom Sebastian king in the official Profan2Cpp Forum: [...]

03/22/05 ▲