 |
Procedure TForm1.FormCreate(Sender: TObject);//создание списка картин
|
|
|
|
Const FileNames:Array [0..1] of String=('athena.bmp','technlgy.bmp');//файлы
Var I:Integer; Begin //создание пустого списка (п.2.2.7)
Spisokkartin:=TStringList.Create; With Spisokkartin Do//присв.имени списка
For i:=0 To 1 Do Begin Add(FileNames[i]); //добавление имени файла
Objects[i]:=TBitMap.Create; //создание пустого BMP‑объекта для картины
(Objects[i] as TBitMap).LoadFromFile(FileNames[i]); //загрузка картины
End;{конец цикла создания списка картин}End; //конец процедуры
Procedure TForm1.Formdestroy(Sender:Tobject);//удаление списка картин
Begin Spisokkartin.Free; End; //списки удаляются при удалении формы
Procedure TForm1.DrawGrid1GetEditText(Sender:TObject;ACol,ARow: Integer;var Value:String);//начало редактирования текста ячейки табл.
Begin Value:=Spisokkartin[2*ACol+Arow]{передача текста редактору}End;
Procedure TForm1.DrawGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;const Value:String);//конец редактирования текста ячейки табл.
Begin Spisokkartin[2*ACol+Arow]:=Value;{сохранить отредакт.текст}End;
Procedure TForm1.DrawGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect;State:TGridDrawState); прорисовка и вывод ячейки таблицы
Var I:integer;Begin i:=2*row+col;//формирование индекса списка.
With DrawGrid1.Canvas, Rect, Spisokkartin do Begin //присоединение имен
Bottom:=Bottom‑TextHeight('с')‑2; //уменьшение высоты картинки
StretchDraw(Rect,(Objects[i] as TBitmap));//вывод картинки из списка
TextOut(Left,Bottom+1,Strings[i]){вывод имени файла из списка}End; End;
Procedure TForm1.FormResize(Sender: TObject);//меняется размер окна
Begin With DrawGrid1 do //присоединение имени таблицы
Begin DefaultColWidth:=ClientRect.Right Div 2 ‑1;//новая высота ячейки
DefaultRowHeight:=ClientRect.Bottom;{новая ширина ячейки}End; End;
Многострочный редактор текста в формате RTF (RichEdit)
Редактор работает с расширенным текстовым форматом RTF. Для каждого абзаца создается объект класса TParaAttributes с атрибутами абзаца.
Основные свойства TParaAttributes
Alignment ‑ выравнивание: taLeftJustify (влево), taCenter (по центру), taRightJustify (вправо).
FirstIndent, LeftIndent, RightIndent ‑ отступ в пикселях первой строки, между левой и правой границами и границами панели редактора.
|
|
|
Numbering=nsBullet ‑ превращение текста в маркированный список.
Специфичные свойства
Lines ‑ вводимый и редактируемый текст в виде массива строк.
HideScrollBars ‑ вставляются полосы прокрутки при отсечении текста.
PageRect ‑ размеры страницы при печати.
Paragraph ‑ содержит атрибуты шрифта текущего абзаца (п.2.2.8.1).
SelAttributes ‑ шрифтовые атрибуты выделенного абзаца.
PlainText ‑ запрещает (True) ввод и вывод в файл служебной информации формата RTF.
Специфичные методы
GetCaretPos ‑ возвращает текущую позицию курсора.
GetSelText ‑ копирует выделенный текст в переменную.
Примеры:
RichEdit1.Paragraph.Numbering:=nsBullet; //преобразование в список
RichEdit1.Paragraph.Numbering:=nsCenter; //центровка абзаца
RichEdit1.SelAttributes.Name:=’New Times Cyr’//установка шрифта
RichEdit1.PlainText:=False;//разрешить копирование служебной информ.
RichEdit1.Lines.SaveToFile(‘Text.Rtf’); //копирование текста в файл
Дата и время (DateTimePicker)
Компонент представляет собой раскрывающийся список ‑ календарь, для ввода даты или времени.
Специфичные методы
CalAlignment‑ положение календаря: dtaLeft (слева), dta Right (справа).
DateFormat ‑ представление даты: dfShort (короткий), dfLong (длинный).
DateMode ‑ способ работы: dmComboBox (раскрывающийся список), dmUpDown (счетчик изменения даты).
Date, Time ‑ значение введенной даты или времени.
Kind ‑ что вводится: dtkDate (дата), dtkTime (время).
ShowCheckbox ‑ вывод флажка состояния его свойства Checked (True).
MinDate, MaxDate ‑ минимально и максимально допустимые даты.
Списки
Списки представляют собой набор строк. Списки бывают двух типов: простые (ListBox) и комбинированные (ComboBox). Пользователь имеет возможность выбрать одну или несколько строк из списка.
|
|
|
