Пишем программу (в Delphi) для создания книг FB2 - страница 12
>
>#1044#1086#1084#1086#1074#1086#1076#1089#1090#1074#1086
>#1050#1086#1084#1087#1100#1102#1090#1077#1088#1099' '#1080' '#1048#1085#1090#1077#1088#1085#1077#1090
>#1051#1102#1073#1086#1074#1085#1099#1077' '#1088#1086#1084#1072#1085#1099
>#1053#1072#1091#1082#1072', '#1054#1073#1088#1072#1079#1086#1074#1072#1085#1080#1077
>#1055#1077#1088#1080#1086#1076#1080#1082#1072
>#1055#1086#1101#1079#1080#1103', '#1044#1088#1072#1084#1072#1090#1091#1088#1075#1080#1103
>#1055#1088#1080#1082#1083#1102#1095#1077#1085#1080#1103
>#1055#1088#1086#1079#1072
>#1055#1088#1086#1095#1077#1077
>#1056#1077#1083#1080#1075#1080#1103' '#1080' '#1076#1091#1093#1086#1074#1085#1086#1089#1090#1100
>#1057#1087#1088#1072#1074#1086#1095#1085#1072#1103' '#1083#1080#1090#1077#1088#1072#1090#1091#1088#1072
>#1057#1090#1072#1088#1080#1085#1085#1086#1077
>#1058#1077#1093#1085#1080#1082#1072
>#1060#1072#1085#1090#1072#1089#1090#1080#1082#1072
>#1070#1084#1086#1088)
>end
>end
>// конец кода
genres.pas
>// начало кода
>unit genres;
>interface
>uses
>Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
>Dialogs, Buttons, StdCtrls, dm;
>type
>TForm3 = class(TForm)
>ListBox1: TListBox;
>Button1: TButton;
>Button2: TButton;
>BitBtn1: TBitBtn;
>BitBtn2: TBitBtn;
>Button3: TButton;
>Button4: TButton;
>ListBox2: TListBox;
>ComboBox1: TComboBox;
>procedure FormCreate(Sender: TObject);
>procedure Button1Click(Sender: TObject);
>procedure Button2Click(Sender: TObject);
>procedure ComboBox1Change(Sender: TObject);
>procedure Button3Click(Sender: TObject);
>procedure Button4Click(Sender: TObject);
>procedure ListBox2DblClick(Sender: TObject);
>private
>{ Private declarations }
>public
>{ Public declarations }
>end;
>var
>Form3: TForm3;
>implementation
>{$R *.dfm}
>procedure TForm3.FormCreate(Sender: TObject);
>var
>i: integer;
>begin
>for i:= 0 to maxg do
>ListBox2.Items.Add(gg[i][2]);
>ListBox2.ItemIndex:= 0;
>end;
>procedure TForm3.Button1Click(Sender: TObject);
>var
>i: integer;
>begin
>for i:= 0 to ListBox1.Items.Count – 1 do
>if ListBox2.Items[ListBox2.ItemIndex] = ListBox1.Items[i]
>then exit;
>ListBox1.Items.Add(ListBox2.Items[ListBox2.ItemIndex]);
>end;
>procedure TForm3.Button2Click(Sender: TObject);
>begin
>if ListBox1.ItemIndex = –1 then exit;
>ListBox1.Items.Delete(ListBox1.ItemIndex);
>end;
>procedure TForm3.ComboBox1Change(Sender: TObject);
>begin
>ListBox2.ItemIndex:= LI[ComboBox1.ItemIndex];
>ListBox2.TopIndex:= ListBox2.ItemIndex;
>end;
>procedure TForm3.Button3Click(Sender: TObject);
>var
>k: integer;
>begin
>k:= ListBox1.ItemIndex;
>if k > 0 then
>begin
>ListBox1.Items.Move(k,k-1);
>ListBox1.ItemIndex:= k –1;
>end;
>end;
>procedure TForm3.Button4Click(Sender: TObject);
>var
>k: integer;
>begin
>k:= ListBox1.ItemIndex;
>if k < ListBox1.Items.Count – 1 then
>begin
>ListBox1.Items.Move(k,k+1);
>ListBox1.ItemIndex:= k+1;
>end;
>end;
>procedure TForm3.ListBox2DblClick(Sender: TObject);
>begin
>Button1Click(nil);
>end;
>end.
>// конец кода
EditStr.dfm
>// начало кода
>object EditSt: TEditSt
>Left = 175
>Top = 164
>Width = 692
>Height = 303
>Caption = 'Edit'
>Color = clBtnFace
>Font.Charset = DEFAULT_CHARSET
>Font.Color = clWindowText
>Font.Height = –11
>Font.Name = 'MS Sans Serif'
>Font.Style = []
>OldCreateOrder = False
>PixelsPerInch = 96
>TextHeight = 13
>object Panel1: TPanel
>Left = 0
>Top = 240
>Width = 684
>Height = 36
>Align = alBottom
>BevelOuter = bvNone
>TabOrder = 0
>object BitBtn1: TBitBtn
>Left = 16
>Top = 8
>Width = 75
>Height = 25
>TabOrder = 0
>Kind = bkOK
>end
>object BitBtn2: TBitBtn
>Left = 592
>Top = 8
>Width = 75
>Height = 25
>TabOrder = 1
>Kind = bkCancel
>end
>object BitBtn3: TBitBtn
>Left = 592
>Top = 8
>Width = 75
>Height = 25
>TabOrder = 2
>Kind = bkAbort
>end
>object Button1: TButton
>Left = 112
>Top = 8
>Width = 75
>Height = 25
>Caption = 'Bold'
>Font.Charset = DEFAULT_CHARSET
>Font.Color = clWindowText
>Font.Height = –11
>Font.Name = 'MS Sans Serif'
>Font.Style = [fsBold]
>ParentFont = False
>TabOrder = 3
>OnClick = Button1Click
>end
>object Button2: TButton
>Left = 200
>Top = 8
>Width = 75
>Height = 25
>Caption = 'Italic'
>Font.Charset = DEFAULT_CHARSET
>Font.Color = clWindowText
>Font.Height = –11
>Font.Name = 'MS Sans Serif'
>Font.Style = [fsItalic]
>ParentFont = False
>TabOrder = 4
>OnClick = Button2Click
>end
>end
>object Memo1: TMemo
>Left = 0
>Top = 0
>Width = 684
>Height = 240
>Align = alClient