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

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


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 236
от 26.10.2003, 20:00

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 1065
Отправлено ответов: 2200
Активность: 206.5 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

CJ
Статус: Доверительный
Общий рейтинг: 126.19
[Подробней >>]
Marouder
Статус: Профессиональный
Общий рейтинг: 123.16
URL: Первый Хабаровский Форум
Телефон: (4212) 21-93-65
[Подробней >>]
Cybernetic Creature
Статус: Профессиональный
Общий рейтинг: 131.93
URL: В разработке
[Подробней >>]
 
THE_PRO
Статус: Опытный
Общий рейтинг: 139.72
URL: THE_PRO
[Подробней >>]
sir henry
Статус: Опытный
Общий рейтинг: 156.57
[Подробней >>]
ART_43
Статус: Опытный
Общий рейтинг: 119.02
URL: ART_43 Home Site
[Подробней >>]
 
Boriss
Статус: Доверительный
Общий рейтинг: 133.03
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 1054. Доброго время суток! Как используя Direct X сделать туман в любом месте где ты захотишь. ... (ответов: 1)
Вопрос № 1055. Здравствуйте Эксперты! Как мне сделать, чтобы форма выводилась на экран с каким-нибудь прозрачным цв... (ответов: 6)
Вопрос № 1056. Уважаемые эксперты!! Есть проблема у чайника! Как некую переменную X которая постоянно меняет свое з... (ответов: 6)
Вопрос № 1057. Ув. эксперты! Как в MDI-приложении можно создать (в том, что это сделать можно, я не сомневаюсь) мод... (ответов: 2)
Вопрос № 1058. Я начинающий в Delphi. Подскажите как мне округлить число типа Double. Было - 1.2356, стало - 1.24. ... (ответов: 6)
Вопрос № 1059. приветствую всех экспертов. помогите написать код к программкам(Delphi5): 1.нужно сделать примерно с... (ответов: 1)

Вопросов: 6, ответов: 22


 Вопрос № 1054

Доброго время суток!
Как используя Direct X сделать туман в любом месте где ты захотишь.



Вопрос отправлен: 21.10.2003, 22:26
Отправитель: DJ B

[Следующий вопрос >>] [Список вопросов]

Отвечает CJ

Приветствую Вас, DJ B!
Если я не ошибаюсь, то в делфи так сделать нльзя. Можно в VB.
А если хочешь в Делфи, то попробуй использовать OpenGL!

Ответ отправлен: 22.10.2003, 20:01
Отправитель: CJ


 Вопрос № 1055

Здравствуйте Эксперты!
Как мне сделать, чтобы форма выводилась
на экран с каким-нибудь прозрачным цветом?
Пока!



Вопрос отправлен: 22.10.2003, 01:32
Отправитель: Nick

[Следующий вопрос >>] [Список вопросов]

Отвечает Marouder

Приветствую Вас, Nick!
А что такое "Прозрачный цвет". Я лично не знаю. Просто прозрачную форму можно делать с помощью свойств AlphaBlend и AlphaBlendValue или с помощью WinApi - SetLayeredWindowAttributes.

Ответ отправлен: 23.10.2003, 14:00
Отправитель: Marouder


Отвечает Cybernetic Creature

Добрый день, Nick!
unit TranspaF;
...................
type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure CreateParams (var Params: TCreateParams); override;
end;
.....................
procedure TForm1.CreateParams (var Params: TCreateParams);
begin
inherited CreateParams (Params);
Params.ExStyle := Params.ExStyle or
WS_EX_TRANSPARENT;
end;
end.
*********************************************
Прозрачное окно 2
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Style := bsClear;
Form1.BorderStyle := bsNone
end;

Ответ отправлен: 23.10.2003, 18:20
Отправитель: Cybernetic Creature


Отвечает CJ

Приветствую Вас, Nick!
Сделай цвет формы например красным.
И используй AlphaBlend ставб в true, а AlphaBlendalue уже настраивай по вкусу!


Ответ отправлен: 22.10.2003, 20:02
Отправитель: CJ


Отвечает THE_PRO

Доброе время суток, Nick!
Svoystvo AlphaBlend Fromi.

Ответ отправлен: 22.10.2003, 16:15
Отправитель: THE_PRO


Отвечает sir henry

Здравствуйте, Nick!
У формы есть свойства:
AlphaBlend:=True;
AlphaBlendValue:={0..255}
0 - форма совершенно невидна;
255 - нормальная форма.

Ответ отправлен: 22.10.2003, 09:34
Отправитель: sir henry


Отвечает ART_43

Добрый день, Nick!
Form1.TransparentColorValue:=clBlack;
Form1.TransparentColor:=true;


Ответ отправлен: 22.10.2003, 09:42
Отправитель: ART_43


 Вопрос № 1056

Уважаемые эксперты!!
Есть проблема у чайника!
Как некую переменную X которая постоянно меняет свое значение связать с компонентом ProgressBar чтобы он отражал ее значение.И еще не подскажите где можно почитать инфу о компонентах и их возможностях.
С уважением Антон.



Вопрос отправлен: 22.10.2003, 20:44
Отправитель: антон (oven_mars@rambler.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает Marouder

Доброе время суток, антон!
Можно попробовать с помощью таймера.

Ответ отправлен: 23.10.2003, 14:00
Отправитель: Marouder


Отвечает Boriss

Здравствуйте, антон!
1) есть свойство Position, которую надо устанвавливать по формуле Round((X - Xmin)/(XMax - Xmin))
2) есть интересный справочник Delphistfaq.chm на http://www.forum.vingrad.ru/index.php?act=SF&f=32


Ответ отправлен: 23.10.2003, 10:52
Отправитель: Boriss


Отвечает Cybernetic Creature

Здравствуйте, антон!
procedure Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=Round(x)
end;

Ответ отправлен: 23.10.2003, 18:20
Отправитель: Cybernetic Creature


Отвечает THE_PRO

Добрый день, антон!
ProgressBar1.Position:=X;

Ответ отправлен: 23.10.2003, 10:13
Отправитель: THE_PRO


Отвечает CJ

Здравствуйте, антон!
Смотри приложение!


Приложение:

Ответ отправлен: 23.10.2003, 22:28
Отправитель: CJ


Отвечает sir henry

Здравствуйте, антон!
У ProgressBar есть свойство Position, которое отражает его текущее состояние.

Ответ отправлен: 23.10.2003, 05:56
Отправитель: sir henry


 Вопрос № 1057

Ув. эксперты!
Как в MDI-приложении можно создать (в том, что это сделать можно, я не сомневаюсь) модальную форму (модальную для главного окна приложения). Штатные средства VCL почему-то не работают...
Спасибо.



Вопрос отправлен: 22.10.2003, 22:28
Отправитель: Lerry

[Следующий вопрос >>] [Список вопросов]

Отвечает Cybernetic Creature

Приветствую Вас, Lerry!


Ответ отправлен: 23.10.2003, 18:20
Отправитель: Cybernetic Creature


Отвечает sir henry

Здравствуйте, Lerry!
Форму как раз можно создать штатными средствами, а вот показывать программно:
Form.ShowModal;

Ответ отправлен: 23.10.2003, 06:07
Отправитель: sir henry


 Вопрос № 1058

Я начинающий в Delphi. Подскажите как мне округлить число типа Double. Было - 1.2356, стало - 1.24. Пробовал через формат не получилось выдает - 1.20. Спасибо.



Вопрос отправлен: 23.10.2003, 00:22
Отправитель: lordfa

[Следующий вопрос >>] [Список вопросов]

Отвечает Marouder

Здравствуйте, lordfa!
Придется самому писать функцию округления.

Ответ отправлен: 23.10.2003, 14:00
Отправитель: Marouder


Отвечает Boriss

Здравствуйте, lordfa!
Можно вот так (см. приложение):

Приложение:

Ответ отправлен: 23.10.2003, 11:09
Отправитель: Boriss


Отвечает Cybernetic Creature

Здравствуйте, lordfa!
function RoundEx( X: Double; Precision : Integer ): Double;
{Precision :
1 - до целых
10 - до десятых
100 - до сотых
...
}
var ScaledFractPart, Temp : Double;
begin
ScaledFractPart := Frac(X)*Precision;
Temp := Frac(ScaledFractPart);
ScaledFractPart := Int(ScaledFractPart);
if Temp >= 0.5 then ScaledFractPart := ScaledFractPart + 1;
if Temp <= -0.5 then ScaledFractPart := ScaledFractPart - 1;
RoundEx := Int(X) + ScaledFractPart/Precision;
end;


Ответ отправлен: 23.10.2003, 18:20
Отправитель: Cybernetic Creature


Отвечает ART_43

Здравствуйте, lordfa!
y:=round(x*100)/100

Ответ отправлен: 23.10.2003, 09:29
Отправитель: ART_43


Отвечает THE_PRO

Приветствую Вас, lordfa!
Vrodebi vse doljno rabotat...

Ответ отправлен: 23.10.2003, 10:11
Отправитель: THE_PRO


Отвечает sir henry

Доброе время суток, lordfa!
В модуле Math есть функция RoundTo(число, куда_округлять). Пример:
RoundTo(-1.2356, -2); даст -1.24
RoundTo(-1.2356, -1); даст -1.2

Ответ отправлен: 23.10.2003, 06:49
Отправитель: sir henry


 Вопрос № 1059

приветствую всех экспертов.
помогите написать код к программкам(Delphi5):
1.нужно сделать примерно следующее:
зайти на фтп сервер by.ru по 21 порту с именем
пользователя "mysite.by.ru" и паролем "password".
проверить существование на сервере каталога "downloads"
и файла "file.ext", удалить их если есть. создать каталог
"catalog" и туда скопировать файл "c:filetocopy.ext".
желательно, без сторонних компонентов.
2.как программе на делфи читать из самой себя, начиная
с 45789-го байта от начала файла?
3.ныжни исходники программы, меняющей иконку у стороннего *.exe файла.
-------------
заранее благодарен.



Вопрос отправлен: 23.10.2003, 12:02
Отправитель: Zensor (ZASM@MAIL.RU)

[Следующий вопрос >>] [Список вопросов]

Отвечает Boriss

Приветствую Вас, Zensor!
1) Как раз сегодня наткнулся на статью "Как сделать WebBrowser средствами Delphi 5"
на http://www.delphimaster.ru/articles/webbrowser.html


Ответ отправлен: 23.10.2003, 13:01
Отправитель: Boriss



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


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


Получить ответов:


 Выбор рассылки

Программисту
Assembler (31)
C / C++ (28)
Perl (4)
Builder / Delphi (23)
Pascal (21)
Basic / VBA (6)
Java / JavaScript (6)
PHP (11)
Криптография (8)
WinAPI (14)
Пользователю
Windows 95/98/Me (48)
Windows NT/2000/XP (66)
"Железо" (39)
Поиск информации (28)
Администратору
Windows NT/2000/XP (38)
Linux / Unix (13)
Юристу
Гражданское право (9)
Семейное право (6)
Трудовое право (6)
КоАП (6)

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




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
© 2001-2003 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное