Статьи по программированию
примеры программного кода
Delphi, Kylix, C, C++, SQL, Visual Basic, Bash, Assembler, 1С
Qt, KOL, MFC, Rx Library, Windows, Linux, Mac OS
Графика и мультимедиа (170)
-->Как поменять указатель мыши со стрелки на часики и обратно?
Опубликовано codeLocker в 08.08.2008 в 11:42.
ОС: Windows Язык: C++ • Visual C++ Раздел: Графика и мультимедиа • Графика • Курсоры
Используйте функции BeginWaitCursor() и EndWaitCursor(). Есть еще один (из многих) путь:
void CTest::MyBiiiiigFunc()
{
CWaitCursor wait;
for(int j=0; j<0x7ffffff; j++){
//......
Sleep(1000);
// И тут все время крутятся часики
}
} // А вот тут их уже нет.
AVI файл проигрывается снова и снова
Опубликовано codeLocker в 02.08.2008 в 09:55.
ОС: Windows Язык: Delphi/Kylix Раздел: Графика и мультимедиа • Видео и анимация
В примере AVI файл проигрывается снова и снова - используем событие MediaPlayer'а Notify
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin with MediaPlayer1 do
if NotifyValue = nvSuccessful then
begin
Notify := True;
Play;
end;
end;
begin with MediaPlayer1 do
if NotifyValue = nvSuccessful then
begin
Notify := True;
Play;
end;
end;
Можно ли как-то уменьшить мерцание при перерисовке компонента?
Опубликовано codeLocker в 31.07.2008 в 10:31.
Язык: Delphi/Kylix • VCL • Общие вопросы ОС: Windows Раздел: Графика и мультимедиа • Графика
Если добавить флаг csOpaque (непрозрачный) к свойству ControlStyle компонента
- то фон компонента перерисовываться не будет.
constructor TMyControl.Create;
begin
inherited;
ControlStyle := ControlStyle + [csOpaque];
end;
begin
inherited;
ControlStyle := ControlStyle + [csOpaque];
end;
Как различаются между собой Paint-события: Invalidate, Update и Refresh?
Опубликовано codeLocker в 31.07.2008 в 10:29.
Язык: Delphi/Kylix • VCL • Общие вопросы ОС: Windows Раздел: Графика и мультимедиа • Графика
Invalidate весь объект перерисовывается заново; обычно перерисовывается только часть бывшая перед этим закрытой
Update незамедлительная перерисовка
Refresh = Invalidate + Update
-->Как создать каретку свой собственной формы?
Опубликовано codeLocker в 31.07.2008 в 10:20.
ОС: Windows Язык: Delphi/Kylix Раздел: Графика и мультимедиа • Графика • Курсоры
{
The example below demonstrates creating custom caret:
}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Image1: TImage;
Edit1: TEdit;
procedure Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
The example below demonstrates creating custom caret:
}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Image1: TImage;
Edit1: TEdit;
procedure Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
Спонсоры проекта:
- Набор услуг прекрасных девушек.
Навигация
Интересные сайты
Сейчас на сайте
Сейчас на сайте 0 пользователей и 2 гостя.
Статистика
Всего материалов: 1387