void __fastcall TCanvasSmoothStretch::FormCreate(TObject *Sender)
{
  // Draw a chart onto Image1 for this example:
  Chart1->Legend->Visible = false;
  Chart1->Width = Image1->Width;
  Chart1->Height = Image1->Height;
  Image1->Picture->Assign(Chart1);

  RadioGroup1Click(this);
}
コード例 #2
0
ファイル: raporayar.cpp プロジェクト: hasanozgan/win-mts
void __fastcall TfrmRaporSecimi::FormShow(TObject *Sender)
{
    frmAnaMenu->Database->Connected = true;

    // Cinsi ComboBox'ýna kayýt ekleniyor...
    comboStokCinsiBaslangic->Items->Clear();
    comboStokCinsiBitis->Items->Clear();
    frmUrunCinsi->tblURUNCINSI->Open();
    frmUrunCinsi->tblURUNCINSI->First();
    comboStokCinsiBaslangic->Items->Add("");
    comboStokCinsiBitis->Items->Add("");
    comboStokCinsiBaslangic->Items->Add("MALZEME");
    comboStokCinsiBitis->Items->Add("MALZEME");
    while (!frmUrunCinsi->tblURUNCINSI->Eof) {
        comboStokCinsiBaslangic->Items->Add(frmUrunCinsi->tblURUNCINSIURUNCINSI->Value);
        comboStokCinsiBitis->Items->Add(frmUrunCinsi->tblURUNCINSIURUNCINSI->Value);
        frmUrunCinsi->tblURUNCINSI->Next();
    }
    frmUrunCinsi->tblURUNCINSI->Close();

    // Departman ComboBox'ýna kayýt ekleme toplu kodu
    comboDepartmanBaslangic->Items->Clear();
    comboDepartmanBitis->Items->Clear();
    frmDepartman->tblDEPARTMAN->Open();
    frmDepartman->tblDEPARTMAN->First();
    comboDepartmanBaslangic->Items->Add("");
    comboDepartmanBitis->Items->Add("");
    while (!frmDepartman->tblDEPARTMAN->Eof) {
        comboDepartmanBaslangic->Items->Add(frmDepartman->tblDEPARTMANDEPARTMAN->Value);
        comboDepartmanBitis->Items->Add(frmDepartman->tblDEPARTMANDEPARTMAN->Value);
        frmDepartman->tblDEPARTMAN->Next();
    }
    frmDepartman->tblDEPARTMAN->Close();
    // ---------------------------------- kod sonu...

    PersonelBilgisiDoldur();
    RutbeYukle();
    queryPERSONEL->Open();
    RadioGroup1Click(Sender);
}
コード例 #3
0
ファイル: Unit1.cpp プロジェクト: Natalyas/Program.2kurs
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 char buf[100];
 AnsiString t1,t2;
 unsigned char t;
 int p=0,i,j,k;
 buf[p_max+d_len]='*';
// AnsiString t1,t2;
 Memo1->Text="";
 Memo2->Text="";



 for(i=1;i<=p_max+d_len;i++)
  {if(i==(1<<p))
     {buf[p_max+d_len-i]='*';p++;
      s_cod[p_max+d_len-i]=0;
     }
   else
     {buf[p_max+d_len-i]=s_in[d_len-i+p]+'0';
      s_cod[p_max+d_len-i]=s_in[d_len-i+p];
     }
  }
 buf[p_max+d_len+1]=0;
 for(p=0;p<p_max;p++)
  {t=0; t1="";t2="";
   for(int j=0;j<p_max+d_len;j++)
     {t^=matrix[p_max-p][j]&s_cod[j];

      for(k=0;k<=p_max;k++)
        if((1<<k)==(p_max+d_len-j)) break;

      if((k>p_max)&&matrix[p_max-p][j])
        {if(t1!="")
          {t1="+"+t1;t2="+"+t2;

          }
         t1=(AnsiString)"A"+(p_max+d_len-j)+t1;
         t2=(AnsiString)(s_cod[j])+t2;
        }
     }
   s_cod[p_max+d_len-(1<<p)]=t;
   Memo2->Text=Memo2->Text+"E"+(p+1)+"="+t+"="+t1+"="+t2+"\r\n";
  }
 deb->Text=buf;


 s_cod[p_max+d_len]=0;
 for(int j=0;j<d_len+p_max;j++)
  s_cod[p_max+d_len]^=s_cod[j];

 for(i=0;i<=p_max+d_len;i++) buf[i]=s_cod[i]+'0';
 buf[p_max+d_len+1]=0;
 Edit3->Text=buf;



 t1="";t2="";
 for(t=0,j=0;j<p_max+d_len;j++)
     {  t^=s_cod[j];
        if(t1!="")  {t1=t1+"+"; t2=t2+"+"; }
        for(i=0;i<p_max;i++)
          {if(p_max+d_len-j==1<<i) break;
          }

        if(i<p_max||j==p_max+d_len) t1=t1+"E"; else t1=t1+"A";
        t1=t1+(AnsiString)+(p_max+d_len-j);
        t2=t2+(AnsiString)s_cod[j];
     }
 Memo2->Text=(AnsiString)"E0="+(t)+"="+t1+"="+t2+"\r\n"+Memo2->Text;








 RadioGroup1Click(Sender);
}