Datepicker

* MINIGUI – Harbour Win32 GUI library Demo
*
* Copyright 2002 Roberto Lopez <harbourminigui@gmail.com>
* http://harbourminigui.googlepages.com/
*/

#include “minigui.ch”

Function Main

DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 600 HEIGHT 400 ;
TITLE “MiniGUI DatePicker Demo” ;
MAIN ;
FONT “Arial” SIZE 10
/*
@ 10,10 DATEPICKER Date_1 ;
VALUE CTOD(“01/01/2001”) ;
TOOLTIP “DatePicker Control” ;
TITLEBACKCOLOR BLACK ;
TITLEFONTCOLOR YELLOW ;
TRAILINGFONTCOLOR PURPLE
*/
DEFINE DATEPICKER Date_1
ROW    10
COL    10
VALUE Date()
TOOLTIP ‘DatePicker Control’
SHOWNONE .F.
TITLEBACKCOLOR BLACK
TITLEFONTCOLOR YELLOW
TRAILINGFONTCOLOR PURPLE
END DATEPICKER

@ 10,310 DATEPICKER Date_2 ;
VALUE Date() ;
TOOLTIP “DatePicker Control ShowNone RightAlign” ;
SHOWNONE ;
RIGHTALIGN

@ 230,10 DATEPICKER Date_3 ;
VALUE Date() ;
TOOLTIP “DatePicker Control UpDown” ;
UPDOWN

@ 230,310 DATEPICKER Date_4 ;
VALUE Date() ;
TOOLTIP “DatePicker Control ShowNone UpDown” ;
SHOWNONE ;
UPDOWN

END WINDOW

Form_1.Date_1.FontColor := RED
Form_1.Date_1.BackColor := YELLOW

CENTER WINDOW Form_1

ACTIVATE WINDOW Form_1

Return Nil

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: