1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
procedure TFrameSaisieCourbe.SetMode(pBouffeePossible: Boolean);
begin
ComboBoxExTypePoint.ItemsEx.BeginUpdate;
try
ComboBoxExTypePoint.ItemsEx.Clear;
ComboBoxExTypePoint.ItemsEx.AddItem('Point continu',0, 0, -1,-1, nil);
ComboBoxExTypePoint.ItemsEx.AddItem('Fin de palier',1, 1, -1,-1, nil);
if (pBouffeePossible) then
ComboBoxExTypePoint.ItemsEx.AddItem('Bouffée',2, 2, -1,-1, nil);
ComboBoxExTypePoint.ItemIndex := 0;
finally
ComboBoxExTypePoint.ItemsEx.EndUpdate;
end;
end; |