XProfan

- Seite 1 -

Jo Roland

.
Hallo Hubert...

Versuch bitte irgendwann einmal (es muß ja nicht sofort sein) in etwa zu verstehen, was du da tust - das bringt insgesammt etwas mehr als stumpfes herumdoktorn

, und andere verstehen deine Fragen auch besser (hat ja nicht jeder nen Inteligenzquotienten von 140 ;D ) .

Gruß

Andreas

19.09.2006 ▲

- Seite 2 -

PS:
Du meintest also das hier, Hubert:
Kompilieren Markieren Separieren

CLS
Declare Edit&
LET Edit&=@Control(Edit,ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789,$50011140,20,20,300,300,%HWND,1234,%HINSTANCE,$200)

While 0=0

    Waitinput

wend

Aber sach jetzt nich wieder, daß ein Control keinen Rahmen hat! Ich hab gleich Nachtschicht und bin für das Leben von über 70 Menschen verantwortlich - wenn ich da total verwirrt reingehe, gibt das eine Katastrophe!

19.09.2006 ▲

Rolf
Koch

*lol* Hubert, ich dachte Du arbeitest jetzt mit ROC?
Ich sag nur eins: DesignStudio, da kannste alles ausprobieren und mit den Stilen spielen. Aufjedenfall bekommst Du schöne Multis hin mit Rand und ohne Scroll.

19.09.2006 ▲

Hubert
Binnewies

Andreas Hötker

PS:
Du meintest also das hier, Hubert:
Kompilieren Markieren Separieren

CLS
Declare Edit&
LET Edit&=@Control(Edit,ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789,$50011140,20,20,300,300,%HWND,1234,%HINSTANCE,$200)

While 0=0

    Waitinput

wend

OK.....ich versuchs nochmal......

also...das listing ist einfach inzwischen zu umfangreich für hier, aber ich versuchs mal mit ner Erklärung:

Ich habe ein Hauptfenster mit WindowStyle 720 und Bildschirmfüllend.
Darauf ein Hintergrundbild, geladen mittels LoadBMP.
ganz rechts ein paar Buttons, in der Mitte ein HTML Control und Links ein Multiedit.
wegen der Optik soll nun das Multiedit GENAUSO aussehen wie das HTML Control.

Ich mache mir auch Gedanken darüber wie es aussieht wenn der zukünftige User nicht so wie ich auf Windows Classic Style steht sondern lieber XP Style zum Beispiel Silber verwendet.
Dabei ändern sich die Rahmen.
Also kann ich nicht einfach einen auf dem Hintergrund zeichnen.
Ich brauche NUR den Rahmen, und der vom Edit unterscheidet sich nunmal von dem HTML Control.
Und als Control hatte ich keinen Rahmen, wieso bei mir nicht und bei dir wohl, weiss ich nicht, wäre aber interessant zu wissen warum.

So..... und auf das EDIT kommt ein PicStatic und darauf als Ausgabe Textzeilen als SKControl (wegen dem transparenten Hintergrund).

Einen Sreenshoot kann ich leider nicht liefern da es wieder um ein kommerzielles Produkt handelt und es soll nicht jeder Gast der hier durchs Forum flitzt auf die Idee kommen es nach zu machen.

Bevor Ihr jetzt weitere Lösungsvorschläge macht : Das Problem ist bereits gelöst.
(ein wenig durch die Hintertüre aber es geht)

und :

Andreas Hötker

Hallo Hubert...

Versuch bitte irgendwann einmal (es muß ja nicht sofort sein) in etwa zu verstehen, was du da tust - das bringt insgesammt etwas mehr als stumpfes herumdoktorn , und andere verstehen deine Fragen auch besser (hat ja nicht jeder nen Inteligenzquotienten von 140 ) .

Gruß

Andreas

Sorry...ich stoße bei über 2500 Zeilen Programmcode (XProfan, und nochmal soviel an PHP) mal auf ein grafisches Problem...
Da fühle ich mir mit deiner Aussage etwas auf die Füsse getreten.....

Der Beste Programmierer hat mal einen Hänger....Auch DU... und ich habe mich über keinen von Dir lustig gemacht!

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

Hubert Binnewies

Ich mache mir auch Gedanken darüber wie es aussieht wenn der zukünftige User nicht so wie ich auf Windows Classic Style steht sondern lieber XP Style zum Beispiel Silber verwendet.
Dabei ändern sich die Rahmen.

Du kannst das XP-Theme für einzelne Controls deaktivieren, hier mal anhand von 2 buttons gezeigt:
Kompilieren Markieren Separieren

DEF SetWindowTheme(3) !uxtheme.dll, SetWindowTheme
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE BUTTON1&
DECLARE BUTTON2&
DECLARE ENDE%
CLS GETSYSCOLOR(15)
BUTTON1& = CREATE(BUTTON,%HWND,BUTTON,0023,0026,0070,0030)
BUTTON2& = CREATE(BUTTON,%HWND,BUTTON,0105,0026,0070,0030)
DisableXPTheme BUTTON2&

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

    ELSEIF GETFOCUS(BUTTON2&) BUTTON

    ENDIF

WEND

Proc DisableXPTheme

    parameters hWnd&
    Declare WORD#
    Dim WORD#, 2
    SetWindowTheme(hWnd&, WORD#, WORD#)
    Dispose WORD#

EndProc

Hubert
Binnewies

WOW..........Danke!!!!!!

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

Hubert
Binnewies

oha....ich habs versucht....funktioniert wunderbar bei buttons....
aber nicht bei control edit und html control....leider....

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

Habs auf die schnelle mal mit PureBasic getestet, also Edit ist mit XP-Style flach u. abgerundet, nach DisableXPTheme nicht mehr. WebGadget kann ich keine Unterschiede sehen, ob mit XP-Style und ohne, kann also mit der Routine auch nichts sehen. Zumindest das Edit sollte funktionieren

Liegt am Message-Handling. Vorm erstellen des Controlls auf Fastmode 1 stellen, nach dem Disablen des XP-Themes kannste wieder zurückstellen!
Kompilieren Markieren Separieren

DEF SetWindowTheme(3) !uxtheme.dll, SetWindowTheme
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE BUTTON1&
DECLARE BUTTON2&
Declare Edit&
DECLARE ENDE%
CLS GETSYSCOLOR(15)
Set(FastMode,1)
BUTTON1& = CREATE(BUTTON,%HWND,BUTTON,0023,0026,0070,0030)
BUTTON2& = CREATE(BUTTON,%HWND,BUTTON,0105,0026,0070,0030)
Edit& = Create(EDIT, %HWND, , 25, 200, 150, 25)
DisableXPTheme BUTTON2&
DisableXPTheme Edit&
Set(FastMode,0)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

    ELSEIF GETFOCUS(BUTTON2&) BUTTON

    ENDIF

WEND

Proc DisableXPTheme

    parameters hWnd&
    Declare WORD#
    Dim WORD#, 2
    SetWindowTheme(hWnd&, WORD#, WORD#)
    Dispose WORD#

EndProc

Hubert
Binnewies

HURRAAAAA....

Sie sehen zwar immernoch einen tick anders aus als bei xp Classic, aber das liegt daran das beim XP Style die Farben verändert werden.
Aber das stört in keinster Art und Weise.

aber dafür sehen die Rahmen in JEDEM Stil GLEICH aus....

Und Danke!!!!

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

Hallo Hubert...

Hubert Binnewies

Sorry...ich stoße bei über 2500 Zeilen Programmcode (XProfan, und nochmal soviel an PHP) mal auf ein grafisches Problem...

Es sind im Prinzip also nur kleine Programme, die du da schreibst

..

Hubert Binnewies

Da fühle ich mir mit deiner Aussage etwas auf die Füsse getreten.....

War nicht bös gemeint von mir, ich habe mich bloß selbst erst etwas verulkt gefühlt, als du mir klarmachen wolltest, das ein Control gar keinen Rahmen hat

- habe erst später gemerkt, daß du die vorherigen Postings wohl einfach nur nicht verstanden hast.
Hier nochmal mein gutgemeinter Rat: Versuche das zu verstehen, was du da tust - ist eigentlich ganz einfach...

Hubert Binnewies

Der Beste Programmierer hat mal einen Hänger....Auch DU... und ich habe mich über keinen von Dir lustig gemacht!

Hubert

Ich bin weder Programmierer noch bin ich der Beste - nur Altenpfleger. Über meine Fehler lache ich auch am liebsten und lautesten

, sind in der Regel auch sehr zahlreich und ziemlich bescheuert

. Es geht mir auch gar nicht darum, das irgendjemand Fehler macht - das tut ja jeder - es geht mir ums Verstehen einer Gebenheit. Wie gesagt, versuche einfach mal zu verstehen, was Control und was Create macht und was ein Fenster ist. Hier im Artikel stehen ja genug Infos dazu. Wenn meine Kinder eine Frage haben, versuche ich inen möglichst viele Infos darüber zu geben, wie sie zur Lösung kommen - die Antwort kommt dann immer von ihnen selbst.

Mein So? oder So in etwa? bedeutet immer: Schau mal nach, was ich da gemacht habe und ob das zu deinem Problem irgendwie passt - und das sollte man sowieso immer tun - nicht blind übernehmen und Abschreiben. Ich bin von meiner Veranlagung eher ein sehr unsicherer Mensch

und habe nach deiner Behautung, das ein Control keinen Rahmen bestimmt 1,5 Stunden lang herumgetestet, warum du bei meinem Control denn nun keinen Rahmen siehst

.

Gruß

Andreas, der gleich zur Nachtschicht fährt und auch morgen noch mal (ohne Geld dafür zu bekommen

ran muß)

Hubert
Binnewies

Andreas Hötker

Hallo Hubert...

Hubert Binnewies

Sorry...ich stoße bei über 2500 Zeilen Programmcode (XProfan, und nochmal soviel an PHP) mal auf ein grafisches Problem...

Es sind im Prinzip also nur kleine Programme, die du da schreibst

Ich will Dir jetzt nich auf die Füsse Treten........ ABER...
hab ich geschrieben das ich fertig bin????
Ich hab das Proggi grad erst angefangen....tztz...

Andreas Hötker

Wenn meine Kinder eine Frage haben, versuche ich inen möglichst viele Infos darüber zu geben, wie sie zur Lösung kommen - die Antwort kommt dann immer von ihnen selbst.

Der Vergleich hinkt nicht nur etwas....tztz...ich bin 43.

Andreas Hötker

nicht blind übernehmen und Abschreiben

Ich versuche immer zu verstehen was man mir mit dem Schnipsel sagen will..zum Beispiel:

RGH

Sagt mir wo ich meinen eigendlichen Fehler gemacht habe:
Ich habe nur bei den EditStyles nachgeschaut ohne die algemeinen WindowStyles zu beachten.

Ich habe auch noch das Problem das ich momentan in einem Projekt mit XProfan,PHP,HTML und MySQL Programmiere um 2 Webspaces und 3 Rechner dazu bringen möchte kollisionsfrei miteinander zu kommunizieren.
Und bei so vielen Sprachen, die teilweise gleichklingende Befehle haben, sich aber in der Syntax und der Funktion im Endeffekt unterscheiden, kommt man halt ab und wann schmerzhaft durcheinander.
und deswegen tu ich auch:

Andreas Hötker

Über meine Fehler lache ich auch am liebsten und lautesten , sind in der Regel auch sehr zahlreich und ziemlich bescheuert .

Und zu guter Letzt:
Ich muss auch um Verzeihung bitten, denn ich reagiere im Moment etwas über, da ich (zwar mir selbst, aber es ist aus finanziellen Gründen notwendig) einen Termin gesetzt habe den ich einhalten muss und der ist mehr als eng.

Ich hoffe Ihr übt auch weiterhin soviel Nachsicht mit mir, denn nicht ohne Grund habe ich das Newbie noch nicht entfernt und ich denke es wird auch noch länger drinbleiben als Ihr damit rechnet.

Gruß Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

21.09.2006 ▲