[bcb 6]color catcher !

Télécharger le projet
Commenter

Description

voila,je savait pas quoi faire donc j'ai fait ca : et en plus, je l'ai trouvé utile !
a vous de voir.....

attention, c'est du BCB, donc c'est de la VCL (un peu comme les MFC)

Source / Exemple : 


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "fstream.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
R->Min = 0;
R->Max = 255;

G->Min = 0;
G->Max = 255;

B->Min = 0;
B->Max = 255;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ShowColor()
{
Shape1->Brush->Color = RGB(R->Position,
                           G->Position,
                           B->Position );
}

void __fastcall TForm1::RChange(TObject *Sender)
{
ShowColor();
iR->Caption = R->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::GChange(TObject *Sender)
{
ShowColor();
iG->Caption = G->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BChange(TObject *Sender)
{
ShowColor();
iB->Caption = B->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveClick(TObject *Sender)
{
FILE *file;
DWORD onsenfout;
AnsiString DATA2Write;

DATA2Write = "Valeurs de la couleur :\n=======================\n\nRouge => "
             +IntToStr(R->Position) + "\nVert => " +IntToStr(G->Position) +
             "\nBleu => "+ IntToStr(B->Position);

file = fopen("ColorCaught.txt","w");

fprintf(file,DATA2Write.c_str());

CloseHandle(file);
}
//---------------------------------------------------------------------------

Conclusion :


ce qui est montré, c'est la FOrm principale : le reste est dans le Zip
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Xs)