| |
| |
|
Manfred
Barei | ¡Hola,
Sé que no si el una Fehler es y sólo en me auftritt.
Wenn I el Ventana principal una Bild como Hintergrund lege voluntad TabControlls no mehr adecuado, todos otro Controlls sin embargo voluntad adecuado, siehe Code.
Bitte una vez Testen.
KompilierenMarcaSeparación $P+
SET("ERRORLEVEL",0)
DECLARE RICHEDIT1&,RICHEDIT2&
DECLARE STATICBITMAP1&,hbild&
DECLARE GRIDBOX1&
'----------Declarationen für Tabcontroll
DECLARE TabControl&,TabPage1&,TabPage2&,LastTab&
'-----------------------------------------------------------------
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 538
WINDOWTITLE "Test"
WINDOW (%maxx/2 - 736/2),(%maxy/2 - 525/2) - 736,525
SET("TRUECOLOR",1)
DECLARE ENDE&
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",14,0,0,0,0
SETDIALOGFONT 1
'--hier ein eigenes Bild wählen---------------------------
STATICBITMAP1& = CREATE("HPIC",-1,"D:PROGRAMMEXPROFAN11EIGENE_PROGRAMMEKARTEIKARTENBMPKARTEN_TEXTUR.PNG")
'--so funktioniert es nicht mit dem TabControll
'hbild& = Create("BITMAP",%HWND,STATICBITMAP1&,0000,0000)
'--so funktioniert es mit dem TabControll--------------
DrawPic STATICBITMAP1&,0 ,0 ;0
'-----------TabControl--------------------------------------------
TabControl& = @CREATE("TABCTRL",%HWND,"Vorderseite",260,150,425,265)
TabPage1& = CONTROL("DIALOG","", $40081003,2,25,WIDTH(TabControl&)-10, HEIGHT(TabControl&)-30,TabControl&,0,%HINSTANCE)
SHOWWINDOW(TabPage1&,0)
@INSERTTAB(TabControl&,2,"Rückseite")
TabPage2& = CONTROL("DIALOG","", $40081003,2,25,WIDTH(TabControl&)-10, HEIGHT(TabControl&)-30,TabControl&,0,%HINSTANCE)
SHOWWINDOW(TabPage2&,0)
LastTab& = TabPage1&
RICHEDIT1& = CREATE("RICHEDIT",TabPage1&,"",2,0,425,-235)
RICHEDIT2& = CREATE("RICHEDIT",TabPage2&,"",2,0,425,-235)
SHOWWINDOW(LastTab&,1)
'-------------------------------------------
GRIDBOX1& = create("GridBox",%HWND,"lfd. Nr.;0;50;von;2;65;bis;2;65",3,032,145,175,280)
SETFOCUS(%HWND)
REPAINT 0
ENDE& = 0
WHILENOT ENDE&
WAITINPUT
If %KEY=2
ENDE&= 1
ElseIf @TABCHANGED(TabControl&)
SHOWWINDOW(LastTab&,0)
If GETACTIVETAB(TabControl&) = 0
LastTab& = TabPage1&
ElseIf GETACTIVETAB(TabControl&) = 1
LastTab& = TabPage2&
EndIf
SHOWWINDOW(LastTab&,1)
SETFOCUS(TabControl&)
EndIf
EndWhile
DeleteObject STATICBITMAPclass=s4 href='./../../function-references/XProfan/end/'>end
Saludo de el Heide
Manfred |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 05.10.2010 ▲ |
|
| |
|
|
 | En stürzt el Programa igual de porque en el Code es:
KompilierenMarcaSeparaciónSTATICBITMAP1& = CREATE("HPIC",-1,"D:PROGRAMMEXPROFAN11EIGENE_PROGRAMMEKARTEIKARTENBMPKARTEN_TEXTUR.PNG")>
si yo aber:
KompilierenMarcaSeparación escribir funktionierts wunderbar y bajo Win7 Yo hier auch no Anzeigeprobleme o. lo se alles korrekt suscrito.
(ahora wiederum kein XP a Hand...) |
|
| |
| |
| |
|
|
Thomas
Freier | Usted versteht no. Er möchte gerne - por qué De todos modos- no : DrawPic STATICBITMAP1&,0 ,0 ;0
pero : hbild& = Crear("BITMAP",%HWND,STATICBITMAP1&,0000,0000)
Como es el Tab-Control no mehr en el Vordergrund en el Gegensatz a Gridbox y nun möchte Manfred wissen, por qué el así es.
Muß él wohl con DrawPic hinnehmen oder el Tab-Control en hbild& legen. |
|
| |
| |
| |
|
|
E.T. | Como reagieren algunos Elemente bastante unterschiedlich:
una @CONTROL("DIÁLOGO",... liegt auch en el Hintergrund,
una @Crear("Button,%HWnd,... liegt en el Vordergrund
Zitat: ...oder el Tab-Control en hbild& legen.
In el Ayuda es dazu:
"Hinweis; Wenn Dialogelemente en dieser Mapa de bits mentira debería, así es en ihnen trotzdem el Handle des übergeordneten Dialoges/Fensers anzugeben y no el des Mapa de bits-Controls. Damit se gewährleistet, daß el Buttons, etc. como gewohnt reagieren."
Also se lo sí así gemacht voluntad, como Manfred en el Bsp. aufzeigt !
Un Vereinheitlichung el Elemente en XProfan, así el entonces auch todos Elemente en el Vordergrund mentira, sería Yo como para adecuado halten... |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 06.10.2010 ▲ |
|
| |
|
|
| Tiempo con un Canvas [...]  probiert? |
|
| |
| |
| |
|
|
Manfred
Barei | Hola si,
si dir el código genauer durchgelesen hättest entonces hättest Usted gesehen el Yo encima el Línea con el STATICBITMAP1& una Kommentar eingefügt habe en el es el mann una propio Bild auswählen se.
Como Thomas correcto erkannt ha brauche Yo con Crear("BITMAP" y no con DrawPic porque el no así Funktioniert Yo lo brauche
IF, Tengo el con el Canvas no tan bastante verstanden pero yo voluntad lo así una vez probieren.
Fals todavía alguien una otro möglichkeit hatt, Yo bin con fast allem einverstanden, Yo muß lo sólo verstehen.
Saludo
Manfred |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 06.10.2010 ▲ |
|
| |
|
|
|
si dir el código genauer durchgelesen hättest entonces hättest Usted gesehen el Yo encima el Línea con el STATICBITMAP1& una Kommentar eingefügt habe en el es el mann una propio Bild auswählen se.
Jetzt biste ungerecht. Yo habe el código durchaus genau angesehen y _deshalb auch erkannt el en el Gegensatz para Code en el Phorum hPic en lugar de Mapa de bits angewandt se - Así que una "Bild" en lugar de una Control y Usted schreibst oben en efecto "ein Bild como Hintergrund" y no una Mapa de bits-Static. Mein hNewPic-Referencia war doch una Tip como el Ejemplo hätte einfacher aussehen puede.
"Wenn I el Ventana principal una Bild como Hintergrund lege" - es en el Eingangsposting y dies war para mich auch "schlüssig" porque Bitmaps sí scheinbar el TabControl kein Neuzeichnen senden (Yo aber höchstens vermute).
Drum Tuve Thomas auch no verstanden con "Du versteht no. Er möchte gerne - por qué De todos modos- no : DrawPic", porque el Eingangsposting weicht en Code y Texto de el Mapa de bits-Posting hin para hPic-Posting de.
Pero "wurscht" - wir encontrar ya una Code el passt.
Was genau willst Usted letztendlich erreichen? Das el Hintergrundbild auch simplemente _nachträglich geändert voluntad kann? Wenn no entonces wäre doch el hPic-Dibujar en hWnd optimal y uno podría auch veces Canvas en DLG probieren.
Solch una Canvas como de el canvas.inc hergebildet sabe 2 "Modi". Der erste Modi bedeutet soviel como "Subclasse me Control/ Diálogo XYZ y zeichne me darauf una hPic welches uno ständig auch ändern kann cómo voluntad simplemente por en-hPic-Zeichnen".
Der zweite Modi ((si más que 1 Param angegeben en create) producido una Static en angegebener Größe y legt darauf una hPic welches uno ständig auch ändern kann cómo voluntad simplemente por en-hPic-Dibujar.
So podría uno sagen Modi2 es como una Mapa de bits-Static con el Diferencia auch nachträglich simplemente darauf dibujar a puede sin Flimmern etc., Modi1 características sólo en una beliebigen Control solch hPic.
Könnte uno sagen canvas en "hPic a Control kleben sin incluso en Neuzeichnen kümmern a müssen". |
|
| |
| |
| |
|
|
E.T. | Zitat: "..."hPic a Control kleben sin incluso en Neuzeichnen kümmern a müssen"
Das muss Yo wohl doch auch igual (also si Tiempo es...) veces ausprobieren....
Aber el irgendwelche Elemente en Xprofan "vorn" oder "hinten" mentira (vom Bild de gesehen), debería doch vereinheitlicht voluntad (Ah, Wunsch eingeben...).
Tuve kürzlich auch erstaunt geschaut, como mein "änderbares Hintergrundbild" beim erzeugen y sichtbar hacer uno (@Control(...)-Statics simplemente no en el Hintergrund quería... |
|
| |
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 07.10.2010 ▲ |
|
| |
|
|
| | Man darf sólo no annehmen dass el Z-Achse se auch en cada Fall optisch auswirkt - si una hintenliegendes Control características y no a vordere Controls el Neuzeichnen anweist oder Sektionen como "beschädigt" markiert entonces natürlich el hintenliegende Control optisch vorn. ^ ^ |
|
| |
| |
| |
|
|
E.T. | | Also XProfan con 3D-Brille (zumindest beim testen - Intepreter), así uno sieht, si oben vorn y hinten links es ... Hihi |
|
| |
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 07.10.2010 ▲ |
|
| |
|
|
| | Se puede auch una Button en ne Listbox legen y esta ListBox en ne ChoiceBox y esta ChoiceBox en una Static - Anzegefehler produzieren de hecho puede no el Thema ser. ^ ^ |
|
| |
| |
| |
|
|
Manfred
Barei | Hola si,
Entschuldige Por favor,, Yo mich wohl falso ausgedrückt.
Yo brauche el Bild como statisches (no veränderliches) Control, así Yo mich no en el neu Dibujar kümmern muß.
Saludo |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 07.10.2010 ▲ |
|
| |
|
(1.103)
Deutsch
English
Français
Español
Italia