// eine Möglichkeit styles zu übergeben
OPENW #1,0,0,_X,_Y,-1
DLG 3D ON
style1% = WS_TABSTOP | WS_BORDER     // Stilarten von Eingabefeldern festlegen
style2% = BS_DEFPUSHBUTTON | WS_TABSTOP
style3% = BS_GROUPBOX | WS_TABSTOP
style4% = BS_AUTORADIOBUTTON | WS_TABSTOP
style5% = BS_AUTOCHECKBOX | WS_TABSTOP
style6% = ES_UPPERCASE | WS_BORDER | WS_TABSTOP
style7% = LBS_NOTIFY | LBS_SORT | LBS_STANDARD | WS_BORDER | WS_VSCROLL
style8% = CBS_DROPDOWN | CBS_SORT | CBS_HASSTRINGS | WS_VSCROLL
style9% = CBS_DROPDOWN | CBS_SORT | CBS_HASSTRINGS | WS_VSCROLL | WS_TABSTOP
style11% = WS_TABSTOP | BS_OWNERDRAW // Stilarten von Eingabefeldern festlegen

FONT TO font_arial&
FONT "arial",FAMILY FF_SWISS,QUALITY 0, PITCH VARIABLE_PITCH
FONT HEIGHT 17,WIDTH 0,WEIGHT FW_SEMIBOLD
FONT ORIENTATION 0,ESCAPEMENT 0,ITALIC 0,UNDERLINE 0
FONT STRIKEOUT 0,CHARSET 0 TO font_arial&

DIALOG #1,0,0,_X + 10, _Y + 45, "Adressen eingeben",WS_OVERLAPPED | 128,9,"FIXEDSYS"
  DLGBASE PIXEL                       // Dialogmaße in Pixel
  WIN #1                              // Fenster 1
  WINDGET 0,x&,y&                     // 4 = inneres Fenster 0 = äußeres
  MOVEW #DLG(1),x&,y&

  PUSHBUTTON  "S" +  "&Neu",          200, 012, 411, 070, 023, style11%
  PUSHBUTTON  "S" +  "&Speichern",    201, 097, 411, 080, 023, style11%
  PUSHBUTTON  "S" +  "&Löschen",      202, 184, 411, 080, 023, style11%
  PUSHBUTTON  "S" +  "&Erster",       203, 271, 411, 060, 023, style11%
  PUSHBUTTON  "S" +  "<<",            204, 338, 411, 035, 023, style11%
  PUSHBUTTON  "S" +  ">>",            205, 380, 411, 035, 023, style11%
  PUSHBUTTON  "S" +  "Let&zter",      206, 422, 411, 065, 023, style11%
  PUSHBUTTON  "S" +  "&Abbruch",      207, 494, 411, 070, 023, style11%
  PUSHBUTTON         "Name",          208, 400, 365, 110, 023,WS_TABSTOP//, style11%
  //
  STATIC        "Sortierung nach -->", 232, 200, 368, 175, 020
  STATIC        "Satz:",         232, 500, 010, 040, 022
  STATIC        "",              233, 550, 010, 070, 022
  STATIC        "&Name     :",   234, 010, 063, 088, 022
  EDITTEXT      "",              235, 105, 060, 25 * 8 + 10, 022, style1%
  STATIC        "V&orname  :",   236, 010, 093, 088, 022
  EDITTEXT      "",              237, 105, 090, 25 * 8 + 10, 022, style1%
  STATIC        "St&rasse  :",   238, 010, 123, 088, 022
  EDITTEXT      "",              239, 105, 120, 25 * 8 + 10, 022, style1%
  STATIC        "&Postfach :",   240, 010, 153, 088, 022
  EDITTEXT      "",              241, 105, 150, 10 * 8 + 10, 022, style1%
  STATIC        "Pl&z/",         242, 010, 183, 032, 022
  EDITTEXT      "",              243, 105, 180, 05 * 8 + 10, 022, style1%
  STATIC        "&Ort :",        244, 050, 183, 050, 022
  EDITTEXT      "",              245, 165, 180, 25 * 8 + 10, 022, style1%
  STATIC        "&Telefon  :",   246, 010, 213, 088, 022
  EDITTEXT      "",              247, 105, 210, 15 * 8 + 10, 022, style1%
  STATIC        "Fa&x-Nr.:",     248, 255, 213, 064, 022
  EDITTEXT      "",              249, 325, 210, 15 * 8 + 10, 022, style1%
  STATIC        "&Bemerkung:",   250, 010, 253, 100, 022
  EDITTEXT      "",              251, 105, 253, 60 * 8 + 10, 022, style1%
  STATIC        "           ",   252, 010, 276, 100, 022
  EDITTEXT      "",              253, 105, 276, 60 * 8 + 10, 022, style1%
  STATIC        "           ",   254, 010, 299, 100, 022
  EDITTEXT      "",              255, 105, 299, 60 * 8 + 10, 022, style1%
  STATIC        "&Übersicht ",   256, 105, 13, 200, 022
  COMBOBOX      "",              257, 105, 030, 51 * 8 + 10, 140, style9%
  //
  // die folgenden beiden STATIC - Felder dienen zur 3D-Darstellung
  // des Fensterhintergrunds und der Pushbuttons
  //
  STATIC      ""              , 290, 005, 005, 620, 348, SS_BLACKFRAME
  STATIC      ""              , 292, 005, 405, 620, 035, SS_BLACKFRAME
ENDDIALOG
SHOWDIALOG #1
DO
  PEEKEVENT
UNTIL _Mess = 0
DO
  SLEEP
  PEEKEVENT
  SELECT MENU(0)
  CASE WM_PAINT
  ENDSELECT
LOOP UNTIL MOUSEK = 2
CLOSEW #1
