archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • your sites Please look at Site http homepages borland com efg2lab Library Delphi DatesAndTimes Name TDateTimePicker The comment in Dave Nottage s UseNet Post about how to force a TDateTimePicker to drop down programmatically The sample to drop down programmatically is buggy because the button is pressed continuous Better way use DateTimePicker1 Perform WM SYSKEYDOWN VK DOWN 0 Because the combination of ALT and the Keydown Arrow drop down the

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/DatesAndTimes/AluttisFrank_DateTimePicker.txt (2016-02-14)
    Open archived version from archive



  • Finished date The challenge is that I don t want a value showed in theese pickers before one is selected This seems impossible I want a blank edit window when no date is selected Of course I could use the visible event but this will screw up the look and intuitive use Anyone have a functionally solution for this I m not experienced enough to override the DateTimePicker component so if this is the solution I will need the code to put in Use the DateTime SetFormat API macro put CommCtrl in the uses clause to set the date to blank or a message DateTime SetFormat DateTimePicker1 Handle Choose a date Note the three single apostrophes at each end to leave one in the string to ensure that the characters are not interpreted as hours h seconds s or days d If you want a blank just a blank string would do Then in the DateTimePicker OnCloseUp event handler set the format to what you want when a date has been selected and the DTP will show the selected date procedure TForm1 DateTimePicker1CloseUp Sender TObject begin DateTime SetFormat DateTimePicker1 Handle d MMM yyyy end That would set it to 11

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0311.txt (2016-02-14)
    Open archived version from archive


  • examples that I put online after I had to research the problem http www efg2 com Lab Library Delphi DatesAndTimes TDateTimePicker I ll have to remember your page if we need to change the format The biggest problem we ve had with the TDateTimePicker is that the Date property isn t updated while the calendar is dropped down in version 4 onward In the OnChange handler for the TDateTimePicker control

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0920b.txt (2016-02-14)
    Open archived version from archive


  • ComCtrls Db DbCtrls type TwoDBDateTimePicker class TDateTimePicker private FDataLink TFieldDataLink procedure DataChange Sender TObject function GetDataField string function GetDataSource TDataSource function GetField TField procedure SetDataField const Value string procedure SetDataSource const Value TDataSource procedure UpdateData Sender TObject procedure WMCut var Message TMessage message WM CUT procedure WMPaste var Message TMessage message WM PASTE procedure WMUndo var Message TMessage message WM UNDO procedure CMExit var Message TCMExit message CM EXIT procedure CMGetDataLink var Message TMessage message CM GETDATALINK protected procedure Change override procedure KeyDown var Key Word Shift TShiftState override procedure KeyPress var Key Char override procedure Loaded override procedure Notification AComponent TComponent Operation TOperation override public constructor Create AOwner TComponent override destructor Destroy override function ExecuteAction Action TBasicAction Boolean override function UpdateAction Action TBasicAction Boolean override property Field TField read GetField published property DataField string read GetDataField write SetDataField property DataSource TDataSource read GetDataSource write SetDataSource end procedure Register implementation procedure Register begin RegisterComponents Samples TwoDBDateTimePicker end TwoDBDateTimePicker procedure TwoDBDateTimePicker Change begin FDataLink Modified inherited Change end procedure TwoDBDateTimePicker CMExit var Message TCMExit begin try FDataLink UpdateRecord except SetFocus raise end DoExit end procedure TwoDBDateTimePicker CMGetDataLink var Message TMessage begin Message Result Integer FDataLink end constructor TwoDBDateTimePicker Create AOwner TComponent begin inherited Create AOwner ControlStyle ControlStyle csReplicatable FDataLink TFieldDataLink Create FDataLink Control Self FDataLink OnDataChange DataChange FDataLink OnUpdateData UpdateData end procedure TwoDBDateTimePicker DataChange Sender TObject begin if FDataLink Field nil and FDataLink ExecuteAction Action end function TwoDBDateTimePicker GetDataField string begin Result FDataLink FieldName end function TwoDBDateTimePicker GetDataSource TDataSource begin Result FDataLink DataSource end function TwoDBDateTimePicker GetField TField begin Result FDataLink Field end procedure TwoDBDateTimePicker KeyDown var Key Word Shift TShiftState begin inherited KeyDown Key Shift if Key VK DELETE or Key VK INSERT and ssShift in Shift then FDataLink Edit end procedure TwoDBDateTimePicker KeyPress var Key Char begin inherited KeyPress

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0704c.txt (2016-02-14)
    Open archived version from archive


  • V4 72 3110 3 Organization Another Netscape Collabra Server User Newsgroups borland public delphi objectpascal I m using Delphi 3 Ok there was a bug in this control in D3 Simply set the TabStop property to true in code like

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1998/1130.txt (2016-02-14)
    Open archived version from archive


  • them are somewhat convoluted The conceptually simplest way is to use FileTimeToSystemTime to reformat the time into a SYSTEMTIME structure and then use EncodeDate and EncodeTime to convert the resulting fields to TDateTime The quicker way is to use FileTimeToDosDateTime to convert the time to DOS date time format combine the two resulting fields into a LongInt with the date in the upper half and then pass the result to

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1005b.txt (2016-02-14)
    Open archived version from archive


  • MMSystem type TcaTimer class TcaTimerThread TcaTimerThread class TThread private FTimer TcaTimer protected procedure DoExecute public constructor CreateTimerThread Timer TcaTimer procedure Execute override end TcaTimer TcaTimer class TComponent private FInterval Integer FPriority TThreadPriority FOnTimer TNotifyEvent FContinue Boolean FRunning Boolean FEnabled Boolean procedure SetEnabled Value Boolean protected procedure StartTimer procedure StopTimer property Continue Boolean read FContinue write FContinue public constructor Create Owner TComponent override procedure On procedure Off published property Enabled Boolean read FEnabled write SetEnabled property Interval Integer read FInterval write FInterval property ThreadPriority TThreadPriority read FPriority write FPriority default tpNormal property OnTimer TNotifyEvent read FOnTimer write FOnTimer end procedure Register implementation procedure Register begin RegisterComponents Samples TcaTimer end TcaTimerThread constructor TcaTimerThread CreateTimerThread Timer TcaTimer begin inherited Create True FTimer Timer FreeOnTerminate True end procedure TcaTimerThread Execute var SleepTime Last Integer begin while FTimer Continue do begin Last timeGetTime Synchronize DoExecute SleepTime FTimer FInterval timeGetTime Last if SleepTime FEnabled then begin FEnabled Value if FEnabled then StartTimer else StopTimer end end procedure TcaTimer StartTimer begin if FRunning then Exit FContinue True if not csDesigning in ComponentState then begin with TcaTimerThread CreateTimerThread Self do begin Priority FPriority Resume end end FRunning True end procedure TcaTimer StopTimer begin FContinue False FRunning False end

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0316b.txt (2016-02-14)
    Open archived version from archive


  • Delphi has to convert this string to a TDateTime before it can be stored in the database Since all modern database store the full four digit year this means that Delphi has to guess whether 48 should be stored as 1948 2048 1848 etc The default value for TwoDigitYearCenturyWindow is zero which means that the current century will be assumed In the example above your would get 1948 If you

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1209c.txt (2016-02-14)
    Open archived version from archive



  •