Форум программистов [Powered by Invision Power Board]

Код

// визуализация правил (без масштабирования)
procedure TCelluralAutomaton.DrawRules( var RulesGrid : TStringGrid;
                                        clForeGnd, clBackGnd : TColor );
var
    i, k, delta : Integer;
    rect : TRECT;
    x, y : Integer;
begin
    with RulesGrid do
    begin
        ColCount := fRuleList.fSize * RULE_SIZE + fRuleList.fSize - 1;

        // если все влазит, то масштабируем
        if( fRuleList.fSize <= 8 ) then
            DefaultColWidth := Width  div ColCount - GridLineWidth;

        delta := 0;   // смещение от левого кравя до текущего вывода

        // вывод представлений правил
        for i := 0 to fRuleList.fSize - 1 do
        begin
            // вывод порождающих RULE_SIZE символов
            for k := 1 to RULE_SIZE do
            begin
                if( fRuleList.fListItems[i].GenVector[k] = 1 ) then
                      Canvas.Brush.Color := clForeGnd
                else
                      Canvas.Brush.Color := clBackGnd;

                rect := CellRect( delta + k - 1, 0 );
                Canvas.Rectangle( rect );
            end;

            // вывод результирующего цвета
            if( fRuleList.fListItems[i].ResColor = 1 ) then
                Canvas.Brush.Color := clForeGnd
            else
                Canvas.Brush.Color := clBackGnd;

            rect := CellRect( delta + RULE_SIZE div 2, 1 );
            Canvas.Rectangle( rect );
      
            // !!!!!!!!!!!!! Если это закомментировать, то работает, как надо

            // вывести значение бита
            Canvas.Brush.Color := clInactiveCaptionText;
            rect := CellRect( delta + RULE_SIZE div 2, 2 );

            Canvas.Pen.Color := clBlack;
            Canvas.TextOut( rect.Left + 10, rect.Top + 5,
                            IntToStr( fRuleList.fListItems[i].ResColor ) );

            delta := delta + RULE_SIZE + 1;  // расстояние между группами = 1
         //   Exit;
        end;
    end;
end;