IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Вызов события, OnDrawCell
сообщение
Сообщение #21


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


свойство Picture тоже поменяй
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Гость






Цитата
пытался сделать что-то типа этого... не вышло в итоге
Этого недостаточно. Такой способ сработает только при простых типах (копирование Integer-ов, строк всяких). А Picture - это сложный тип, его надо копировать по-другому:

procedure TForm1.Button3Click(Sender: TObject);

// Чтоб не таскать за собой все время эту длинную строку - сокращаем:
function GetPic(i, j: integer): TPicture;
begin
result := (ArrPanels[i, j].Components[0] as TImage).Picture;
end;

// Это процедура копирования изображения из CopyFrom в CopyTo.
// При этом CopyFrom затирается...
procedure CopyPic(CopyTo: TPicture; CopyFrom: TPicture);
begin
CopyTo.Assign(CopyFrom);
CopyFrom := nil;
end;

var
Pic: TPicture;
begin
// А вот теперь - сам обмен, как и с целыми. Только сначала
// надо создать класс нужного типа, а потом его удалить. А так - все как и обычно...
Pic := TPicture.Create;
CopyPic(Pic, GetPic(4, 4));
CopyPic(GetPic(4, 4), GetPic(2, 2));
CopyPic(GetPic(2, 2), Pic);
Pic.Free;
end;



Цитата
И как Sender может быть другого типа в данном случае?
Не надо отвечать вопросом на вопрос. Я тебя спросил, почему Sender не может быть другого типа. И что будет, если это произойдет.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Бывалый
***

Группа: Пользователи
Сообщений: 195
Пол: Мужской
Реальное имя: Сергей

Репутация: -  2  +


volvo, в общем-то я затрудняюсь ответить на Ваши вопросы smile.gif
А за код спасибо smile.gif

Сообщение отредактировано: Сергей Меркурьев -


--------------------
♣♣♣
"Себя великим не считай, гордясь величьем предков,
Величья не добудешь ты и золота ценою!
Хоть светит на небе луна, но отраженным светом -
Чужою славой не живи, не будь второй луною!!!"
♣♣♣
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 6:20
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name