Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Заливка градиентом и рисование текста, заливка есть, а текста нет =) 
V
    Опции темы
ALeXandrK
Дата 3.10.2007, 20:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 6
Заливаю область градиентом, а потом пытаюсь написать на области текст.
Заливка происходит успешно, а вот текста не видно, хотя код
вывода текста выполняется.
Если в методе Fill убрать Canvas.FillRect (ColorBand), то текст успешно рисуется,
но градиент, понятное дело, нет smile 

В чём может быть дело?

Код

procedure TGradient.Fill(Rect: TRect);
var
  RGBFrom : array[0..2] of Byte; { from RGB values }
  RGBDiff : array[0..2] of integer; { difference of from/to RGB values }
  ColorBand : TRect; { color band rectangular coordinates }
  I : Integer; { color band index }
  R : Byte; { a color band's R value }
  G : Byte; { a color band's G value }
  B : Byte; { a color band's B value }
  Height: integer;
begin
  { extract from RGB values}
  RGBFrom[0] := GetRValue (ColorToRGB (StartColor));
  RGBFrom[1] := GetGValue (ColorToRGB (StartColor));
  RGBFrom[2] := GetBValue (ColorToRGB (StartColor));
  { calculate difference of from and to RGB values}
  RGBDiff[0] := GetRValue (ColorToRGB (EndColor)) - RGBFrom[0];
  RGBDiff[1] := GetGValue (ColorToRGB (EndColor)) - RGBFrom[1];
  RGBDiff[2] := GetBValue (ColorToRGB (EndColor)) - RGBFrom[2];

  { set pen sytle and mode}
  Canvas.Pen.Style := psSolid;
  Canvas.Pen.Mode := pmCopy;

  { set color band's left and right coordinates}
  ColorBand.Left := Rect.Left;
  ColorBand.Right:= Rect.Right-Rect.Left;
  Height := Rect.Bottom-Rect.Top;
  
  for I := 0 to $ff do
  begin
    { calculate color band's top and bottom coordinates}
    ColorBand.Top := MulDiv (I , Height, $100)+1;
    ColorBand.Bottom := MulDiv (I + 1,Height , $100);
    { calculate color band color}
    R := RGBFrom[0] + MulDiv (I, RGBDiff[0], $ff);
    G := RGBFrom[1] + MulDiv (I, RGBDiff[1], $ff);
    B := RGBFrom[2] + MulDiv (I, RGBDiff[2], $ff);
    { select brush and paint color band}
    Canvas.Brush.Color := RGB (R, G, B);
    Canvas.FillRect (ColorBand);
  end;

end;


Код

procedure TDataCell.DrawCaption(Rect: TRect);
begin
  with Canvas do
  begin
    Font := Self.Font;
    if ContainsStr(Caption,#10#13) then
    begin
      Font.Size := Font.Size - 2;
      DrawText(Handle, PChar(Caption), -1, Rect, DT_CENTER);
    end
    else
      DrawText(Handle, PChar(Caption), -1, Rect, DT_CENTER+DT_VCENTER+DT_SINGLELINE);
  end;
end;



--------------------
Богат не/ни тот, у кого много, а тот, кому хватает
PM WWW   Вверх
ivan219
  Дата 3.10.2007, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Скорей всего ты текст пишеш темже цветом что и рисуешь заливку или сночало рисуешь текст а потом делаешь заливку.

Попробуй заместо:
Код

DrawText

Воспользоватся:
Код

Canvas.Font.Color := clRed;
Canvas.TextOut(0,0,'Абр');


Это сообщение отредактировал(а) ivan219 - 3.10.2007, 21:29


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
ALeXandrK
Дата 3.10.2007, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 6
Цвет точно впорядке, а вот последовательность, точнее вызов метода
может где-то несанкционированно происходит... счас посмотрим.

Это сообщение отредактировал(а) ALeXandrK - 3.10.2007, 22:18


--------------------
Богат не/ни тот, у кого много, а тот, кому хватает
PM WWW   Вверх
Alexeis
Дата 4.10.2007, 09:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Цитата

 Font := Self.Font;


Это что еще за порча ссылок, обычно объекты в таких случаях присваивают по значению при помощи метода Assign.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
bems
Дата 6.10.2007, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 1
Всего: 88
Alexeis, 
Код
procedure TCanvas.SetFont(Value: TFont);
begin
  FFont.Assign(Value);
end;



--------------------
Обижено школьников: 8
PM MAIL   Вверх
ivan219
  Дата 6.10.2007, 18:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Цитата(Alexeis @  4.10.2007,  09:55 Найти цитируемый пост)
Это что еще за порча ссылок

Сами разработчики компонентов Delphi себе это позволяют и всё работает.
Код

//TGroupBox
Canvas.Font := Font;
.
.
.
Font := Self.Font;

Да и вдругих тоже встречал такую запись.


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0519 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.