Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Вниз

Прозрачно-серый фон   Найти похожие ветки 

← →
L.eXX   (2002-03-26 02:30) [6]

Shaman_Naydak:

м... суперская скорость!!! :)

Я сделал так:

procedure TForm1.FormCreate(Sender: TObject);
var
hdcDesk: THandle;
Brush: TBrush;
begin
hdcDesk:=GetWindowDC(GetDesktopWindow);
Brush:=TBrush.Create;
Brush.Bitmap:=TBitmap.Create;
Brush.Bitmap.LoadfromFile("8x8.bmp"); // "шахматная доска" 8x8, 2 бита цветов
Brush.Bitmap.TransparentColor:=clWhite;
Brush.Bitmap.TransparentMode:=tmFixed;
Brush.Bitmap.Transparent:=True;
SelectObject(hdcDesk,Brush.Handle);
Rectangle(hdcDesk,0,0,Screen.Width,Screen.Height);
ReleaseDC(hdcDesk,GetDesktopWindow);
Brush.Bitmap.Free;
Brush.Free;
end;

Всё рисуется, всё быстро, всё здорово. Только опять проблема: сетка какая-то непрозрачная получилась!! :( В чём же дело? Я вроде в свойствах указал...

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c