|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Очистить экран после вывода текста на Канве
Код:
procedure DrawOnScreen(const S: string); var DC: HDC; Canvas: TCanvas; X, Y: Integer; begin DC := GetDC(0); Canvas := TCanvas.Create; try Canvas.Handle := DC; Canvas.Brush.Style := bsClear; with Canvas.Font do begin Name := 'Times New Roman'; Size := 50; Color := clRed; end; X := (GetSystemMetrics(SM_CXSCREEN) - Canvas.TextWidth(S)) div 2; Y := (GetSystemMetrics(SM_CYSCREEN) - Canvas.TextHeight(S)) div 2; Canvas.TextOut(x, y, S); finally ReleaseDC(0,DC); Canvas.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin DrawOnScreen('Сообщение на экране'); end; procedure TForm1.Button2Click(Sender: TObject); begin RedrawWindow(GetDesktopWindow,nil,0,RDW_INVALIDATE + RDW_UPDATENOW + RDW_ALLCHILDREN); end; procedure TForm1.Button3Click(Sender: TObject); begin RedrawWindow(GetDesktopWindow, nil, 0, RDW_ERASE or RDW_INVALIDATE or RDW_UPDATENOW or RDW_ALLCHILDREN or RDW_FRAME); end; procedure TForm1.Button4Click(Sender: TObject); begin InvalidateRect(0,0,false); InvalidateRect(0,0,true); end; Нюансы работы: 1. Текст выводится в чёрном прямоугольнике, а хотелось бы, чтобы фон текста отсутствовал, т.е. чёрного прямоугольника не было. 2. При нажатии на Button2 и Button3 текст не исчезает, хотя должен бы. При нажатии на Button4 - исчезает, но: 3. При выводе другого текста, он отображается наложением на старый. Почему не стирается предыдущий текст и как избавиться от чёрного прямоугольника вокруг текста? Операционные Vista и Win7. |