Материалы к урокам информатики, алгоритмики и программирования.
Чтобы просмотреть задание и материалы с урока, выберите ваш предмет!
среда, 22 января 2014 г.
вторник, 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;
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;
Подписаться на:
Сообщения (Atom)