Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
13.01.2008, 16:03
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
там нашел только Memo и текст в ней становиться доступным для редактирования пользователем и выделяется на белом фоне. а мне надо чтобы текст был на фоне программы и неизменялся пользователем.
что бы выглядел как Label. пробовал в лабел вставлять текст но неудобно. и как цвет текста можно поменять? как фон поменять увидел. а нужно именно текст.
Последний раз редактировалось GSM™; 13.01.2008 в 16:05..
|
|
|
13.01.2008, 16:39
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
именно Memo тебе в таком случае и нужен! Вот решение твоей проблемы:
Щелкни два раза на область формы (именно на форму только), чтобы вызвать процедуру FormCreate затем впиши туда код:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.BorderStyle:=bsNone;
Memo1.ReadOnly:=true;
Memo1.Color:=clBtnFace; //изменяем цвет фона (такой по стандарту)
Memo1.Font.Color:=clRed;//изменяем цвет текста (красный)
end;
P.S. Думаю к концу топика, мы твою прогу доделаем! |
|
|
|
13.01.2008, 16:48
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
сделал но не получил нужного результата. получилось что рядом с текстом постоянно мигает курсор.
и текст можно выделить. а надо что бы невыделяемый был.
P.S. Думаю к концу топика, мы твою прогу доделаем!
да это очень маленькая программка. немного осталось....
Последний раз редактировалось GSM™; 13.01.2008 в 17:00..
|
|
|
|
13.01.2008, 17:13
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
Дам, какой ты привиредливый. Можно поступить следующим образом:
Выдели форму, затем Object Inspector выбири вкладку Events. Там найди процедуру OnPaint, создавай её! Далее пишем для нее код:
Код:
with Canvas do begin
Font.Color:=clRed;
TextOut(10,10,'Простой текст');
end;
Она тебе выведет текст на форме по координатам (вместо десяток сам подбери место, например 300,200):
Это не совсем удобный способ, конечно, так как если нужно огромедный текст пихать то лучше создать отдельный текстовый файл с ним и загружать из него. Но если тебе не важно, можно и схитрить. Выводить текст из Memo, при этом его самого скрыть! Выбирай!
Последний раз редактировалось A2GIL; 13.01.2008 в 17:15..
|
|
|
|
14.01.2008, 04:37
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
свежая порция вопросов. как сделать так что бы при нажатии button1 программа закрывалась, разворачивалась или сворачивалась. и еще один вопрос. как сделать так чтобы при нажатии button1 срабатывал диалог OpenDialog?
и как сделать что бы изображение отображалось равномерно. делаю так- с Win-32 перенес на форму PageControl, потом на PageControl перенес из дополнительно Image. вставил туда изображение, но оно отображается наполовину. и как сделать что бы при нажатии на Button1 открывалось новое окно с изображением?
Последний раз редактировалось GSM™; 14.01.2008 в 05:37..
|
|
|
|
14.01.2008, 09:04
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
Сообщение от GSM™
свежая порция вопросов. как сделать так что бы при нажатии button1 программа закрывалась, разворачивалась или сворачивалась. и еще один вопрос. как сделать так чтобы при нажатии button1 срабатывал диалог OpenDialog?
и как сделать что бы изображение отображалось равномерно. делаю так- с Win-32 перенес на форму PageControl, потом на PageControl перенес из дополнительно Image. вставил туда изображение, но оно отображается наполовину. и как сделать что бы при нажатии на Button1 открывалось новое окно с изображением?
Учебник по делфи купи/скачай.
|
|
|
|
14.01.2008, 09:17
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
Сообщение от zl0y
Учебник по делфи купи/скачай.
скачал уже. нету там ничего подобного. подожду пока придет A2GIL...
|
|
|
|
14.01.2008, 09:52
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
как сделать так что бы при нажатии button1 программа закрывалась, разворачивалась или сворачивалась.
Код:
Application.Terminate; //закрытие приложения
Application.Maximize; //разворачивание
Application.Minimize; //сворачивание
как сделать так чтобы при нажатии button1 срабатывал диалог OpenDialog
Поместить компонент OpenDialog, а в коде нажатия кнопки вписать
Код:
if OpenDialog1.Execute then begin
///тут код
end;
При вызове Execute откроется стандартное диалоговое окно Open Dialog
|
|
|
|
14.01.2008, 09:55
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
if OpenDialog1.Execute then begin
///тут код
end;
а что за код?
|
|
|
|
14.01.2008, 10:16
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
if OpenDialog1.Execute then begin
///тут код
end;
а что за код?
Так тот код, который нужен. К примеру, открывается OpenDialog, выбирается имя файла, затем с указанным файлом производятся некие действия, например, загрузка содержимого файла в компонент TMemo
Код:
if OpenDialog1.Execute then begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
...
end;
или открывается картинка и вставляется в компонент TImage
Код:
if OpenDialog1.Execute then begin
image1.Picture.LoadFromFile(opendialog1.filename);
...
end;
Все зависит от того, какие действия вы будете производить с файлом, открываемом через OpenDialog. Исходя из этого, такой и код будет =)
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
