Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.06.14;
Скачать: [xml.tar.bz2];

Вниз

Неправильная раскраска отчета (и не только)   Найти похожие ветки 

 
madmech ©   (2009-04-26 15:47) [0]

У меня 2 проблемы:
1. Когда я пытаюсь программно менять цвет раскрашиваемых ячеек в Кросс-отчете в зависимости от содержимого ячейки, то почему-то при просмотре отчета цвет оказывается совсем не тем, каким должен быть. К примеру, я пишу:
 if ColumnIndex < N1 then                                                                    
   case Value of
     Null: Memo.Color := clTeal;
     0:    Memo.Color := $f6eb14;                                        
     1:    Memo.Color := $deeed7;
     2:    Memo.Color := $deeed7;                                  
     -1:   Memo.Color := $ffd7d7;  
     -2:   Memo.Color := $ffd7d7;
   end;

Цвета беру из фотошопа, так что с правильностью цветопередачи все в порядке должно быть, да и та же самая матрица в виде DBGrid внутри программы выглядит правильно. Например, ячейки с нулями должны раскрашиваться в бледножелтый цвет, а на деле выходит голубой. Тоже самое со значениями "-1" , "-2" - вместо бледнокрасного выдается фиолетовый. А с "1" и "2" почем-то все нормально. Что тут можно придумать? Может быть, есть смысл использовать функцию rgb? Но тогда как подключить библиотеку Windows? Простое uses Windows; в начале скрипта выдает ошибку.
2. Почему-то никак не удается поменять ширину последнего итогового столбца ColumnTotal, несмотря на то, что "Авто-размер" отключил. Все остальные столбцы вручную удается отрегулировать (либо ручками, либо в инспекторе объектов), а тут хоть ты лопни, хоть ты тресни, ничего не получается, стоит как вкопанный.


 
sniknik ©   (2009-04-26 16:03) [1]

> Цвета беру из фотошопа, так что с правильностью цветопередачи все в порядке должно быть
не обязательно. даже скорее всего не так, т.к. в одном случае это массив из байт (r,g,b) а в другом интежер константа в которой чтобы получить туже последовательность, что в массиве нужно изменить порядок. (см. статьи о хранении чисел в памяти)

> Что тут можно придумать?
да просто местами байты по переставляй, найди правильное местоположение. методом "тыка"...


 
easy ©   (2009-04-26 16:04) [2]

if ColumnIndex < N1 then                                                                    
  case Value of
    Null: Memo.Color := clTeal;
    0:    Memo.Color := $14ebf6;                                        
    1:    Memo.Color := $d7eede;
    2:    Memo.Color := $d7eede;                                  
    -1:   Memo.Color := $d7d7ff;  
    -2:   Memo.Color := $d7d7ff;
  end;


 
madmech ©   (2009-04-26 17:45) [3]

И сразу же, не отходя от кассы, вопрос в догонку ко второй проблеме: а можно ли в итоговый столбец заносить не сумму по строке или результат выполнения какой-либо другой агрегатной функции, а НУЖНЫЙ МНЕ набор чисел?


 
sniknik ©   (2009-04-26 18:17) [4]

ты правила форума читал? как [3] относится к вопросу в топике
> Неправильная раскраска отчета
?
или это оффтоп?



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.06.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.004 c
4-1210845453
DJ Kondakov
2008-05-15 13:57
2009.06.14
Координата правого нижнего угла экрана


2-1240671432
AlexDan
2009-04-25 18:57
2009.06.14
SQL запрос


2-1240693236
Tany
2009-04-26 01:00
2009.06.14
Хранимые процедуры в FireBird


15-1239086924
Игорь Шевченко
2009-04-07 10:48
2009.06.14
McSimm, с днем рождения!


2-1240826671
TNT
2009-04-27 14:04
2009.06.14
Системное меню





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский