Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Программа изменения правого отступа в текстовом файле
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Локи Локи вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 20.03.2012
Exclamation Программа изменения правого отступа в текстовом файле - 20.03.2012, 23:28

Помогите новичку прогу доработать!!!

нужно еще:

1. кнопка сохранения измененного файла.

2. Если есть компонент "слайдер", чтобы какой-то лейбл дублировал
его положения, т.е. числом показывал ширину текста, устанавливается.

4. И должна быть проверка того, что заданная нами ширина должна быть
больше длинное слово в файле - ибо слова мы перенести не можем.

Цитата:
proga.zip
delphi Код:
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    TrackBar1: TTrackBar;
    Panel1: TPanel;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    procedure TrackBar1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    TrackBar1.Position:= TrackBar1.Max;
    if(not OpenDialog1.Execute()) then exit;
    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
    RichEdit1.Paragraph.RightIndent:= Round(RichEdit1.Width*(TrackBar1.Max-TrackBar1.Position)/TrackBar1.Max);
end;
 
end.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
поиск в текстовом файле serg544 Prolog 5 13.12.2014 02:09
Подсчет колличества определенного слова в текстовом файле oaoioae Вопросы начинающих программистов 1 15.01.2011 19:21
Позиция подстроки в текстовом файле Кsenia Вопросы начинающих программистов 1 19.11.2010 01:32
Поиск в текстовом файле с возможностью использования шаблонов SergAnt007 Haskell 0 12.12.2009 20:29
Вычисление количества строк в текстовом файле Chelentano Delphi 11 05.08.2006 03:02
Нужен алгоритм поиска в текстовом файле Аваддон C++ Builder 4 02.04.2006 09:11
Изменение в текстовом файле. imported_Lio Visual Basic 6 27.11.2005 06:40
Как сосчитать строки в текстовом файле ДэN Вопросы начинающих программистов 4 04.04.2005 00:57
Как прописать код что бы программа в С++ сохранялась в текстовом файле Fighter Вопросы начинающих программистов 5 22.03.2005 09:23
Обработка записей в текстовом файле Anonymous Delphi 13 08.12.2003 01:32
Как определить количество строк в текстовом файле Anonymous Visual C++ 1 14.11.2003 16:19
Как осуществить поиск заданной подстроки в текстовом файле Anonymous Visual C++ 6 21.05.2003 13:29



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов