Главная / FAQ по Builder'у / 180 На форме находится Image1...

180 На форме находится Image1. Как залить его черным цветом?



  Graphics::TBitmap* bmp = new Graphics::TBitmap;
  bmp->Width = Image1->Width;
  bmp->Height = Image1->Height;
  Image1->Picture->Bitmap = bmp;
  TCanvas* cn = Image1->Picture->Bitmap->Canvas;
  delete bmp;

  cn->Brush->Color = clBlack;
  cn->FillRect(TRect(0,0,Image1->Width - 1, Image1->Height - 1));

  String color="$00FFFFFF";
  cn->Pixels[20][20]=StringToColor(color);

Victor Kazakov

Предыдущий вопрос   |  Список вопросов   |   Следующий вопрос

источник      На главную      by jenyok
Copyright © 2003 JTSOFT
Сайт управляется системой uCoz