Français
Source/ Codesnippets

Ausrichten Contrôle Éditer Vertikal Zentriert

 
Stephan Sonneborn (01.03.11)

allô zusammen,

je qui Présentation de Thomas et avec ca ergänzt...
KompilierenMarqueSéparation
'************************************************************************************************
'* Vertikal zentriertes Editfeld                                              Built: 01.03.2011 *
'* optional links, rechts oder mittig ausgerichtet (ggf. nur Zahlen erlaubt)                    *
'* nach einer Vorlage von Thomas Freier                                                         *
'* erweitert durch Stephan Sonneborn                                                            *
'************************************************************************************************
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
'+----------------------------------------------------------------------------------------------+
DECLARE Font&, Edit&, THeight%
DECLARE LastDlgID&
'+----------------------------------------------------------------------------------------------+
'************************************************************************************************
'* Einzel-IDs für Dialogelemete generieren                                                      *
'************************************************************************************************

PROC NewID

    DECLARE ID&
    '+----------------------------------------------------------------------------------------------+
    LastDlgID& = LastDlgID& + 1
    ID& = LastDlgID&
    '+----------------------------------------------------------------------------------------------+
    RETURN ID&
    '+----------------------------------------------------------------------------------------------+

ENDPROC

'************************************************************************************************
'************************************************************************************************
'* Vertikal zentriertes Editfeld                                                                *
'************************************************************************************************

PROC CreateEditVert

    PARAMETERS hParent&, Text$, x1%, y1%, dx%, dy%, TSize%, Alignment%, Number%
    'hParent   : Handle des Elterfensters
    'Text$     : Vorgabetext
    'x1%, y1%  : linke obere Ecke des "Editfeldes"
    'dx%, dy%  : Größe des "Editfeldes"
    'TSize%    : Texthöhe im Editfeld
    'Alignment%: 0 => links, 1 => mittig, 2 => rechts ausgerichtet
    ' Number%  : <> 0 => nur Zahleneingabe erlaubt
    DECLARE hStatic&, hEdit&
    DECLARE EHeight%, Style&
    '+----------------------------------------------------------------------------------------------+
    EHeight% = TSize% + 6
    Style&   = $50000080 + Alignment%
    Case Number%: Style& = Style& + $2000
    hStatic& = CONTROL("Static",""   ,$54001106             ,x1%,y1%,dx%,dy%,hParent&,NEWID(),0)
    hEdit&   = CONTROL("Edit"  ,Text$, Style&,  0,  0,  0,  0,hStatic&,NewID(),0)
    SETWINDOWPOS hEdit& = 0, ((dy%-TSize%)/2) - dx%, EHeight%; 0
    '+----------------------------------------------------------------------------------------------+
    RETURN hEdit&
    '+----------------------------------------------------------------------------------------------+

ENDPROC

'************************************************************************************************
'************************************************************************************************
SET("TRUECOLOR",1)
CLS GETSYSCOLOR(15)
'+----------------------------------------------------------------------------------------------+
THeight% = 30
Font&    = CREATEFONT    ("Arial",THeight%,0,0,0,0)
Edit&    = CreateEditVert(%HWND, "",10,50,300,80,THeight%,1, 0)'Texteingabe
'Edit&    = CreateEditVert(%HWND, "",10,50,300,80,THeight%,1, 1) 'Zahleneingabe
SETFONT Edit&, Font&
SETTEXT Edit&,"Bitte hier Text eingeben"
'+----------------------------------------------------------------------------------------------+
LOCATE 1,1
PRINT "Weiter mit F1"
'+----------------------------------------------------------------------------------------------+

WHILE 1

    WAITINPUT
    CASE %KEY = 5: BREAK

WEND

'+----------------------------------------------------------------------------------------------+
PRINT "Text im Editfeld: ", GETTEXT$(Edit&)
PRINT "Ende mit Mausklick."
'+----------------------------------------------------------------------------------------------+
WAITINPUT
'+----------------------------------------------------------------------------------------------+
DELETEOBJECT Font&
END
'***************
***************************************************************************

 
01.03.2011  
 



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

4.076 Views

Untitledvor 0 min.
RudiB.28.05.2021
ByteAttack11.02.2020
Matzbub29.12.2018
Christof Neuß18.09.2018
plus...

Themeninformationen

cet Thema hat 1 participant:

iF (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