Français
Source/ Codesnippets

Dialogfenster la couleur Farbigem Text

 

KompilierenMarqueSéparation
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialogfenster in Farbe und mit farbigem Text
Lauffähig ab Profan-Version 5.0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 3.2
DATUM  24.06.2003    um  20:30 Uhr
VERWENDETE PROFANVERSION IST 7.0 ODER HÖHER
********************** DATEN ***********************************

PROC DLG_REFRESH

    SETAUTOPAINT 2
    STARTPAINT DLG&
    CLS RGB(0,0,255)
    TextColor RGB(255,255,0),-1
    Drawtext 3,3,Ich bin ein farbiger Text
    TextColor RGB(255,128,192),-1
    Drawtext 3,17,Ich bin der Kumpel vom ersten farbigen Text ;)
    ShowWindow (Button1%,0) Sonst wird Button versteckt!
    ShowWindow (Button1%,1)
    ENDPAINT
    SETAUTOPAINT 0

ENDPROC

PROC DIALOG  ---------------------------------------------------------------------------> Dialoganfang

    DECLARE DLG&, DIALOGENDE%
    DECLARE BUTTON1%
    DLG&=CREATE(DIALOG,%HWND,Neues Fenster,235,164,376,215)
    USEFONT MS Sans Serif,13,0,0,0,0
    SETDIALOGFONT 1
    BUTTON1% =@CREATE(BUTTON,DLG&,EXIT,0012,0050,0070,0030)
    DLG_REFRESH

    WHILENOT DIALOGENDE%

        WAITINPUT

        If @EQU(%KEY,2)

            LET DIALOGENDE%= 1

        ELSEIF %WMPAINT

            DLG_REFRESH

        ELSEIF GETFOCUS(BUTTON1%) BUTTON

            Let Dialogende%=1

        ENDIF

    WEND

    @DESTROYWINDOW(DLG&)
    ENDPROC --------------------------------------------------------------------------------> Dialogende
    Das folgende Hauptfenster ist nur zum Testen:
    SETTRUECOLOR 1
    WINDOWTITLE Farbe im Dialog
    WINDOWSTYLE 63
    WINDOW 0,0-0,0
    DIALOG Dialog appel!
 
15.07.2007  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

2.060 Views

Untitledvor 0 min.
Member 389165721.09.2018
rafl09.08.2018
rquindt28.11.2017
H.Brill26.10.2017
plus...

Themeninformationen

cet Thema hat 1 participant:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie