среда, 22 января 2014 г.

Построение модели в электронных таблицах

Автор: +Алексей Раскин 

Давайте предположим, что вы решаете задачу о том, сколько электроэнергии будет потреблять город Кемерово ближайшие 20 лет. (Ссылка на модель)

Итак. Как выглядит процесс моделирования? Существенно упрощенный, но вполне реальный. Мы пройдем по основным этапам моделирования и в конце у нас должна появиться модель. Простая, но рабочая.

вторник, 21 января 2014 г.

Lazarus. Загрузка изображений в StringGrid

Ниже приведен код программы, в которой по нажатию на клетки таблицы, в нее будут загружаться флажки разного цвета (зеленый - при первом нажатии и красный - при втором нажатии)

type
  { TForm1 }
//На форме размещаем
  TForm1 = class(TForm)
    Button1: TButton; //Кнопка Restart
    sg: TStringGrid;  //Таблица StringGrid 
    procedure Button1Click(Sender: TObject); //Создаем обработчик события onClick для Button1
    procedure FormCreate(Sender: TObject); //Создаем обработчик события onCreate для Form1
    procedure sgClick(Sender: TObject); //Создаем обработчик события onClick для sg
    procedure sgDrawCell(Sender: TObject; aCol, aRow: integer;
      aRect: TRect; aState: TGridDrawState);//Создаем обработчик события onDrawCell для sg
  private
    { private declarations }
  public
    { public declarations }
  end;