rgAppreciate.ItemIndex of
: for i: = 0 to Items.Count - 1 do Items [i]. Checked: = True;// все
: begin// макс-мін
_maxWeight: = TSolverObject (Items [0]. Data). ObjectWeight;
_minWeight: = TSolverObject (Items [0]. Data). ObjectWeight; i: = 1 to Items.Count - 1 do beginTSolverObject (Items [i]. Data). ObjectWeight> _maxWeight then _maxWeight : = TSolverObject (Items [i]. Data). ObjectWeight; TSolverObject (Items [i]. Data). ObjectWeight <_minWeight then _minWeight: = TSolverObject (Items [i]. Data). ObjectWeight;; i: = 1 to Items.Count - 1 do [i]. Checked: = (TSolverObject (Items [i]. Data). ObjectWeight = _minWeight) or (TSolverObject (Items [i]. Data). ObjectWeight = _maxWeight);;
: for i: = 0 to Items.Count - 1 do Items [i]. Checked: = False;// за вибором;. EndUpdate;;;;
{* ---------------------------------------- ------------------------------------
Клацання мишкою по RadioGroup
0);;
{* ---------------------------------------- ------------------------------------
Клацання мишкою по ListView
0);;
{* ---------------------------------------- ------------------------------------
Клацання мишкою по кнопочки "Оцінити"
{* ---------------------------------------- ------------------------------------
Отрісовка рядки в lvSolverHipothesis кольором відповідно з розміткою вдалий/невдалий/ніякої
_Brush: TBrush; (Sender as TListView). Canvas do begin
_Brush: = Brush;// зберігаємо поточний стан кістіItem.Data <> nil then begin// в Data об'єкта-рядки що-нііть записано? TSolverObject (Item.Data) doObjectClass = ocFact then begin// Якщо те що там записано вже став фактом тоObjectType of// в залежності від типу помітити кольором
sotSuccess: Brush.Color: = _scvSuccessFact;: Brush.Color: = _scvUnSuccessFact;: Brush.Color: = _scvIndefiniteFact;: Brush.Color: = _scvHipothesis;; (Item.DisplayRect (drLabel)) ;// отрісовать цей колір;;: = _Brush;// Повернути на місце кисть
end;;;
{* ---------------------------------------- ------------------------------------
Повертає значення зовні
end;.
ДОДАТОК В
Фільтр ...
