[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

ну вообще-то на стандартной вкладке(Standart) TMemo в него можно запихать какой угодно текст, как программо (загружать из текстового файла), так и сразу в свойствах задать(свойство Lines)
P.S. В следующий раз можешь не напоминать как запустить DELPHI

 

там нашел только Memo и текст в ней становиться доступным для редактирования пользователем и выделяется на белом фоне. а мне надо чтобы текст был на фоне программы и неизменялся пользователем.
что бы выглядел как Label. пробовал в лабел вставлять текст но неудобно. и как цвет текста можно поменять? как фон поменять увидел. а нужно именно текст.

 

именно Memo тебе в таком случае и нужен! Вот решение твоей проблемы:
Щелкни два раза на область формы (именно на форму только), чтобы вызвать процедуру FormCreate затем впиши туда код:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.BorderStyle:=bsNone;
Memo1.ReadOnly:=true;
Memo1.Color:=clBtnFace; //изменяем цвет фона (такой по стандарту)
Memo1.Font.Color:=clRed;//изменяем цвет текста (красный)
end;

P.S. Думаю к концу топика, мы твою прогу доделаем!

 

сделал но не получил нужного результата. получилось что рядом с текстом постоянно мигает курсор.
и текст можно выделить. а надо что бы невыделяемый был.
P.S. Думаю к концу топика, мы твою прогу доделаем!
да это очень маленькая программка. немного осталось....

 

Дам, какой ты привиредливый. Можно поступить следующим образом:
Выдели форму, затем Object Inspector выбири вкладку Events. Там найди процедуру OnPaint, создавай её! Далее пишем для нее код:

Code:

 with Canvas do begin
  Font.Color:=clRed;
  TextOut(10,10,'Простой текст');
 end;

Она тебе выведет текст на форме по координатам (вместо десяток сам подбери место, например 300,200):
Это не совсем удобный способ, конечно, так как если нужно огромедный текст пихать то лучше создать отдельный текстовый файл с ним и загружать из него. Но если тебе не важно, можно и схитрить. Выводить текст из Memo, при этом его самого скрыть! Выбирай!

 

свежая порция вопросов. как сделать так что бы при нажатии button1 программа закрывалась, разворачивалась или сворачивалась. и еще один вопрос. как сделать так чтобы при нажатии button1 срабатывал диалог OpenDialog?
и как сделать что бы изображение отображалось равномерно. делаю так- с Win-32 перенес на форму PageControl, потом на PageControl перенес из дополнительно Image. вставил туда изображение, но оно отображается наполовину. и как сделать что бы при нажатии на Button1 открывалось новое окно с изображением?

 

Учебник по делфи купи/скачай.

 

скачал уже. нету там ничего подобного. подожду пока придет A2GIL...

 

Code:

Application.Terminate; //закрытие приложения
Application.Maximize;  //разворачивание
Application.Minimize; //сворачивание 

Поместить компонент OpenDialog, а в коде нажатия кнопки вписать

Code:

if OpenDialog1.Execute then begin
   ///тут код
end;

При вызове Execute откроется стандартное диалоговое окно Open Dialog

 

if OpenDialog1.Execute then begin
///тут код
end;
а что за код?

 

Так тот код, который нужен. К примеру, открывается OpenDialog, выбирается имя файла, затем с указанным файлом производятся некие действия, например, загрузка содержимого файла в компонент TMemo

Code:

if OpenDialog1.Execute then begin
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  ...
end;

или открывается картинка и вставляется в компонент TImage

Code:

if OpenDialog1.Execute then begin
  image1.Picture.LoadFromFile(opendialog1.filename);
  ...
end;

Все зависит от того, какие действия вы будете производить с файлом, открываемом через OpenDialog. Исходя из этого, такой и код будет =)

 

большое спасибо.
и как сделать что бы изображение отображалось равномерно. делаю так- с Win-32 перенес на форму PageControl, потом на PageControl перенес из дополнительно Image. вставил туда изображение, но оно отображается наполовину. и как сделать что бы при нажатии на Button1 открывалось новое окно с изображением?
и если можно на эти вопросы...

 

Поиграйтесь со свойствами Stretch и Autosize компонента TImage

 

недает нужного эффекта. всетаки придется наверное для вызова рисунка применить кнопку. только как так сделать?

 

Ну-ка поподробнее, рисунок вставляется в какой компонент?

 

вставляю в image. вообще хочется чтобы в image рисунок был небольшого размера (но полностью) а при нажатии на рисунок или на кнопку восстонавливался до исходного размера. точнее появлялось отдельное окно с полным рисунком.

 

А-а, то есть открываемый рисунок должен масштабироваться под размеры TImage? Тогда Stretch=True, Autosize=False. На вторую форму поместить еще один TImage, но уже со свойствами Stretch=False, AutoSize=True, а по кликанью по картинке на первой форме вписать код

Code:

  Form2.show;
  Form2.Image1.Picture.LoadFromFile(od.FileName);

если картинка небольшая, то можно и так оставить, если же нет, то лучше не вызывать LoadFromFile несколько раз, а юзать, например, TJpegImage и из него уже загружать во все TImages =)

 

блин беда случилась. только что отключили свет. хотя у меня есть упсик но я неуспел сохранить программку и теперь пишет -
Error creating form: Line too long on line 1770.
это при загрузке программы в делфи вылетает окно с этой ошибкой. жму ок. потом жму ф9 и опять ошибка только в самом низу -
[Ошибка] RLINK32: Unsupported 16bit resource in file "Unit1.dfm"

 

Возможно, придется пересоздавать форму или даже весь проект. Файлы с расширением *.pas сохранились? Если форма небольшая, то проще пересоздать проект и вставить код из старых пасовских файлов

 

да. проще будет по новой создать...

именно так и получается неправильное отображение.
и как всетаки сделать вывод картинки в новом окне при нажатии Button?