Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

Массив и ДроГрайд   Найти похожие ветки 

 
Лена   (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]

Любой!


 
©   (2004-05-28 14:12) [3]

Она имела в виду наверно под текстом  код в обработчике.
Чтобы ответить нужно  знать связь между массивом Int и картинками.


 
Ega23 ©   (2004-05-28 14:14) [4]

Она имела в виду наверно под текстом  код в обработчике.

:-))))))))))))))))))))))))))))))))))))))))))
Слушай, а я ведь не догнал поначалу!!!! А это эквивалент "поделитесь кодом"!!!


 
©   (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]

что значит "в соответствии с данными в массиве"?


 
©   (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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.024 c
6-1082903946
Romariosp
2004-04-25 18:39
2004.06.13
Как получить список сетевых адаптеров


3-1084629746
ss300
2004-05-15 18:02
2004.06.13
Строковые функции хранимых процедур Interbase


3-1085142598
vic1
2004-05-21 16:29
2004.06.13
создать пользователя и дать ему права


14-1085337667
Thor
2004-05-23 22:41
2004.06.13
как игра называется?


4-1083918898
Samgin
2004-05-07 12:34
2004.06.13
GSM-модем + SMS