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

#include <vcl.h>
#pragma hdrstop

#include "mycolor.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TmyFColor *myFColor;
//---------------------------------------------------------------------------
__fastcall TmyFColor::TmyFColor(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TmyFColor::BitBtn2Click(TObject *Sender)
{
 // FColor->
}
//---------------------------------------------------------------------------
void __fastcall TmyFColor::FormCreate(TObject *Sender)
{
  //
  Caption = "你的顏色";
}
//---------------------------------------------------------------------------
void __fastcall TmyFColor::BitBtn1Click(TObject *Sender)
{
  short m,d;
  String ss;
  m=1;
  d=1;
  m=StrToInt(CbMonth->Text);
  d=StrToInt(CbDay->Text);
  switch(m)
  {
    case  1:
     if(d==1)
      {
       Label4->Caption="你是紅色的";
       ss="你的可愛十分惹人喜愛！對愛情你很揀擇但又常常在戀愛，也喜歡被愛的感覺。你有著清新的氣質和開朗的個性，但有些時侯也會變得\"多愁善感\"。和別人相處的時侯你表現得很友善和溫柔，所以很多人愿意和你親近。你喜歡跟友善和隨和的人做朋友。";
     }
     if(d>=2&&d<=11)
     {
       Label4->Caption="你是橙色的";
       ss="你總會對自己做過的事付責任，亦很懂得怎樣待人接物。你常常給自己定下很多目標和競爭對象。你很難去相信別人，包括你的朋友，但當你認為他是可信的話，你將會把他當成永遠的知己。";
     }
     if(d>=12&&d<=24)
     {
       Label4->Caption="你是黃色的";
       ss="你是一個又天真又\"甜\"的人。常獲得別人的信任，亦有很強的領導能力。當要做決定 　　或選擇的時侯，你總是做對了決定。還有，你常常?憬著一段浪漫的戀情。";
     }
     if(d>=25&&d<=31)
     {
       Label4->Caption="你是粉紅色的";
       ss="對任何事你總是全力己赴的，還有你很愛照顧其它人。但你不是一個容易滿足的人，常有消極的想法。你常祈望你的愛情象童話故事一樣美麗和完美。";
     }
      //
      break;
    case  2:
      //
      if(d>=1&&d<=3)
     {
       Label4->Caption="你是粉紅色的";
       ss="對任何事你總是全力己赴的，還有你很愛照顧其它人。但你不是一個容易滿足的人，常有消極的想法。你常祈望你的愛情象童話故事一樣美麗和完美。";
     }
     if(d>=4&&d<=8)
     {
       Label4->Caption="你是藍色的";
       ss="你對自己沒有信心，也很挑剔。你很有藝術天分，也很容易去愛上一個人，但當愛情來的時侯，你只是用你的\"感覺\"去愛，而并非用你的心去愛。";
     }
     if(d>=9&&d<=18)
     {
       Label4->Caption="你是綠色的";
       ss="你總能和新相識的朋友相處得很好。你不算是一個害羞的人，但有時侯你的說話每每傷害了別人。你渴望得到愛侶的注意，也較喜歡\"被愛\"的感覺，大多數的時間你總是在等待你生命中的另一半出現。";
     }
     if(d>=19&&d<=28)
     {
       Label4->Caption="你是啡色的";
       ss="你很愛運動，整個人都充滿活力。但別人很難去接近你，話雖如此，你又很容易投入一段感情。但當你發現你在那段感情中得不到你想要的東西時，你會立即放棄，也會復完得很快。";
     }
     if(d>=29&&d<=29)
     {
       Label4->Caption="你是水藍色的";
       ss="你的感覺來去如風。你的生活也帶點孤單，很愛旅游。你對待別人很真誠，但太容易受別人的影響。對你來說，尋找愛情是一件很難的事，也容易在愛中迷失，令你很容易便被愛情所傷。 ";
     }
      break;
    case  3:
      //
      if(d>=1&&d<=10)
     {
       Label4->Caption="你是水藍色的";
       ss="你的感覺來去如風。你的生活也帶點孤單，很愛旅游。你對待別人很真誠，但太容易受別人的影響。對你來說，尋找愛情是一件很難的事，也容易在愛中迷失，令你很容易便被愛情所傷。 ";
     }
     if(d>=11&&d<=20)
     {
       Label4->Caption="你是石灰色的";
       ss="　你是一個冷靜的人，但常給自己壓力。你常常在小事上挑剔，又容易妒忌。你不大會定下來，但你可愛的性格能獲得朋友的信任也樂于跟你接近。";
     }

     if(d>=21&&d<=21)
     {
       Label4->Caption="你是黑色的";
       ss="你樂于接受挑戰，因為你擁有接受挑戰的勇氣。但你并不喜歡改變你自己的生活方 　　式。一旦你落實了一個決定，你會長久地朝著這個方向走。你的愛情也是充滿挑戰和有點與別不同。";
     }
     if(d>=22&&d<=31)
     {
       Label4->Caption="你是紫色的";
       ss="你是一個神秘的人，從不自私，也很難對任何人和事發生興趣。你的狀態永遠是說不定的，是一個情緒化的人。很受周遭的人歡迎，但有是你會做出愚笨的舉動，記性也不太好。你最喜歡與一些有著真性情的人做朋友。";
     }
      break;
    case  4:
      //
      if(d>=1&&d<=10)
     {
       Label4->Caption="你是深籃色的";
       ss="你是一個很吸引人的發光體，也很愛惜自己的生命。你對身邊所有事物都帶著強烈的感覺。你是一個容易\"意亂情迷\"的人。如果有人把你激怒了，你很難會原諒他。 ";
     }
     if(d>=11&&d<=20)
     {
       Label4->Caption="你是銀色的";
       ss="你是一個有豐富想象力和害羞的人，但你樂于接受新事物和新嘗試。你喜歡挑戰自 　　己。學習新的事物時很快會上手，遇強越強。但你的愛情生活通常也比較多挫折和困惑。";
     }
     if(d>=21&&d<=30)
     {
       Label4->Caption="你是白色的";
       ss="你的人生充滿著夢和理想。你對周遭的事有點漠不關心，容易妒忌。你是較為獨特的一群，有時侯，你心中想法總會比別人高深一點。";
     }
      break;
    case  5:
      //
      if(d>=1&&d<=14)
     {
       Label4->Caption="你是藍色的";
       ss="你對自己沒有信心，也很挑剔。你很有藝術天分，也很容易去愛上一個人，但當愛情來的時侯，你只是用你的\"感覺\"去愛，而并非用你的心去愛。";
     }
     if(d>=15&&d<=24)
     {
       Label4->Caption="你是金色的";
       ss="你很清楚什么應該做、什么不應該做。性格開朗又好交際。對于你，尋找一個你愛的人不是一件容易的事，但當你找到你愛的人以后，你絕不輕易變心。";
     }
     //奶油色
     if(d>=25&&d<=31)
     {
       Label4->Caption="你是奶油色的";
       ss="你愛和別人競爭，失敗的感覺你最受不了。極愛運動和戶外活動，你的性格開朗也值得別人信賴。對愛情你會表現得很小心，不會輕易愛上一個人。但一旦找到你生命中的伴侶時，你絕不會讓他跑掉。";
     }
      break;
    case  6:
      //
      if(d>=1&&d<=3)
     {
       Label4->Caption="你是奶油色的";
       ss="你愛和別人競爭，失敗的感覺你最受不了。極愛運動和戶外活動，你的性格開朗也值得別人信賴。對愛情你會表現得很小心，不會輕易愛上一個人。但一旦找到你生命中的伴侶時，你絕不會讓他跑掉。";
     }
     if(d>=4&&d<=13)
     {
       Label4->Caption="你是灰色的";
       ss="你很好動，也很有吸引力。你永不會把想說的話藏在心，總會抒發自己的感情。但有時會變得較自私。你渴望得到別人的注意，討厭不公平的對待。你很風趣，也懂得在適當時侯說適當的話，常常也令到身邊的人快樂。";
     }
     //栗色
     if(d>=14&&d<=23)
     {
       Label4->Caption="你是栗色的";
       ss="你有一個聰明的腦袋。也是一個自我的人，常依自己的喜好來做事，有時會因為不大理別人的感受而惹上麻煩。對于愛情你很有耐性，當你找到你要找的那一位后，你不會再愛上別人。 ";
     }
     if(d>=24&&d<=24)
     {
       Label4->Caption="你是灰色的";
       ss="你很好動，也很有吸引力。你永不會把想說的話藏在心，總會抒發自己的感情。但有時會變得較自私。你渴望得到別人的注意，討厭不公平的對待。你很風趣，也懂得在適當時侯說適當的話，常常也令到身邊的人快樂。";
     }