• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Срочно нужна помощь в Delphi!!!

  • Автор темы LuberZ
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

LuberZ

По точкам, которые вносят в StingGrid, строится график в Image. После выполнения я изменяю цвет графика. Затем я сохраняю координаты в .txt файле.
ВОПРОС: как там же сохранить выбранный цвет гафика и чтобы при загрузке из файла цвет был выбранным?
 
A

admin

LuberZ
цвет - это шеснадцатиричное число.
вот как число и сохраняйте
 
A

AC Leo

Есть DBGrid, который "разукрашивается" в разные цвета в зависимости от условия (есть долг, нет долг, отриц. долг). Загрузить с ini - файла цвета не получается, при смене цвета через ColorDialog вообще разукрашивает разные ячейки в разные цвета. Если ставлю фиксированный цвет (clREd, clGreen, clBlack) все ОК. Че делать? Пытался через IntToHex, тоже не хрена. :lol:
 
A

Artexoid

LuberZ
ВОПРОС: как там же сохранить выбранный цвет гафика и чтобы при загрузке из файла цвет был выбранным?
Значит так. Возьми преобразуй цвет (Изначально он в шеснадцатиричной форме) который ты выбрал в RGB и сохрани его в текстовом файле.
Процедура приобразования 16-ричного кода цвета в RGB]
Код:
function TcolorToRGB(Color: Longint):string;
var r, g, b: Byte;
begin
  r   := Color;
  g   := Color shr 8;
  b   := Color shr 16;
  TcolorToRGB:=IntToStr(r)+' '+IntToStr(g)+' '+IntToStr(b);
end;
Затем при загрузке программы (или когда там тебе надо) бери и считывай сохраненный тобой цвет в RGB формате из файла. Приобразуй его обратно в шеснадцатиричный код и присваевай его к своему графику.
Процедура приобразования RGB в 16-ричный код цвета
Код:
function RGBToTColor(R, G, B: Byte): TColor;
begin
Result := B shl 16 or G shl 8 or R;
end;
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!