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

Тема в разделе "Delphi - FAQ", создана пользователем LuberZ, 13 июл 2004.

Статус темы:
Закрыта.
  1. LuberZ

    LuberZ Гость

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

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
    LuberZ
    цвет - это шеснадцатиричное число.
    вот как число и сохраняйте
     
  3. AC Leo

    AC Leo Гость

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

    Artexoid Гость

    LuberZ
    Значит так. Возьми преобразуй цвет (Изначально он в шеснадцатиричной форме) который ты выбрал в RGB и сохрани его в текстовом файле.
    Процедура приобразования 16-ричного кода цвета в RGB]
    Код (Text):
    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-ричный код цвета
    Код (Text):
    function RGBToTColor(R, G, B: Byte): TColor;
    begin
    Result := B shl 16 or G shl 8 or R;
    end;
     
Загрузка...
Похожие Темы - Срочно нужна помощь
  1. paNDa
    Ответов:
    3
    Просмотров:
    1.300
  2. Scrum
    Ответов:
    0
    Просмотров:
    1.186
  3. XserX
    Ответов:
    0
    Просмотров:
    977
  4. Marazm
    Ответов:
    0
    Просмотров:
    1.292
  5. GimmyGee
    Ответов:
    1
    Просмотров:
    1.336
Статус темы:
Закрыта.

Поделиться этой страницей