• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

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

    Запись на курс до 25 апреля. Получить промодоступ ...

Срочно нужна помощь в 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;
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

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