Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1059
от 09.02.2008, 14:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 439, Экспертов: 58
В номере:Вопросов: 3, Ответов: 5

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 121465: Здравствуйте)))))))))))опять вас беспокоит неугомонный женский пол)))) вопрос таков: вообщем постановка задачи следущая: при открытии форма должна разворачиваться срахзу на весь экран)) слышала . что есть какая-то функция SCALE))) пользоваться е...
Вопрос № 121538: Добрый день, уважаемые эксперты. У меня скорее не вопрос, а просьба. Я изучаю Delphi самостоятельно, и у меня есть куча справочников и возможность написать неплохую программу, которая была бы полезна многим, но у меня проблема: нет хорошей идеи по её...
Вопрос № 121559: Добрый день. Как программно изменить дату редактирования файла. Знаю, что получить ее можно заполнив структуру GetFileAttrubutesEx, но как с ней работать и как установить новую дату не знаю. Если не трудно, небольшой пример с коментариями...

Вопрос № 121.465
Здравствуйте)))))))))))опять вас беспокоит неугомонный женский пол))))
вопрос таков: вообщем постановка задачи следущая: при открытии форма должна разворачиваться срахзу на весь экран)) слышала . что есть какая-то функция SCALE))) пользоваться ей не умею. причмё я так поняла. что данная функция автоматически считывает размер моего экрана, получается. что надо как-то ввести коэффициент)))
вопрос2))) куда мне нажать)) всё перелазила, не могу найти SсaleImage, у меня дэлфи 7 стоит))
вопрос 3)) хочу кнопочки красивые сделать- с картинками))))))
вопрос 4)))
в моей программе загружается рисунок на форму так вот. чтоб она работала ме надо чтоб эти рисунки были ещё и в Bin, как мне сделать. чтоб это было не обязательно. чтоб пользователь запускал рпограмму, а там были эти рисунки, ане выдавало мне, что их нет в наличии!!!!
Вообщем, помогите, эту гадость сдать надо числа 9 февраля)))
Отправлен: 03.02.2008, 16:53
Вопрос задала: Надежда Сергеевна (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 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, но как с ней работать и как установить новую дату не знаю.
Если не трудно, небольшой пример с коментариями
Отправлен: 04.02.2008, 10:50
Вопрос задал: Бешенцев Матвей (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Дегтярев Антон Александрович
Здравствуйте, Бешенцев Матвей!
Вот процедура которая вас интересовала
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
Комментарий оценки:
Спасибо


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.70 от 17.01.2008
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное