Мои Конспекты
Главная | Обратная связь

...

Автомобили
Астрономия
Биология
География
Дом и сад
Другие языки
Другое
Информатика
История
Культура
Литература
Логика
Математика
Медицина
Металлургия
Механика
Образование
Охрана труда
Педагогика
Политика
Право
Психология
Религия
Риторика
Социология
Спорт
Строительство
Технология
Туризм
Физика
Философия
Финансы
Химия
Черчение
Экология
Экономика
Электроника

Файл ресурсов. Курсоры.





Помощь в ✍️ написании работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

При перемещ-и указ-ля мыши по экрану он может менять свою форму в завис-ти от св-ва Cursor комп-та, над ктр он расположен в дан.момент. В Delphi предопр-ны стандарт.указ-ли: различные виды стрелочек, песочные часы, рука. В практике программир-я часто возникает необх-ть изменения формы указ-ля д/всех окон пр-мы. # при выполнении достаточно длительного по времени процесса указ-ль мыши часто принимает вид песочных часов, а после завершения процесса – восст-ет свой первоначал.вид. Чтобы изменить форму указ-ля д/всех окон пр-мы одновременноЮ использ-ся св-во Cursor у глобал.объекта Screen, ктр автоматически создается д/кажд.пр-мы. Также мы можем создать и использовать свой курсор. Д/этого надо: 1)выбрать опцию меню Tools/Image Editor, чтобы загрузить редактор изображ-й Delphi. 2)в окне редактора сначала выбрать File/New/Resource File, а затем – Resource/New/Cursor. 3)с помощью опции Resource/Rename необх-мо изменить стандарт.имя ресурса Cursor1 на любое другое (# МОЕ) (это имя должно состоять из заглав.букв). 4)дважды щелкнуть по ресурсу в списке ресурсов или выбрать опцию Resource/Edit – на экране появится окно редактора с 2мя пустыми полями, обведенными красными рамками. Лев.поле предназначено д/показа создаваемого указ-ля в крупном масштабу, прав.показывает его в натурал.величину. 5)нарисовать изображение курсора. 6)щелкнуть мышью по заголовку Untitled1.res окна со списком ресурсов (или закрыть окно с изображ-ями указ-ля кнопкой в его правом верхнем углу) и с помощью File/Save сохранить ресурсный файл под именем Cursor, после чего закрыть редактор изображ-й. 7)Создать нов.проект с пустой формой и написать такой обработчик события OnCreate д/формы Form1: после строки {$R *.DFM} написать {$R Cursor.res} Procedure TForm1.FormCreate Begin {регистрируем указ-ль:} Screen.Cursors[1]:= LoadCursor (HInstance, ‘имя курсора # МОЕ’); {используем его д/клиентской части формы:} Screen.Cursor:= 1; End. После запуска пр-мы появится нарисованный нами указ-ль. При регистрации указ-ля в Screen.Cursors индекс может быть любым числом в диапазоне от -32768 до +32767. Однако следует учитывать, что индексы в диапазоне от -22 до -1 включительно заняты стандарт.указ-лями.

 

Тип дата-время.

Тип дата-время определяется стандартным идентификатором TDateTime и предназначен д/одновременного хр-я и даты и времени. Во внутреннем представлении он занимает 8 байт и подобно Currency представляет собой вещественное число с фиксированной дробной частью: в целой части числа храниться дата, в дробной - время. Дата определяется как количество суток, про шедших с 30 декабря 1899 года, а время - как часть суток, прошедших с 0 часов, так что значение 36444,837 соответствует дате 11.10.1999 и времени 20:05. Количество суток может быть и отрицательным, однако значения меньшие -693594 (соответствует дате 00.00.0000 от Рождества Христова) игнорируются функциями преобразования даты к строковому типу.

Над данными типа TDateTime определены те же операции, что и над вещественными числами, а в выражениях этого типа могут участвовать константы и переменные целого и вещественного типов. Для работы с датой и временем используются подпрограммы:

Function Date: TDateTime – возвращает текущую дату.

Function DateToStr (d:TDateTime):string –преобразует дату в строку символов.

Function DateTimeToStr(d:TDateTime):string –преобразует дату и время в строку символов.

Function FormatDateTime(Format:String; Value:TDateTime):string –преобразует дату и время из параметра Value в строку символов в соответствии со спецификаторами параметра Format

Function Now:TDateTime –возвращает текущую дату и время

Function Time:TDateTime-возвращает текущее время

Function TimeToStr(T:TDateTime):string –преобразует время в строку

Function strtodate(st:string):TDateTime-преобразует символы строки в дату

Functions strtodatetime(st:string):TDateTime-преобразует символы строки в ату и время

Function strtotime(st:string):TDateTime-преобразует символы строки в время

Function DateTimeToStr(value:TDateTime):string-преобарзует строки параметра Value в строку символов

Procedure DateTimeTostring(var st:string; format:string;value:TDateTime)-преобазует дату и время из параметра Value в строку st в соответствие со спецификатором параметра Format

Function DateToStr(value:TDateTime):string-преобразует дату из параметра Value в строку символов

Function FormatDateTime(Format:string;value:TDateTime):string-преобразует дату и время и параметра Value в строку символов в соответствии со спецификатором параметра Format

Function TimeTostr(value:TDateTime):string-преобразует время из параметра Value встроку символов.

Поскольку тип TDateTime совместим с форматом вещественных чисел, можно без труда определить дату, отстоящую от заданной на сколько-то дней вперед или назад: для этого достаточно соответственно прибавить к заданной дате или отнять от нее нужное целое число. Например, оператор lbOutput.Caption := DateToStr (Date + 21); поместит в метку lbOutput дату, соответствующую текущей дате плюс 3 недели. Чуть сложнее с исчислением времени. Например, чтобы добавить к текущему времени полтора часа, следует использовать выражение

Time + StrToTime('1:30') ИЛИ

Time+1.5/24

 

Доверь свою работу ✍️ кандидату наук!
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой



Поиск по сайту:







©2015-2020 mykonspekts.ru Все права принадлежат авторам размещенных материалов.