Форум: "Основная";
Текущий архив: 2004.06.13;
Скачать: [xml.tar.bz2];
Вниз
Массив и ДроГрайд Найти похожие ветки
← →
Лена (2004-05-28 13:35) [0]Только начинаю программировать, так что вопрос будет туповатый :)
Есть массив оф интеджер, и есть картинки 1.бмп, 2.бмп, 3.бмп итд. (размер 32х32)
Необходимо заполнить DrawGrid по нажатии кнопочки картинками в соответствии с данными в массиве.
Какой текст должен быть в кнопочке?
Заранее благодарна откликнувшимся :)
← →
имя (2004-05-28 13:59) [1]Удалено модератором
← →
Profi © (2004-05-28 14:03) [2]Любой!
← →
R © (2004-05-28 14:12) [3]Она имела в виду наверно под текстом код в обработчике.
Чтобы ответить нужно знать связь между массивом Int и картинками.
← →
Ega23 © (2004-05-28 14:14) [4]Она имела в виду наверно под текстом код в обработчике.
:-))))))))))))))))))))))))))))))))))))))))))
Слушай, а я ведь не догнал поначалу!!!! А это эквивалент "поделитесь кодом"!!!
← →
R © (2004-05-28 14:23) [5]>Ega23 ©
сами то поняли что написали. Да и кричать так не надо а то уши заложило.
← →
Лена (2004-05-28 14:46) [6]Угу. Шютки юмора.
За 5 сообщений, я не увидела ни строчки кода.
спасибо, блин :(
← →
Ega23 © (2004-05-28 14:58) [7]За 5 сообщений, я не увидела ни строчки кода.
ИМХО, и не увидишь. Если ты думаешь, что я что-то понял из твоего поста, то ты глубоко ошибаешься. Сначала сформируй задание грамотно. А потом посмотрим.
← →
WondeRu © (2004-05-28 15:01) [8]что значит "в соответствии с данными в массиве"?
← →
R © (2004-05-28 15:07) [9]Ega23 © (28.05.04 14:58) [7]
ИМХО, и не увидишь. Если ты думаешь, что я что-то понял из твоего поста, то ты глубоко ошибаешься. Сначала сформируй задание грамотно. А потом посмотрим.
Вот с этим я тоже согласен.
← →
default © (2004-05-28 15:14) [10]интересно я телепат!?)
у тебя массив TBitmap-ов ?
← →
Abel (2004-05-28 15:31) [11]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, StdCtrls;
type
TForm1 = class(TForm)
grd: TDrawGrid;
bt: TButton;
procedure btClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure grdDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
private
a: array [0..9] of Integer;
b: array [0..9] of TBitmap;
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.btClick(Sender: TObject);
var
i: Integer;
begin
Randomize;
for i := 0 to 9 do
a[i] := Random(10);
grd.Refresh;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 9 do
begin
b[i] := TBitmap.Create;
b[i].LoadFromFile(IntToStr(i)+".bmp");
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 9 do
b[i].Free;
end;
procedure TForm1.grdDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
(Sender as TDrawGrid).Canvas.Draw(Rect.Left, Rect.Top, b[a[ARow]]);
end;
end.
← →
Лена (2004-05-28 15:42) [12]Спасибо Abel!
to default> твое скромное мнение не конструктивно :)
← →
default © (2004-05-28 15:55) [13]Лена (28.05.04 15:42) [12]
имею мнение хрен оспоришь)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.06.13;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.036 c
