залить форму картинкой - Общие вопросы Delphi - Страница 2

NewLamer&Programer · 14.09.2013, 19:26

но у DrawGrid нету ни метода OnDraw ни OnPaint ни даже Glyph... как же все таки быть... очень хочется не стандартную таблицу

Аватар · 14.09.2013, 19:31

Так уж и нет OnDraw. Зато OnDrawCell есть. И в нем можно прорисовывать каждую ячейку. Или все буквально воспринимается?

NewLamer&Programer · 14.09.2013, 19:37

понимаешь, если я начинаю закрашивать OnDrawCell, пропадают все линии... и даже при попытке восстановить они восстанавливаются лишь до перемотки...

Код:

procedure TForm1.DGDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
Var bmp: TBitMap;
begin
bmp:= TBitMap.Create;
bmp.LoadFromFile('фон.bmp');
DG.Canvas.Draw(Rect.Left,Rect.Top,bmp);
DG.Canvas.Brush.Color:= clBlack;
DG.Canvas.FrameRect(Rect);
bmp.Free;
end;

Аватар · 14.09.2013, 19:44

И что? Нужно понимать, что OnDrawGrid используется не для закрашивания всего грида сразу, а для прорисовки каждой ячейки отдельно. И вызывается соответственно для каждой видимой ячейки грида

NewLamer&Programer · 14.09.2013, 19:51

и? я то это понимаю... что я не так делаю?

ReportCube · 14.09.2013, 19:59

Да хотя бы то, что для каждой ячейки вы читаете фон из файла, заливаете фоном с всё с начальными координатами Rect.Left и Rect.Top. Вас это не удивляет?

NewLamer&Programer · 14.09.2013, 20:13

нет, совсем нет

я не знаю конечно, может то что я каждый раз читаю фон из файла это как то возможно мешает... если да скажите об этом, вынесу в глобальные переменные битмап, и чтение из файла OnCreate формы, а что касается ректа, то координаты насколько я понимаю не начальные... а именно каждый раз используется рект текущей перерисовываемой ячейки... ну так я это понимаю, может я ошибаюсь... это событие мне мало знакомо...

ReportCube · 14.09.2013, 20:59

Отладчик запускаем, делаем точку останова на отрисовке, берём картинку поаляпистей, запускаем и смотрим на эффект такой отрисовки

NewLamer&Programer · 14.09.2013, 21:06

че то я не понял что произошло, только приложение решительно не хотело показываться... т.е. висел делфи и не хотел сворачиваться, приложение было видно в панеле задач, но увидеть форму мне так и не удалось, при трассировке курсор все время висел на брике... не исключаю что я просто не умею делать трассировку... в делфи 7 это же ф4 не?

ReportCube · 14.09.2013, 21:16

http://www.delphicomponent.ru/205-ot...programmy.html

14.09.2013, 19:31	#12
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Так уж и нет OnDraw. Зато OnDrawCell есть. И в нем можно прорисовывать каждую ячейку. Или все буквально воспринимается? Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

14.09.2013, 19:37	#13
NewLamer&Programer Форумчанин Регистрация: 23.11.2012 Сообщений: 428	понимаешь, если я начинаю закрашивать OnDrawCell, пропадают все линии... и даже при попытке восстановить они восстанавливаются лишь до перемотки... Код: `procedure TForm1.DGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); Var bmp: TBitMap; begin bmp:= TBitMap.Create; bmp.LoadFromFile('фон.bmp'); DG.Canvas.Draw(Rect.Left,Rect.Top,bmp); DG.Canvas.Brush.Color:= clBlack; DG.Canvas.FrameRect(Rect); bmp.Free; end;`

14.09.2013, 19:44	#14
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	И что? Нужно понимать, что OnDrawGrid используется не для закрашивания всего грида сразу, а для прорисовки каждой ячейки отдельно. И вызывается соответственно для каждой видимой ячейки грида Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

14.09.2013, 21:16	#20
ReportCube Форумчанин Регистрация: 11.03.2011 Сообщений: 426	Действительно проблема http://www.delphicomponent.ru/205-ot...programmy.html

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Заливка картинкой	ivannes	Мультимедиа в Delphi	6	22.10.2011 07:56
Одну и ту же форму использовать как MDI-child форму и как модальную форму?	PrimaryPro	Общие вопросы Delphi	2	10.03.2010 20:52
Проблема с картинкой.	ROD	Компьютерное железо	11	07.02.2009 09:02
Проблема с картинкой	puma	HTML и CSS	3	15.07.2008 14:20
Управление картинкой	Патрон	Общие вопросы Delphi	15	06.05.2008 20:54

14.09.2013, 19:26	#11
NewLamer&Programer Форумчанин Регистрация: 23.11.2012 Сообщений: 428	но у DrawGrid нету ни метода OnDraw ни OnPaint ни даже Glyph... как же все таки быть... очень хочется не стандартную таблицу

14.09.2013, 19:51	#15
NewLamer&Programer Форумчанин Регистрация: 23.11.2012 Сообщений: 428	и? я то это понимаю... что я не так делаю?

14.09.2013, 19:59	#16
ReportCube Форумчанин Регистрация: 11.03.2011 Сообщений: 426	Да хотя бы то, что для каждой ячейки вы читаете фон из файла, заливаете фоном с всё с начальными координатами Rect.Left и Rect.Top. Вас это не удивляет?

14.09.2013, 20:13	#17
NewLamer&Programer Форумчанин Регистрация: 23.11.2012 Сообщений: 428	нет, совсем нет я не знаю конечно, может то что я каждый раз читаю фон из файла это как то возможно мешает... если да скажите об этом, вынесу в глобальные переменные битмап, и чтение из файла OnCreate формы, а что касается ректа, то координаты насколько я понимаю не начальные... а именно каждый раз используется рект текущей перерисовываемой ячейки... ну так я это понимаю, может я ошибаюсь... это событие мне мало знакомо...

14.09.2013, 20:59	#18
ReportCube Форумчанин Регистрация: 11.03.2011 Сообщений: 426	Отладчик запускаем, делаем точку останова на отрисовке, берём картинку поаляпистей, запускаем и смотрим на эффект такой отрисовки

14.09.2013, 21:06	#19
NewLamer&Programer Форумчанин Регистрация: 23.11.2012 Сообщений: 428	че то я не понял что произошло, только приложение решительно не хотело показываться... т.е. висел делфи и не хотел сворачиваться, приложение было видно в панеле задач, но увидеть форму мне так и не удалось, при трассировке курсор все время висел на брике... не исключаю что я просто не умею делать трассировку... в делфи 7 это же ф4 не?