Выбор цвета ч. I (CodeColor)

Выбор цвета часть I

Автор В. Алексеев aka prom

5. В соответствии с таблицей ложим все элементы управления на форму, выбирая из палитры компонентов или через меню: View - Component List. После этого можно приступить к формированию кода модуля формы, заготовка которого была сохранена в файле Main.cpp. Основная функция GetColor(), которая вызывается из обработчиков изменения положения ползунков составляющих цветов.

Код модуля формы Main.cpp

P R O M S I T E

Статьи по С++Builder 6

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
#include "About_main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GetColor()
{
       int R = 255 - scrRed -> Position;
       int G = 255 - scrGreen -> Position;
       int B = 255 - scrBlue -> Position;

edtR -> Text = R;
        edtG -> Text = G;
        edtB -> Text = B;

AnsiString HexR = IntToHex(R,2);
        AnsiString HexG = IntToHex(G,2);
        AnsiString HexB = IntToHex(B,2);

edtHexR -> Text = HexR;
        edtHexG -> Text = HexG;
        edtHexB -> Text = HexB;

edtResult -> Text = HexR+HexG+HexB;
//Макрос RGB WinApi получает в качестве параметров значения 3-х 
//составляющих цветов, возвращает результирующий цвет.
        Panel1 -> Color = TColor(RGB(R,G,B));
        lblColor -> Font -> Color  = TColor(RGB(R,G,B));
}

void __fastcall TForm1::scrRedChange(TObject *Sender)
{
        GetColor();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::scrGreenChange(TObject *Sender)
{
        GetColor();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::scrBlueChange(TObject *Sender)
{
        GetColor();
}

void __fastcall TForm1::CopyClick(TObject *Sender)
{
       edtResult->SelectAll();
       edtResult->CopyToClipboard();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnAboutClick(TObject *Sender)
{
       About -> ShowModal();
}
//---------------------------------------------------------------------------

страницы: 1 2 3 4

стр. 3

Для отображения Облака ссылок
необходим
Adobe Flash Player 9
или выше.