Frequently Asked Component Specific Questions
Options |
|
Display all FAQ items |
Displaying items 1 to 1 of 1, page 1 of 1
<< previous next >>
TPlannerThis code snippet automatically creates a new planner item at the first available timeslot in planner position 0:
procedure
TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := Planner1.Display.DisplayStart to Planner1.Display.DisplayEnd do
begin
if not Assigned(Planner1.Items.FindFirst(i,i + 1,0)) then
begin
with Planner1.CreateItem do
begin
ItemBegin := i;
ItemEnd := i + 1;
ItemPos := 0;
Text.Text := 'first empty';
CaptionType := ctNone;
end;
break;
end;
end;
end;