|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.10.2008, 22:37 | #1 |
Регистрация: 05.10.2008
Сообщений: 9
|
Помогите со StringGrid-ом и картинками, плииз!!!Очень нужно!
На форме есть StringGrid (2 столбца х 3 строки).
Как сделать так, чтобы при нажатии на кнопку растровая картинка (после её загрузки через OpenDialog) добавлялась в эту таблицу, при чём в ячейки по порядку (т.е сначала первая строка колонка1, 2; потом вторая строка, колонка 1, 2 .. и т.д). Одно нажатие на кнопку - одно добавление в таблицу... А потом, когда 3 строки таблицы будут заполнены, появлялась новая с возможностью добавления картинки в неё. |
06.10.2008, 08:06 | #2 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Если вам только картинки загружать то лучше использовать DrawGrid.
Код:
Последний раз редактировалось SERG1980; 06.10.2008 в 08:13. |
06.10.2008, 14:30 | #3 |
Регистрация: 05.10.2008
Сообщений: 9
|
Спасибо большое за совет.
Вот что сама сделала: procedure TForm1.Button1Click(Sender: TObject); var i :integer; begin if OpenPictureDialog1.Execute then bm:=TBitMap.Create else Exit; for i:=0 to StringGrid1.RowCount-1 do StringGrid1.Rows[i].Clear; bm.LoadFromFile(OpenPictureDialog1. FileName); x:=StringGrid1.Col; y:=StringGrid1.Row; Canvas.StretchDraw(StringGrid1.Cell Rect(x,y),bm); StringGrid1.SetFocus; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (bm<> nil) and (ACol=x) and (ARow=Y) then StringGrid1.Canvas.StretchDraw(Rect , bm); end; Только затрудняюсь теперь как сделать,чтобы картинки располагались именно по нужным ячейкам. Цикл не придумывается нужный. Несколько часов убила на разные варианты... Туплю что-то( Может быть знает кто-нибудь? Последний раз редактировалось EThread; 06.10.2008 в 14:33. |
06.10.2008, 15:13 | #4 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Код:
|
06.10.2008, 15:25 | #5 |
Регистрация: 05.10.2008
Сообщений: 9
|
Спасибо Вам ещё раз)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Люди помогите !!! Очень срочно нужно. (ПАСКАЛЬ) | Jey_RO | Помощь студентам | 2 | 27.05.2008 18:52 |
Помогите исправить программу нужно очень срочно! | Алена | Помощь студентам | 3 | 04.11.2007 18:28 |
Очень нужно сделать 2 програмы!!! Help !!! Помогите !!! | Nazarik | Помощь студентам | 7 | 24.02.2007 01:51 |