VPF::фон в VirtualDrawTree и jpg, png, gif - Форум программистов

nuker

Дата 29.1.2007, 06:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.1.2007

Репутация: -1
Всего: нет

так работает:  VT.Background.loadFromFile('image.bmp')
так нет:  VT.Background.loadFromFile('image.png')
и так нет:  VT.Background.loadFromFile('image.jpg')
и так нет:  VT.Background.loadFromFile('image.gif')
и даже так нет:  VT.Background.loadFromFile('image.ico')

посмотрел в реализации компонента, действительно он отрисовывает только TBitmap,
хотя свойство  FBackground: TPicture;

Кто с этим сталкивался? может у меня версия старая?
можно ли решить проблему через OnPaintBackground, непереписывая код компонента.

Bose

Дата 29.1.2007, 12:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

да. Для поддержки Jpg надо добавить в uses часть модуль jpeg, а для поддержки png и gif, установить соответствующие модули и подключить их.

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

nuker

Дата 29.1.2007, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.1.2007

Репутация: -1
Всего: нет

Цитата(Bose @ 29.1.2007, 10:33)

а ты попробуй, я же не просто так спрашиваю наверно.

Romikgy

Дата 29.1.2007, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

http://www.delphi-gems.com/GraphicEx.php

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

nuker

Дата 29.1.2007, 23:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.1.2007

Репутация: -1
Всего: нет

Цитата(Romikgy @ 29.1.2007, 17:54)

http://www.delphi-gems.com/GraphicEx.php

jpeg поддерживается итак, еще подключен pngimage и pngComponents.
Накой мне GraphicEx сдался?

смотри где проблема (точнее одна из проблем):

Код


procedure TBaseVirtualTree.StaticBackground(Source: TBitmap; Target: TCanvas; Offset: TPoint; R: TRect);
// Draws the given source graphic so that it stays static in the given rectangle which is relative to the target bitmap.
// The graphic is aligned so that it always starts at the upper left corner of the target canvas.
// Offset gives the position of the target window as a possible superordinated surface.

const  DST = $00AA0029; // Ternary Raster Operation - Destination unchanged
var
  PicRect: TRect;
  AreaRect: TRect;
  DrawRect: TRect;

begin
  // clear background
  Target.Brush.Color := Color;
  Target.FillRect(R);

  // Picture rect in relation to client viewscreen.
  PicRect := Rect(FBackgroundOffsetX, FBackgroundOffsetY, FBackgroundOffsetX + Source.Width, FBackgroundOffsetY + Source.Height);

  // Area to be draw in relation to client viewscreen.
  AreaRect := Rect(Offset.X + R.Left, Offset.Y + R.Top, Offset.X + R.Right, Offset.Y + R.Bottom);

  // If picture falls in AreaRect, return intersection (DrawRect).
  if IntersectRect(DrawRect, PicRect, AreaRect) then
  begin
    // Draw portion of image which falls in canvas area.
    if Source.Transparent then
    begin
      // Leave transparent area as destination unchanged (DST), copy non-transparent areas to canvas (SRCCOPY).
      with DrawRect do
        MaskBlt(Target.Handle, Left - Offset.X, Top - Offset.Y, (Right - Offset.X) - (Left - Offset.X),
          (Bottom - Offset.Y) - (Top - Offset.Y), Source.Canvas.Handle, Left - PicRect.Left, DrawRect.Top - PicRect.Top,
          Source.MaskHandle, Left - PicRect.Left, Top - PicRect.Top, MakeROP4(DST, SRCCOPY));
    end
    else
    begin
      // copy image to destination
      with DrawRect do
        BitBlt(Target.Handle, Left - Offset.X, Top - Offset.Y, (Right - Offset.X) - (Left - Offset.X),
          (Bottom - Offset.Y) - (Top - Offset.Y) + R.Top, Source.Canvas.Handle, Left - PicRect.Left, DrawRect.Top - PicRect.Top,
          SRCCOPY);
    end;
  end;
end;

усвоил? никакие GraphicEx тут непомогут. либо править компонент,
либо по событию OnPaintBackground рисовать(что у меня невышло).

Это сообщение отредактировал(а) nuker - 29.1.2007, 23:41

Romikgy

Дата 29.1.2007, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(nuker @ 29.1.2007, 22:37

)

Накой мне GraphicEx сдался?

это тебе решать мое дело предложить , и сделал я это после этого

Цитата(nuker @ 29.1.2007, 05:18

)

не подходит не бери!

Цитата(nuker @ 29.1.2007, 22:37

)

усвоил?

а это при себе оставь плз

Цитата(nuker @ 29.1.2007, 22:37

)

либо править компонент,
либо по событию OnPaintBackground рисовать

правь , рисуй твое занятие

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

nuker

Дата 30.1.2007, 02:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.1.2007

Репутация: -1
Всего: нет

Цитата(Romikgy @ 29.1.2007, 21:43)

это тебе решать мое дело предложить , и сделал я это после этого

Цитата(nuker @ 29.1.2007, 05:18

)

и как? .png c прозрачностью на фоне рисуется?

Цитата(Romikgy)

не подходит не бери!

Неподходит.
Последняя официальная версия аж от 2003 года и судя по ньюсгруппе (да и сам пробовал обновлять), если качать с SVN, у всех проблемы возникают.

Цитата(Romikgy)

правь , рисуй твое занятие

Я за помощью пришел на форум.

Это сообщение отредактировал(а) nuker - 30.1.2007, 02:54

nuker

Дата 30.1.2007, 06:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.1.2007

Репутация: -1
Всего: нет

вот еще кусок кода из VT

Код


     if (toShowBackground in FOptions.FPaintOptions) and (FBackground.Graphic is TBitmap) then
     ...

теперь понятно? (FBackground.Graphic is TBitmap)
каким образом тут будет отрисовываться png? хоть сколько библиотек наподключай.
я же спросил (кто с этим сталкивался?)
если я кого-то оскорбил, извиняюсь.

CatATonik

Дата 30.1.2007, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8

По моему явное недопонимание, человек хочет нарисовать например PNG, а VirtualTree рисует только TBitmap (это так и есть). Поэтому какие библиотеки вы не подключайте он все равно не будет рисовать ничего кроме TBitmap. Конечно можно запихнуть любой формат в Bitmap (Assign), но если это PNG, например, он не будет рисовать альфа канал. Так что напрасно набросились на человека.

Только неопнятно Nuker ты же сам написал про OnPaintBackground, вот там и рисуй. Я не вижу проблем.

Bose

Дата 30.1.2007, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

Цитата(nuker @ 29.1.2007, 19:17

)

а ты попробуй, я же не просто так спрашиваю наверно.

Да, действительно. smile

Ну так правь исходник, либо рисуй в OnPaintBackground smile

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

nuker

Дата 30.1.2007, 19:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.1.2007

Репутация: -1
Всего: нет

Цитата(Bose @ 30.1.2007, 11:27

)

либо рисуй в OnPaintBackground

вот и подскажи.
там обычно черный фон идет, но EraseBackground помог + FillRect
все вроде пучком, но перекрывающие ноды закрашивают фон, если посмотреть сорцы, то становится понятно, что используется другая отрисовка.
я сижу на 7семерке, - версия дерева(4.4.17).

Добавлено @ 19:59
CatATonik Спасибо за саппорт.

Цитата(CatATonik @ 30.1.2007, 09:13

)

ты же сам написал про OnPaintBackground, вот там и рисуй. Я не вижу проблем.

Именно, но как выше сказано есть трабла с перекрытием.

Это сообщение отредактировал(а) nuker - 30.1.2007, 20:01

CatATonik

Дата 31.1.2007, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8

Да, там действительно тяжелый случай. Впринципе можно отрисовывать в OnPaintBacground и в BeforeItemErase соответсвующий кусок, но я не уверен что все равно всегда все будет правильно работать.

Может все таки рисовать битмап? Если, как я понимаю, нужно давать пользователю возможность выбрать картинку, то примерно так:

Код


procedure LoadBackground(const FileName: string);
var
  Bitmap: TBitmap;
  Picture: TPicture;
begin
  Bitmap := TBitmap.Create;
  Picture := TPicture.Create;
  try
    Picture.LoadFromFile(FileName);
    Bitmap.Width := Picture.Width;
    Bitmap.Height := Picture.Height;
    Bitmap.Canvas.Bursh.Color := MyTree.Color;
    Bitmap.Canvas.FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
    Bitmap.Canvas.Draw(0, 0, Picture.Graphic);
    MyTree.Background.Graphic := Bitmap;
  finally
    Bitmap.Free;
    Picture.Free;
  end;
end;

nuker

Дата 31.1.2007, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.1.2007

Репутация: -1
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »