Вопрос № 121465: Здравствуйте)))))))))))опять вас беспокоит неугомонный женский пол))))
вопрос таков: вообщем постановка задачи следущая: при открытии форма должна разворачиваться срахзу на весь экран)) слышала . что есть какая-то функция SCALE))) пользоваться е...Вопрос № 121538: Добрый день, уважаемые эксперты. У меня скорее не вопрос, а просьба. Я изучаю Delphi самостоятельно, и у меня есть куча справочников и возможность написать неплохую программу, которая была бы полезна многим, но у меня проблема: нет хорошей идеи по её...Вопрос № 121559: Добрый день.
Как программно изменить дату редактирования файла. Знаю, что получить ее можно заполнив структуру GetFileAttrubutesEx, но как с ней работать и как установить новую дату не знаю.
Если не трудно, небольшой пример с коментариями...
Вопрос № 121.465
Здравствуйте)))))))))))опять вас беспокоит неугомонный женский пол))))
вопрос таков: вообщем постановка задачи следущая: при открытии форма должна разворачиваться срахзу на весь экран)) слышала . что есть какая-то функция SCALE))) пользоваться ей не умею. причмё я так поняла. что данная функция автоматически считывает размер моего экрана, получается. что надо как-то ввести коэффициент)))
вопрос2))) куда мне нажать)) всё перелазила, не могу найти SсaleImage, у меня дэлфи 7 стоит))
вопрос 3)) хочу кнопочки красивые сделать- с картинками))))))
вопрос 4)))
в моей программе загружается рисунок на форму так вот. чтоб она работала ме надо чтоб эти рисунки были ещё и в Bin, как мне сделать. чтоб это было не обязательно. чтоб пользователь запускал рпограмму, а там были эти рисунки, ане выдавало мне, что их нет в наличии!!!!
Вообщем, помогите, эту гадость сдать надо числа 9 февраля)))
Отвечает: SHERRY
Здравствуйте, Надежда Сергеевна!
На первый вопрос у меня есть два варианта:
1) Можно указать в свойстве формы Align значение alClient
2) В свойстве WindowState можно указать значение wsMaximized
С третьим вопросом - используйте BitBtn. У этого типа кнопкиесть свойство Glyph, где можно прописать путь к *.bmp-файлу. Подобное действие можно применить и к SpeedButton.
Удачи!
Приложение:
--------- Самурай без меча подобен самураю с мечём, только без меча..
Ответ отправил: SHERRY (статус: 6-ой класс)
Ответ отправлен: 03.02.2008, 19:30
Отвечает: PavelGM
Здравствуйте, Надежда Сергеевна!
1. Свойство формы WindowState = wsMaximized
2. Image.Stretch = True
3. См ответ предыдущего эксперта - я бы выбрал SpeedButton
4. Если я правильно понял вопрос, то поместите рисунки в ресурсы, прилинкуйте их к программе (см. в справке - $R) и грузите оттуда прямо в Image например или в битмап (см. в справке - LoadResource/LoadFromResourceName/LoadFromResourceID). Для помещения в ресурсы можно использовать Image Editor из Дельфи или сторонние инструменты, в том числе компилятор ресурсов из командной строки (BRCC32).
Ответ отправил: PavelGM (статус: Студент)
Ответ отправлен: 04.02.2008, 00:44 Оценка за ответ: 4
Вопрос № 121.538
Добрый день, уважаемые эксперты. У меня скорее не вопрос, а просьба. Я изучаю Delphi самостоятельно, и у меня есть куча справочников и возможность написать неплохую программу, которая была бы полезна многим, но у меня проблема: нет хорошей идеи по её написанию. Не могли бы Вы подкинуть мне парочку идей или хотя бы навести на мысль:). Я готов потратить на написание, хоть год, но главное чтобы был толк от этого, желательно чтобы эта программа требовала обновления, чтобы можно было выпускать каждый раз новые версии.
(К примеру: база данных мобильных телефонов). Может у Вас найдется более интересная идея.
Отправлен: 04.02.2008, 05:40
Вопрос задал: demid (статус: 1-ый класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Delph
Здравствуйте, demid!
Идея на вскидку: электронный каталог книг в какой-либо библиотеке - хотя бы в вашей домашней. Имеет смысл вести учёт по издательствам, авторам (коих может быть несколько), разумеется - по названию книг. Полезно так же будет относить книги к различным категориям: учебники, справочники, художественные, математика, химия, фантастика, приключения... Неплохо бы организовать базу данных так, чтобы одна книга могла относиться сразу к нескольким категориям, ведь для ряда книг трудно выделить одну чёткую категорию. Можно
вести ещё учёт наличия книги: стоит на полке, у кого-то (с указанием - у кого), нужно заказать/приобрести. Если эта идея Вас заинтересует, Вы можете развивать её сколь угодно и в любом направлении. Ваше счастье в Ваших руках! --------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.
Ответ отправил: Delph (статус: Студент)
Ответ отправлен: 04.02.2008, 08:35 Оценка за ответ: 5 Комментарий оценки: На самом деле идея хорошая, но что-то не тянет меня к литературе. Желательно чтоб и самому интересно было, тогда и работа пойдёт полным ходом. Всё-таки идея неплохая... надо подумать?!?
Вопрос № 121.559
Добрый день.
Как программно изменить дату редактирования файла. Знаю, что получить ее можно заполнив структуру GetFileAttrubutesEx, но как с ней работать и как установить новую дату не знаю.
Если не трудно, небольшой пример с коментариями
Отвечает: Дегтярев Антон Александрович
Здравствуйте, Бешенцев Матвей!
Вот процедура которая вас интересовала
procedure TForm1.Button1Click(Sender: TObject);
var
name : string;
begin
if not OpenDialog1.Execute then exit; // диалог выбора файла
name := Opendialog1.FileName; // занесение пути файла в переменную
if FileSetDate(name,DateTimeToFileDate(date)) = 0 then // применение даты изменения
showmessage('operaciya vipolnena uspeshno') // сообщения об успешном изменении
else
begin
{ if FileSetAttr(name,faReadOnly) = 0 then // работа с атрибутами все константы лежат в SysUtils строка 54 найти можно по faRe
showmessage('operaciya 2 vipolnena uspeshno')}
end;
showmessage(datetostr(FileDateToDateTime(FileAge(name)))); // показать новую дату файла
end;
--------- Все грибы съедобны, но некоторые - только раз в жизни
Ответ отправил: Дегтярев Антон Александрович (статус: 4-ый класс)
Ответ отправлен: 04.02.2008, 11:38 Оценка за ответ: 5 Комментарий оценки: Спасибо за оперативность, вопрос уже решен с помощью GetFileTime(fhandle,dt1,dt2,dt3) и SetFileTime(fhandle,nil,nil,dt)
Отвечает: Selya
Здравствуйте, Бешенцев Матвей!
Выставить дату для файла:
function SetFileDateTime(FileName: string; NewDateTime: TDateTime): Boolean;
var
FileHandle: Integer;
FileTime: TFileTime;
LFT: TFileTime;
LST: TSystemTime;
begin
Result := False;
try
DecodeDate(NewDateTime, LST.wYear, LST.wMonth, LST.wDay);
DecodeTime(NewDateTime, LST.wHour, LST.wMinute, LST.wSecond, LST.wMilliSeconds);
if SystemTimeToFileTime(LST, LFT) then
begin
if LocalFileTimeToFileTime(LFT, FileTime) then
begin
FileHandle := FileOpen(FileName, fmOpenReadWrite or
fmShareExclusive);
if SetFileTime(FileHandle, nil, nil, @FileTime) then
Result := True;
end;
end;
finally
FileClose(FileHandle);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
if SetFileDateTime(OpenDialog1.FileName, now) then
ShowMessage('Date set to now !');
end;
Ответ отправил: Selya (статус: 6-ой класс)
Ответ отправлен: 04.02.2008, 11:55 Оценка за ответ: 5 Комментарий оценки: Спасибо
