void __fastcall TForm1::Button1Click(TObject *Sender)
{
HDC DC=GetDC(0);
TCanvas *DCanvas = new TCanvas();
Graphics::TBitmap *pBmp1 = new Graphics::TBitmap();
DCanvas->Handle=DC;
pBmp1->Width=Width;
pBmp1->Height=Height;
pBmp1->Canvas->CopyRect(TRect(0,0,Width,Height),DCanvas,TRect(Left,Top,Left+Width,Top+Height));
Form1->Visible=false;
for(int y=0;y<Height;y+=10)
{
Sleep(50);
DCanvas->CopyRect(TRect(Left,Top,Left+Width,Top+y+10),pBmp1->Canvas,TRect(0,0,Width,y+10));
}
Form1->Visible=true;
ReleaseDC(0,DC);
delete DCanvas;
delete pBmp1;
}
Графический прием вывода формы, как сделть?
Кто стлкивался, поделитесь исходниками?
Нужно, чтобы окно программы при запуске выстраивалось по пикселам в случайном порядке. (из ничего, как мозаика появляется окно)
Можно еще какиенибудь интетесные приемы.
Буду очень признателен!
Нужно, чтобы окно программы при запуске выстраивалось по пикселам в случайном порядке. (из ничего, как мозаика появляется окно)
Можно еще какиенибудь интетесные приемы.
Буду очень признателен!
Код:
Не самый красивый код, конечно. Даже страшно представить, что будет, если над разворачивающимся окном что-нибудь будет двигаться... Но начало положено - разбирайся.
P.S. Мое личное мнение - программы, которые появляются подобным образом (клеточками рандомными ли, или еще как) есть программы стремные. Разрешай пользователю эту мутотень отменить. Вот.