开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Unit1.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：2k
源码类别：

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  16. void __fastcall TForm1::SplitColor(TCanvas *S_Cv,TCanvas *D_Cv,int width,int height,int nn)
  17. {
  18.   int ii,jj;
  19.   int rgb,rgb1,Rv,Gv,Bv,Cv,Mv,Yv,Kv;
  20.   for(ii=0;ii<height;ii++)
  21.   {
  22.     for(jj=0;jj<width;jj++)
  23.     {
  24.       rgb=S_Cv->Pixels[jj][ii];
  25.       Rv=GetRValue(rgb);
  26.       Gv=GetGValue(rgb);
  27.       Bv=GetBValue(rgb);
  28.       Cv=Rv;
  29.       Mv=Gv;
  30.       Yv=Bv;
  31.       if((Rv==Gv)&&(Gv==Bv))
  32.       {
  33.         Kv=Gv;Cv=255;Mv=255;Yv=255;
  34.       }
  35.       else Kv=255;
  36. //
  37.       if(nn==0)rgb1=Cv;
  38.       else if(nn==1)rgb1=Mv;
  39.       else if(nn==2)rgb1=Yv;
  40.       else     rgb1=Kv;
  42.       D_Cv->Pixels[jj][ii]=TColor(RGB(Byte(rgb1),Byte(rgb1),Byte(rgb1)));
  43.     }
  44.   }
  45. }
  46. //---------------------------------------------------------------------------
  47. void __fastcall TForm1::Button1Click(TObject *Sender)
  48. {
  49.   SplitColor(Image1->Canvas,Image2->Canvas,Image1->Width,Image1->Height,0);
  50.   SplitColor(Image1->Canvas,Image3->Canvas,Image1->Width,Image1->Height,1);
  51.   SplitColor(Image1->Canvas,Image4->Canvas,Image1->Width,Image1->Height,2);
  52.   SplitColor(Image1->Canvas,Image5->Canvas,Image1->Width,Image1->Height,3);
  53. }
  54. //---------------------------------------------------------------------------
  55. void __fastcall TForm1::Button2Click(TObject *Sender)
  56. {
  57.   SplitColor(Image6->Canvas,Image2->Canvas,Image1->Width,Image1->Height,0);
  58.   SplitColor(Image6->Canvas,Image3->Canvas,Image1->Width,Image1->Height,1);
  59.   SplitColor(Image6->Canvas,Image4->Canvas,Image1->Width,Image1->Height,2);
  60.   SplitColor(Image6->Canvas,Image5->Canvas,Image1->Width,Image1->Height,3);
  61. }
  62. //---------------------------------------------------------------------------