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

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

LuberZ

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

admin

Well-known member
08.08.2003
2 754
0
#2
LuberZ
цвет - это шеснадцатиричное число.
вот как число и сохраняйте
 
A

AC Leo

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

Artexoid

#4
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;
 
Статус
Закрыто для дальнейших ответов.