pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Use TDateEdit instead of TDatePicker in advanced demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1071 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-17 02:02:01 +00:00
parent 0514629222
commit f9e4eb02af
1 changed files with 13 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
components/virtualtreeview-new/trunk/demos/advanced/Editors.pas
View File

@ -10,7 +10,7 @@ interface
uses
LCLIntf, delphicompat, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VirtualTrees, ExtDlgs, Buttons, ExtCtrls, ComCtrls,
MaskEdit, LCLType;
MaskEdit, LCLType, EditBtn;
type
// Describes the type of value a property tree node stores in its data property.
@ -26,9 +26,6 @@ type
//----------------------------------------------------------------------------------------------------------------------
//todo
TDateTimePicker = TComboBox;
type
// Node data record for the the document properties treeview.
PPropertyData = ^TPropertyData;
@ -179,6 +176,9 @@ type
end;
// Our own edit link to implement several different node editors.
{ TGridEditLink }
TGridEditLink = class(TPropertyEditLink, IVTEditLink)
public
function EndEdit: Boolean; stdcall;
@ -236,8 +236,9 @@ begin
CanAdvance := Shift = [];
if FEdit is TComboBox then
CanAdvance := CanAdvance and not TComboBox(FEdit).DroppedDown;
if FEdit is TDateTimePicker then
CanAdvance := CanAdvance and not TDateTimePicker(FEdit).DroppedDown;
//todo: there's no way to know if date is being edited in LCL
//if FEdit is TDateEdit then
// CanAdvance := CanAdvance and not TDateEdit(FEdit).DroppedDown;
if CanAdvance then
begin
@ -392,21 +393,13 @@ begin
end;
vtDate:
begin
FEdit := TDateTimePicker.Create(nil);
with FEdit as TDateTimePicker do
FEdit := TDateEdit.Create(nil);
with FEdit as TDateEdit do
begin
Visible := False;
Parent := Tree;
//todo
{
CalColors.MonthBackColor := clWindow;
CalColors.TextColor := clBlack;
CalColors.TitleBackColor := clBtnShadow;
CalColors.TitleTextColor := clBlack;
CalColors.TrailingTextColor := clBtnFace;
Date := StrToDate(Data.Value);
OnKeyDown := EditKeyDown;
}
end;
end;
else
@ -433,6 +426,8 @@ begin
// Since we don't want to activate grid extensions in the tree (this would influence how the selection is drawn)
// we have to set the edit's width explicitly to the width of the column.
FTree.Header.Columns.GetColumnBounds(FColumn, Dummy, R.Right);
if FEdit is TDateEdit then
R.Right := R.Right - TDateEdit(FEdit).ButtonWidth;
FEdit.BoundsRect := R;
end;
@ -589,21 +584,13 @@ begin
end;
vtDate:
begin
FEdit := TDateTimePicker.Create(nil);
with FEdit as TDateTimePicker do
FEdit := TDateEdit.Create(nil);
with FEdit as TDateEdit do
begin
Visible := False;
Parent := Tree;
//todo
{
CalColors.MonthBackColor := clWindow;
CalColors.TextColor := clBlack;
CalColors.TitleBackColor := clBtnShadow;
CalColors.TitleTextColor := clBlack;
CalColors.TrailingTextColor := clBtnFace;
Date := StrToDate(Data.Value[FColumn - 1]);
OnKeyDown := EditKeyDown;
}
end;
end;
else