8°C
завтра: 5°C
Погода в Перми
8°C
вечером9°C
ночью4°C
завтра5°C
Подробно
 63,79
+0.0046
Курс USD ЦБ РФна 24 апреля
63,7906
+0.0046
 71,75
+0.0243
Курс EUR ЦБ РФна 24 апреля
71,7453
+0.0243
  • Анонимный пользователь
    Помогите преобразовать переменную типа TColor в String.

    Нужно считать с экрана цвет пиксел (это работает точно),
    а потом вывести его в Edit1....

    Пробовал Tcolor -> Int -> String тоже не получается.

  • Cactus

    Анонимный пользователь

    Если бы на C++, то создаешь такую вещь:

    union xxx{
    TColor a;
    unsigned char b[4];
    }z;

    И усе. В поле "a" присваиваешь значение цвета, а из массива b берешь его составляющие по цветам. При желании преобразовываешь их в строки.

    Для Дельфи посмотри есть ли аналог union.

  • veteran

    Сообщений: 2428

    ColorToRGB?

    ---
    Full http://full.nm.ru
    -------
    Толк из меня вышел - а вот бестолочь осталась.

  • Cactus

    Анонимный пользователь

    Я так понял, ему нужно на составляющие разложить, а не просто в целое преобразовать. В целое он это уже преобразовывал.:улыб:

  • veteran

    Сообщений: 2428

    Дык берем гугль и суем ему ColorToRGB и получаем ответ
    В ответ на: От:AlanGLLoyd (alanglloyd@aol.com)
    Заголовок:Re: Konverting from TColor to HTML-Color-System (Hex?)
    View: Complete Thread (5 сообщений)
    Original Format
    Группы новостей:comp.lang.pascal.delphi.misc
    Число:1999/02/22


    In article , "Graham Pyne"
    writes:

    >function FixColor(OldColor: longint): longint;
    >var Red, Green, Blue: Longint;
    >begin
    > Red := (OldColor and $ff0000) shr 16;
    > Green := OldColor and $00ff00;
    > Blue := (OldColor and $0000ff) shl 16;
    > Result := Red or Green or Blue;
    >end;

    Surely that is a RGB to TColor coversion - not from TColor.

    HTML is the same as windows RGB, so use the Delphi ColorToRGB() function.


    Alan Lloyd
    alanglloyd@aol.com
    ---
    Full http://full.nm.ru
    -------
    Только сядешь поpаботать - обязательно кто-нить pазбyдит!!!

  • veteran

    Сообщений: 1347

    Если правильно помню тип TColor это и есть как integer. Очевидно, если Color:=clBlack, то в String надо записать "черный". Тогда надо строить таблицу соответствия, типа

    function ColorToString(Color:TColor):string;
    begin
    case Color of
    clBlack: Result:='Чёрный';
    clWhite: Result:='Белый';
    .
    .
    end;
    end;

  • Анонимный пользователь
    Ну вы намутили! Но все равно большое спасибо вам!!!
    А я спрашивал про colorToString();! Кто бы знал что так все просто???

  • Анонимный пользователь
    я знал.

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

Записей на странице:

Перейти в форум

Модератор: