';
95 | while p <> nil do
96 | begin
97 | s1 := ''; s2 := '';
98 | if (p^.FontColor = clWhite) or (p^.FontColor = clNone) then
99 | p^.FontColor := clBlack;
100 | if p^.FontColor <> clBlack then
101 | begin
102 | s1 := IntToHex(p^.FontColor, 6);
103 | s1 := 'Color="#' + Copy(s1, 5, 2) + Copy(s1, 3, 2) +
104 | Copy(s1, 1, 2) + '"';
105 | end;
106 | // most reports is done with font size = 10..13 - treat it as default font
107 | if not (p^.FontSize in [10..13]) then
108 | s1 := s1 + ' Size=' + GetHTMLFontSize(p^.FontSize);
109 | if p^.FontStyle <> 0 then
110 | s2 := GetHTMLFontStyle(p^.FontStyle);
111 | if s1 <> '' then s1 := '';
112 | s := s + '| ' + s1 + s2 + p^.Text + ' | ';
113 | p := p^.Next;
114 | end;
115 | s := s + '
'#13#10;
116 | Stream.Write(s[1], Length(s));
117 | end;
118 | end;
119 |
120 |
121 | initialization
122 | frRegisterExportFilter(TfrHTMExportFilter, LoadStr(SHTMFile) + ' (*.htm)', '*.htm');
123 |
124 | end.
125 |
--------------------------------------------------------------------------------
/Source/FR_E_TXT.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Text export filter }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_E_TXT;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | SysUtils, Windows, Messages, Classes, Graphics, Dialogs, FR_Class;
19 |
20 | type
21 | TfrTextExport = class(TComponent) // fake component
22 | end;
23 |
24 | TfrTextExportFilter = class(TfrExportFilter)
25 | public
26 | constructor Create(AStream: TStream); override;
27 | procedure OnEndPage; override;
28 | procedure OnBeginPage; override;
29 | procedure OnText(X, Y: Integer; const Text: String; View: TfrView); override;
30 | end;
31 |
32 |
33 | implementation
34 |
35 | uses FR_Utils, FR_Const;
36 |
37 |
38 | var
39 | UsedFont: Integer = 16;
40 |
41 | constructor TfrTextExportFilter.Create(AStream: TStream);
42 | var
43 | s: String;
44 | n: Integer;
45 | begin
46 | inherited;
47 | s := InputBox(LoadStr(SFilter), LoadStr(SFilterParam), '16');
48 | Val(s, UsedFont, n);
49 | end;
50 |
51 | procedure TfrTextExportFilter.OnEndPage;
52 | var
53 | i, n, x, tc1: Integer;
54 | p: PfrTextRec;
55 | s: String;
56 | function Dup(Count: Integer): String;
57 | var
58 | i: Integer;
59 | begin
60 | Result := '';
61 | for i := 1 to Count do
62 | Result := Result + ' ';
63 | end;
64 |
65 | begin
66 | n := Lines.Count - 1;
67 | while n >= 0 do
68 | begin
69 | if Lines[n] <> nil then break;
70 | Dec(n);
71 | end;
72 |
73 | for i := 0 to n do
74 | begin
75 | s := '';
76 | tc1 := 0;
77 | p := PfrTextRec(Lines[i]);
78 | while p <> nil do
79 | begin
80 | x := Round(p^.X / 6.5);
81 | s := s + Dup(x - tc1) + p^.Text;
82 | tc1 := x + Length(p^.Text);
83 | p := p^.Next;
84 | end;
85 | s := s + #13#10;
86 | Stream.Write(s[1], Length(s));
87 | end;
88 | s := #12#13#10;
89 | Stream.Write(s[1], Length(s));
90 | end;
91 |
92 | procedure TfrTextExportFilter.OnBeginPage;
93 | var
94 | i: Integer;
95 | begin
96 | ClearLines;
97 | for i := 0 to 200 do Lines.Add(nil);
98 | end;
99 |
100 | procedure TfrTextExportFilter.OnText(X, Y: Integer; const Text: String;
101 | View: TfrView);
102 | var
103 | p, p1, p2: PfrTextRec;
104 | begin
105 | if View = nil then Exit;
106 | Y := Round(Y / UsedFont);
107 | p1 := PfrTextRec(Lines[Y]);
108 | GetMem(p, SizeOf(TfrTextRec));
109 | FillChar(p^, SizeOf(TfrTextRec), 0);
110 | p^.Next := nil;
111 | p^.X := X;
112 | p^.Text := Text;
113 | if View is TfrMemoView then
114 | with View as TfrMemoView do
115 | begin
116 | p^.FontName := Font.Name;
117 | p^.FontSize := Font.Size;
118 | p^.FontStyle := frGetFontStyle(Font.Style);
119 | p^.FontColor := Font.Color;
120 | {$IFNDEF Delphi2}
121 | p^.FontCharset := Font.Charset;
122 | {$ENDIF}
123 | end;
124 | p^.FillColor := View.FillColor;
125 | if p1 = nil then
126 | Lines[Y] := TObject(p)
127 | else
128 | begin
129 | p2 := p1;
130 | while (p1 <> nil) and (p1^.X < p^.X) do
131 | begin
132 | p2 := p1;
133 | p1 := p1^.Next;
134 | end;
135 | if p2 <> p1 then
136 | begin
137 | p2^.Next := p;
138 | p^.Next := p1;
139 | end
140 | else
141 | begin
142 | Lines[Y] := TObject(p);
143 | p^.Next := p1;
144 | end;
145 | end;
146 | end;
147 |
148 |
149 | initialization
150 | frRegisterExportFilter(TfrTextExportFilter, LoadStr(STextFile) + ' (*.txt)', '*.txt');
151 |
152 | end.
153 |
--------------------------------------------------------------------------------
/Source/FR_FLDS.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_FLDS.DFM
--------------------------------------------------------------------------------
/Source/FR_FLDS.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Fields list }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_Flds;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls;
20 |
21 | type
22 | TfrFieldsForm = class(TForm)
23 | ValCombo: TComboBox;
24 | ValList: TListBox;
25 | Label1: TLabel;
26 | procedure ValComboClick(Sender: TObject);
27 | procedure FormActivate(Sender: TObject);
28 | procedure FormCreate(Sender: TObject);
29 | procedure FormDeactivate(Sender: TObject);
30 | procedure ValListKeyDown(Sender: TObject; var Key: Word;
31 | Shift: TShiftState);
32 | procedure ValListMouseDown(Sender: TObject; Button: TMouseButton;
33 | Shift: TShiftState; X, Y: Integer);
34 | procedure FormKeyDown(Sender: TObject; var Key: Word;
35 | Shift: TShiftState);
36 | private
37 | { Private declarations }
38 | procedure FillValCombo;
39 | public
40 | { Public declarations }
41 | DBField: String;
42 | end;
43 |
44 | var
45 | frFieldsForm: TfrFieldsForm;
46 |
47 | implementation
48 |
49 | {$R *.DFM}
50 |
51 | uses FR_Class, FR_Const, FR_Utils, FR_DBRel
52 | {$IFDEF IBO}
53 | , IB_Components
54 | {$ELSE}
55 | , DB
56 | {$ENDIF};
57 |
58 | var
59 | LastDB: String;
60 |
61 |
62 | procedure TfrFieldsForm.ValListKeyDown(Sender: TObject; var Key: Word;
63 | Shift: TShiftState);
64 | begin
65 | if Key = vk_Return then ModalResult := mrOk;
66 | end;
67 |
68 | procedure TfrFieldsForm.FillValCombo;
69 | var
70 | s: TStringList;
71 | begin
72 | s := TStringList.Create;
73 | {$IFDEF IBO}
74 | frGetComponents(CurReport.Owner, TIB_DataSet, s, nil);
75 | {$ELSE}
76 | frGetComponents(CurReport.Owner, TDataSet, s, nil);
77 | {$ENDIF}
78 | s.Sort;
79 | ValCombo.Items.Assign(s);
80 | s.Free;
81 | end;
82 |
83 | procedure TfrFieldsForm.ValComboClick(Sender: TObject);
84 | var
85 | DataSet: TfrTDataSet;
86 | begin
87 | ValList.Items.Clear;
88 | DataSet := frGetDataSet(ValCombo.Items[ValCombo.ItemIndex]);
89 | if DataSet <> nil then
90 | try
91 | frGetFieldNames(DataSet, ValList.Items);
92 | except
93 | end;
94 | end;
95 |
96 | procedure TfrFieldsForm.ValListMouseDown(Sender: TObject;
97 | Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
98 | begin
99 | ModalResult := mrOk;
100 | end;
101 |
102 | procedure TfrFieldsForm.FormKeyDown(Sender: TObject; var Key: Word;
103 | Shift: TShiftState);
104 | begin
105 | if Key = vk_Escape then
106 | ModalResult := mrCancel;
107 | end;
108 |
109 | procedure TfrFieldsForm.FormCreate(Sender: TObject);
110 | begin
111 | Caption := LoadStr(frRes + 450);
112 | Label1.Caption := LoadStr(frRes + 451);
113 | end;
114 |
115 | procedure TfrFieldsForm.FormActivate(Sender: TObject);
116 | begin
117 | FillValCombo;
118 | if ValCombo.Items.IndexOf(LastDB) <> -1 then
119 | ValCombo.ItemIndex := ValCombo.Items.IndexOf(LastDB) else
120 | ValCombo.ItemIndex := 0;
121 | ValComboClick(nil);
122 | end;
123 |
124 | procedure TfrFieldsForm.FormDeactivate(Sender: TObject);
125 | begin
126 | LastDB := ValCombo.Items[ValCombo.ItemIndex];
127 | if ValList.ItemIndex <> -1 then
128 | DBField := LastDB + '."' + ValList.Items[ValList.ItemIndex] + '"';
129 | end;
130 |
131 | end.
132 |
--------------------------------------------------------------------------------
/Source/FR_FMTED.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_FMTED.DFM
--------------------------------------------------------------------------------
/Source/FR_FMTED.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Format editor }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_fmted;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls, ExtCtrls, FR_Utils;
20 |
21 | type
22 | TfrFmtForm = class(TForm)
23 | GroupBox2: TGroupBox;
24 | ComboBox1: TComboBox;
25 | ComboBox2: TComboBox;
26 | Panel1: TPanel;
27 | Label5: TLabel;
28 | Label6: TLabel;
29 | SplEdit: TEdit;
30 | Button1: TButton;
31 | Button2: TButton;
32 | Panel2: TPanel;
33 | Edit1: TEdit;
34 | Label1: TLabel;
35 | Edit3: TEdit;
36 | procedure FormActivate(Sender: TObject);
37 | procedure ComboBox1Click(Sender: TObject);
38 | procedure DesEditChange(Sender: TObject);
39 | procedure SplEditChange(Sender: TObject);
40 | procedure ComboBox2Click(Sender: TObject);
41 | procedure ComboBox1Change(Sender: TObject);
42 | procedure SplEditEnter(Sender: TObject);
43 | procedure ShowPanel1;
44 | procedure ShowPanel2;
45 | procedure FormCreate(Sender: TObject);
46 | private
47 | { Private declarations }
48 | public
49 | { Public declarations }
50 | Format: Integer;
51 | end;
52 |
53 | var
54 | frFmtForm: TfrFmtForm;
55 |
56 | implementation
57 |
58 | {$R *.DFM}
59 |
60 | uses FR_Class, FR_Const;
61 |
62 | const
63 | CategCount = 5;
64 |
65 | {$WARNINGS OFF}
66 | procedure TfrFmtForm.FormActivate(Sender: TObject);
67 | var
68 | i: Integer;
69 | begin
70 | Panel1.Hide;
71 | Panel2.Hide;
72 | ComboBox1.Items.Clear;
73 | for i := 0 to CategCount-1 do
74 | ComboBox1.Items.Add(LoadStr(SCateg1 + i));
75 | ComboBox1.ItemIndex := (Format and $0F000000) div $01000000;
76 | ComboBox1Change(nil);
77 | ComboBox2.ItemIndex := (Format and $00FF0000) div $00010000;
78 | ShowPanel2;
79 | ShowPanel1;
80 | end;
81 |
82 | procedure TfrFmtForm.ShowPanel1;
83 | begin
84 | Panel1.Visible := (ComboBox1.ItemIndex = 1) and (not Panel2.Visible);
85 | if Panel1.Visible then
86 | begin
87 | Edit3.Text := IntToStr((Format and $0000FF00) div $00000100);
88 | SplEdit.Text := Chr(Format and $000000FF);
89 | end;
90 | end;
91 |
92 | procedure TfrFmtForm.ShowPanel2;
93 | begin
94 | Panel2.Visible := ComboBox2.ItemIndex = 4;
95 | end;
96 |
97 | procedure TfrFmtForm.ComboBox1Change(Sender: TObject);
98 | var
99 | i, k: Integer;
100 | s: String;
101 | begin
102 | k := ComboBox1.ItemIndex;
103 | if k = -1 then Exit;
104 | ComboBox2.Items.Clear;
105 | for i := 0 to 4 do
106 | begin
107 | s := LoadStr(SFormat11 + k * 5 + i);
108 | if s <> '' then ComboBox2.Items.Add(s);
109 | end;
110 | ComboBox2.ItemIndex := 0;
111 | if Sender <> nil then
112 | begin
113 | ComboBox2Click(nil);
114 | ShowPanel1;
115 | Edit1.Text := '';
116 | end;
117 | end;
118 |
119 | procedure TfrFmtForm.ComboBox1Click(Sender: TObject);
120 | begin
121 | Format := (Format and $F0FFFFFF) + ComboBox1.ItemIndex * $01000000;
122 | end;
123 |
124 | procedure TfrFmtForm.ComboBox2Click(Sender: TObject);
125 | begin
126 | Format := (Format and $FF00FFFF) + ComboBox2.ItemIndex * $00010000;
127 | ShowPanel2;
128 | ShowPanel1;
129 | end;
130 |
131 | procedure TfrFmtForm.DesEditChange(Sender: TObject);
132 | begin
133 | Format := (Format and $FFFF00FF) + StrToInt(Edit3.Text) * $00000100;
134 | end;
135 |
136 | procedure TfrFmtForm.SplEditChange(Sender: TObject);
137 | var
138 | c: Char;
139 | begin
140 | c := ',';
141 | if SplEdit.Text <> '' then c := SplEdit.Text[1];
142 | Format := (Format and $FFFFFF00) + Ord(c);
143 | end;
144 |
145 | procedure TfrFmtForm.SplEditEnter(Sender: TObject);
146 | begin
147 | SplEdit.SelectAll;
148 | end;
149 | {$WARNINGS ON}
150 |
151 | procedure TfrFmtForm.FormCreate(Sender: TObject);
152 | begin
153 | Caption := LoadStr(frRes + 420);
154 | GroupBox2.Caption := LoadStr(frRes + 421);
155 | Label5.Caption := LoadStr(frRes + 422);
156 | Label6.Caption := LoadStr(frRes + 423);
157 | Label1.Caption := LoadStr(frRes + 424);
158 | Button1.Caption := LoadStr(SOk);
159 | Button2.Caption := LoadStr(SCancel);
160 | end;
161 |
162 | end.
163 |
--------------------------------------------------------------------------------
/Source/FR_GEDIT.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_GEDIT.DFM
--------------------------------------------------------------------------------
/Source/FR_GEDIT.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Picture editor }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_GEdit;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
19 | Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, FR_Const;
20 |
21 | type
22 | TfrGEditorForm = class(TForm)
23 | Image1: TImage;
24 | Bevel1: TBevel;
25 | OpenDlg: TOpenDialog;
26 | CB1: TCheckBox;
27 | Button1: TButton;
28 | Button2: TButton;
29 | Button3: TButton;
30 | Button4: TButton;
31 | Button5: TButton;
32 | procedure BitBtn1Click(Sender: TObject);
33 | procedure CB1Click(Sender: TObject);
34 | procedure Button4Click(Sender: TObject);
35 | procedure FormCreate(Sender: TObject);
36 | procedure Button5Click(Sender: TObject);
37 | private
38 | { Private declarations }
39 | public
40 | { Public declarations }
41 | end;
42 |
43 | var
44 | frGEditorForm: TfrGEditorForm;
45 |
46 | implementation
47 |
48 | {$R *.DFM}
49 |
50 | uses FR_Class, FR_Desgn;
51 |
52 | procedure TfrGEditorForm.BitBtn1Click(Sender: TObject);
53 | begin
54 | {$IFDEF JPEG}
55 | OpenDlg.Filter := LoadStr(SPictFile) +
56 | ' (*.bmp *.jpg *.ico *.wmf *.emf)|*.bmp;*.jpg;*.ico;*.wmf;*.emf|' +
57 | LoadStr(SAllFiles) + '|*.*';
58 | {$ELSE}
59 | OpenDlg.Filter := LoadStr(SPictFile) +
60 | ' (*.bmp *.ico *.wmf *.emf)|*.bmp;*.ico;*.wmf;*.emf|' +
61 | LoadStr(SAllFiles) + '|*.*';
62 | {$ENDIF}
63 | if OpenDlg.Execute then
64 | Image1.Picture.LoadFromFile(OpenDlg.FileName);
65 | end;
66 |
67 | procedure TfrGEditorForm.CB1Click(Sender: TObject);
68 | begin
69 | Image1.Stretch := CB1.Checked;
70 | end;
71 |
72 | procedure TfrGEditorForm.Button4Click(Sender: TObject);
73 | begin
74 | Image1.Picture.Assign(nil);
75 | end;
76 |
77 | procedure TfrGEditorForm.FormCreate(Sender: TObject);
78 | begin
79 | Caption := LoadStr(frRes + 460);
80 | CB1.Caption := LoadStr(frRes + 461);
81 | Button3.Caption := LoadStr(frRes + 462);
82 | Button4.Caption := LoadStr(frRes + 463);
83 | Button5.Caption := LoadStr(frRes + 464);
84 | Button1.Caption := LoadStr(SOk);
85 | Button2.Caption := LoadStr(SCancel);
86 | end;
87 |
88 | procedure TfrGEditorForm.Button5Click(Sender: TObject);
89 | begin
90 | TfrDesignerForm(frDesigner).ShowMemoEditor;
91 | end;
92 |
93 | end.
94 |
95 |
--------------------------------------------------------------------------------
/Source/FR_GRPED.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_GRPED.DFM
--------------------------------------------------------------------------------
/Source/FR_GRPED.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Group band editor }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_GrpEd;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls, FR_Class, FR_Ctrls, FR_Const, ExtCtrls;
20 |
21 | type
22 | TfrGroupEditorForm = class(TForm)
23 | Button1: TButton;
24 | Button2: TButton;
25 | GB1: TGroupBox;
26 | Edit1: TEdit;
27 | Panel1: TPanel;
28 | frSpeedButton1: TfrSpeedButton;
29 | procedure frSpeedButton1Click(Sender: TObject);
30 | procedure FormCreate(Sender: TObject);
31 | private
32 | { Private declarations }
33 | public
34 | { Public declarations }
35 | procedure ShowEditor(t: TfrView);
36 | end;
37 |
38 | var
39 | frGroupEditorForm: TfrGroupEditorForm;
40 |
41 | implementation
42 |
43 | {$R *.DFM}
44 |
45 | uses FR_Flds;
46 |
47 | procedure TfrGroupEditorForm.ShowEditor(t: TfrView);
48 | begin
49 | Edit1.Text := (t as TfrBandView).GroupCondition;
50 | if ShowModal = mrOk then
51 | begin
52 | frDesigner.BeforeChange;
53 | (t as TfrBandView).GroupCondition := Edit1.Text;
54 | end;
55 | end;
56 |
57 | procedure TfrGroupEditorForm.frSpeedButton1Click(Sender: TObject);
58 | begin
59 | frFieldsForm := TfrFieldsForm.Create(nil);
60 | with frFieldsForm do
61 | if ShowModal = mrOk then
62 | Edit1.Text := DBField;
63 | frFieldsForm.Free;
64 | end;
65 |
66 | procedure TfrGroupEditorForm.FormCreate(Sender: TObject);
67 | begin
68 | Caption := LoadStr(frRes + 490);
69 | GB1.Caption := LoadStr(frRes + 491);
70 | frSpeedButton1.Hint := LoadStr(frRes + 492);
71 | Button1.Caption := LoadStr(SOk);
72 | Button2.Caption := LoadStr(SCancel);
73 | end;
74 |
75 | end.
76 |
77 |
--------------------------------------------------------------------------------
/Source/FR_HILIT.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_HILIT.DFM
--------------------------------------------------------------------------------
/Source/FR_HILIT.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Highlight attributes dialog }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_Hilit;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls, Buttons, FR_Ctrls, FR_Const;
20 |
21 | type
22 | TfrHilightForm = class(TForm)
23 | GroupBox1: TGroupBox;
24 | GroupBox2: TGroupBox;
25 | CB1: TCheckBox;
26 | CB2: TCheckBox;
27 | CB3: TCheckBox;
28 | Button3: TButton;
29 | Button4: TButton;
30 | ColorDialog1: TColorDialog;
31 | SpeedButton1: TfrSpeedButton;
32 | SpeedButton2: TfrSpeedButton;
33 | RB1: TRadioButton;
34 | RB2: TRadioButton;
35 | GroupBox3: TGroupBox;
36 | Edit1: TEdit;
37 | procedure SpeedButton1Click(Sender: TObject);
38 | procedure SpeedButton2Click(Sender: TObject);
39 | procedure FormActivate(Sender: TObject);
40 | procedure RB1Click(Sender: TObject);
41 | procedure FormCreate(Sender: TObject);
42 | private
43 | { Private declarations }
44 | public
45 | { Public declarations }
46 | FontColor, FillColor: TColor;
47 | end;
48 |
49 | var
50 | frHilightForm: TfrHilightForm;
51 |
52 | implementation
53 |
54 | uses FR_Desgn, FR_Class;
55 |
56 | {$R *.DFM}
57 |
58 |
59 | procedure TfrHilightForm.SpeedButton1Click(Sender: TObject);
60 | begin
61 | ColorDialog1.Color := FontColor;
62 | if ColorDialog1.Execute then
63 | begin
64 | FontColor := ColorDialog1.Color;
65 | frSetGlyph(FontColor, SpeedButton1, 0);
66 | end;
67 | end;
68 |
69 | procedure TfrHilightForm.SpeedButton2Click(Sender: TObject);
70 | begin
71 | ColorDialog1.Color := FillColor;
72 | if ColorDialog1.Execute then
73 | begin
74 | FillColor := ColorDialog1.Color;
75 | frSetGlyph(FillColor, SpeedButton2, 1);
76 | end;
77 | end;
78 |
79 | procedure TfrHilightForm.FormActivate(Sender: TObject);
80 | begin
81 | frSetGlyph(FontColor, SpeedButton1, 0);
82 | frSetGlyph(FillColor, SpeedButton2, 1);
83 | if FillColor = clNone then
84 | RB1.Checked := True else
85 | RB2.Checked := True;
86 | RB1Click(nil);
87 | end;
88 |
89 | procedure TfrHilightForm.RB1Click(Sender: TObject);
90 | begin
91 | SpeedButton2.Enabled := RB2.Checked;
92 | if RB1.Checked then FillColor := clNone;
93 | end;
94 |
95 | procedure TfrHilightForm.FormCreate(Sender: TObject);
96 | begin
97 | Caption := LoadStr(frRes + 520);
98 | GroupBox3.Caption := LoadStr(frRes + 521);
99 | GroupBox1.Caption := LoadStr(frRes + 522);
100 | SpeedButton1.Caption := LoadStr(frRes + 523);
101 | CB1.Caption := LoadStr(frRes + 524);
102 | CB2.Caption := LoadStr(frRes + 525);
103 | CB3.Caption := LoadStr(frRes + 526);
104 | GroupBox2.Caption := LoadStr(frRes + 527);
105 | SpeedButton2.Caption := LoadStr(frRes + 528);
106 | RB1.Caption := LoadStr(frRes + 529);
107 | RB2.Caption := LoadStr(frRes + 530);
108 | Button3.Caption := LoadStr(SOk);
109 | Button4.Caption := LoadStr(SCancel);
110 | end;
111 |
112 | end.
113 |
114 |
--------------------------------------------------------------------------------
/Source/FR_IFLDS.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_IFLDS.DFM
--------------------------------------------------------------------------------
/Source/FR_IFLDS.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Insert fields dialog }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_IFlds;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls, FR_DBRel;
20 |
21 | type
22 | TfrInsertFieldsForm = class(TForm)
23 | FieldsL: TListBox;
24 | DatasetCB: TComboBox;
25 | Label1: TLabel;
26 | GroupBox1: TGroupBox;
27 | HorzRB: TRadioButton;
28 | VertRB: TRadioButton;
29 | Button1: TButton;
30 | Button2: TButton;
31 | GroupBox2: TGroupBox;
32 | HeaderCB: TCheckBox;
33 | BandCB: TCheckBox;
34 | procedure DatasetCBChange(Sender: TObject);
35 | procedure FormShow(Sender: TObject);
36 | procedure FormCreate(Sender: TObject);
37 | private
38 | { Private declarations }
39 | procedure GetFields;
40 | public
41 | { Public declarations }
42 | DataSet: TfrTDataSet;
43 | end;
44 |
45 | var
46 | frInsertFieldsForm: TfrInsertFieldsForm;
47 |
48 | implementation
49 |
50 | uses FR_Class, FR_Const, FR_Utils
51 | {$IFDEF IBO}
52 | , IB_Components
53 | {$ELSE}
54 | , DB
55 | {$ENDIF};
56 |
57 | {$R *.DFM}
58 |
59 | procedure TfrInsertFieldsForm.FormShow(Sender: TObject);
60 | begin
61 | DataSet := nil;
62 | {$IFDEF IBO}
63 | frGetComponents(CurReport.Owner, TIB_DataSet, DatasetCB.Items, nil);
64 | {$ELSE}
65 | frGetComponents(CurReport.Owner, TDataSet, DatasetCB.Items, nil);
66 | {$ENDIF}
67 | if DatasetCB.Items.Count > 0 then
68 | DatasetCB.ItemIndex := 0;
69 | GetFields;
70 | end;
71 |
72 | procedure TfrInsertFieldsForm.DatasetCBChange(Sender: TObject);
73 | begin
74 | GetFields;
75 | end;
76 |
77 | procedure TfrInsertFieldsForm.GetFields;
78 | begin
79 | FieldsL.Items.Clear;
80 | DataSet := frGetDataSet(DatasetCB.Items[DatasetCB.ItemIndex]);
81 | if DataSet <> nil then
82 | frGetFieldNames(DataSet, FieldsL.Items);
83 | end;
84 |
85 | procedure TfrInsertFieldsForm.FormCreate(Sender: TObject);
86 | begin
87 | Caption := LoadStr(frRes + 630);
88 | Label1.Caption := LoadStr(frRes + 631);
89 | GroupBox1.Caption := LoadStr(frRes + 632);
90 | HorzRB.Caption := LoadStr(frRes + 633);
91 | VertRB.Caption := LoadStr(frRes + 634);
92 | HeaderCB.Caption := LoadStr(frRes + 635);
93 | BandCB.Caption := LoadStr(frRes + 636);
94 | Button1.Caption := LoadStr(SOk);
95 | Button2.Caption := LoadStr(SCancel);
96 | end;
97 |
98 | end.
99 |
100 |
--------------------------------------------------------------------------------
/Source/FR_INSP.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_INSP.DFM
--------------------------------------------------------------------------------
/Source/FR_LNG.RES:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_LNG.RES
--------------------------------------------------------------------------------
/Source/FR_LNG1.RES:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_LNG1.RES
--------------------------------------------------------------------------------
/Source/FR_LNG2.RES:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_LNG2.RES
--------------------------------------------------------------------------------
/Source/FR_LNG3.RES:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_LNG3.RES
--------------------------------------------------------------------------------
/Source/FR_NEWRP.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_NEWRP.DFM
--------------------------------------------------------------------------------
/Source/FR_NEWRP.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Template viewer }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_Newrp;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls, ExtCtrls, FR_Const;
20 |
21 | type
22 | TfrTemplForm = class(TForm)
23 | GroupBox1: TGroupBox;
24 | Memo1: TMemo;
25 | Image1: TImage;
26 | Button1: TButton;
27 | Button2: TButton;
28 | LB1: TListBox;
29 | procedure FormActivate(Sender: TObject);
30 | procedure ListBox1Click(Sender: TObject);
31 | procedure FormDeactivate(Sender: TObject);
32 | procedure FormCreate(Sender: TObject);
33 | procedure LB1DblClick(Sender: TObject);
34 | private
35 | { Private declarations }
36 | public
37 | { Public declarations }
38 | TemplName: String;
39 | end;
40 |
41 | var
42 | frTemplForm: TfrTemplForm;
43 |
44 | implementation
45 |
46 | uses FR_Class, FR_Desgn;
47 |
48 | {$R *.DFM}
49 |
50 | var
51 | Path: String;
52 |
53 |
54 | procedure TfrTemplForm.FormActivate(Sender: TObject);
55 | var
56 | SearchRec: TSearchRec;
57 | r: Word;
58 | begin
59 | if frTemplateDir = '' then
60 | Path := '' else
61 | Path := frTemplateDir + '\';
62 | LB1.Items.Clear;
63 | R := FindFirst(Path + '*.frt', faAnyFile, SearchRec);
64 | while R = 0 do
65 | begin
66 | if (SearchRec.Attr and faDirectory) = 0 then
67 | LB1.Items.Add(ChangeFileExt(SearchRec.Name, ''));
68 | R := FindNext(SearchRec);
69 | end;
70 | FindClose(SearchRec);
71 | Memo1.Lines.Clear;
72 | Image1.Picture.Bitmap.Assign(nil);
73 | Button1.Enabled := False;
74 | end;
75 |
76 | procedure TfrTemplForm.ListBox1Click(Sender: TObject);
77 | begin
78 | Button1.Enabled := LB1.ItemIndex <> -1;
79 | if Button1.Enabled then
80 | begin
81 | CurReport.LoadTemplate(Path + LB1.Items[LB1.ItemIndex] + '.frt',
82 | Memo1.Lines, Image1.Picture.Bitmap,False);
83 | end;
84 | end;
85 |
86 | procedure TfrTemplForm.LB1DblClick(Sender: TObject);
87 | begin
88 | if Button1.Enabled then ModalResult := mrOk;
89 | end;
90 |
91 | procedure TfrTemplForm.FormDeactivate(Sender: TObject);
92 | begin
93 | if ModalResult = mrOk then
94 | TemplName := Path + LB1.Items[LB1.ItemIndex] + '.frt';
95 | end;
96 |
97 | procedure TfrTemplForm.FormCreate(Sender: TObject);
98 | begin
99 | Caption := LoadStr(frRes + 310);
100 | GroupBox1.Caption := LoadStr(frRes + 311);
101 | Button1.Caption := LoadStr(SOk);
102 | Button2.Caption := LoadStr(SCancel);
103 | end;
104 |
105 | end.
106 |
107 |
--------------------------------------------------------------------------------
/Source/FR_OLE.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_OLE.DFM
--------------------------------------------------------------------------------
/Source/FR_PGOPT.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_PGOPT.DFM
--------------------------------------------------------------------------------
/Source/FR_PGOPT.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Page options }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_pgopt;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls, ExtCtrls, ComCtrls, FR_Ctrls;
20 |
21 | type
22 | TfrPgoptForm = class(TForm)
23 | Button1: TButton;
24 | Button2: TButton;
25 | PageControl1: TPageControl;
26 | TabSheet1: TTabSheet;
27 | TabSheet2: TTabSheet;
28 | TabSheet3: TTabSheet;
29 | GroupBox2: TGroupBox;
30 | imgLandScape: TImage;
31 | imgPortrait: TImage;
32 | RB1: TRadioButton;
33 | RB2: TRadioButton;
34 | GroupBox1: TGroupBox;
35 | CB1: TCheckBox;
36 | GroupBox3: TGroupBox;
37 | ComB1: TComboBox;
38 | E1: TEdit;
39 | E2: TEdit;
40 | Label1: TLabel;
41 | Label2: TLabel;
42 | GroupBox4: TGroupBox;
43 | CB5: TCheckBox;
44 | E3: TEdit;
45 | Label3: TLabel;
46 | Label4: TLabel;
47 | E4: TEdit;
48 | Label5: TLabel;
49 | Label6: TLabel;
50 | E5: TEdit;
51 | E6: TEdit;
52 | GroupBox5: TGroupBox;
53 | Label7: TLabel;
54 | E7: TEdit;
55 | Label8: TLabel;
56 | Edit1: TEdit;
57 | Panel8: TPanel;
58 | SB1: TfrSpeedButton;
59 | SB2: TfrSpeedButton;
60 | procedure RB1Click(Sender: TObject);
61 | procedure RB2Click(Sender: TObject);
62 | procedure FormActivate(Sender: TObject);
63 | procedure ComB1Click(Sender: TObject);
64 | procedure CB5Click(Sender: TObject);
65 | procedure FormCreate(Sender: TObject);
66 | procedure SB1Click(Sender: TObject);
67 | procedure SB2Click(Sender: TObject);
68 | private
69 | { Private declarations }
70 | public
71 | { Public declarations }
72 | end;
73 |
74 | var
75 | frPgoptForm: TfrPgoptForm;
76 |
77 | implementation
78 |
79 | {$R *.DFM}
80 |
81 | uses FR_Prntr, FR_Class, FR_Const, FR_Utils;
82 |
83 | procedure TfrPgoptForm.RB1Click(Sender: TObject);
84 | begin
85 | ImgPortrait.Show;
86 | ImgLandscape.Hide;
87 | end;
88 |
89 | procedure TfrPgoptForm.RB2Click(Sender: TObject);
90 | begin
91 | ImgLandscape.Show;
92 | ImgPortrait.Hide;
93 | end;
94 |
95 | procedure TfrPgoptForm.FormActivate(Sender: TObject);
96 | begin
97 | if RB1.Checked then RB1Click(nil) else RB2Click(nil);
98 | ComB1Click(nil); CB5Click(nil);
99 | ComB1.Perform(CB_SETDROPPEDWIDTH, 200, 0);
100 | end;
101 |
102 | procedure TfrPgoptForm.ComB1Click(Sender: TObject);
103 | begin
104 | frEnableControls([Label1, Label2, E1, E2],
105 | Prn.PaperSizes[ComB1.ItemIndex] = $100);
106 | end;
107 |
108 | procedure TfrPgoptForm.CB5Click(Sender: TObject);
109 | begin
110 | frEnableControls([Label3, Label4, Label5, Label6, E3, E4, E5, E6],
111 | not CB5.Checked);
112 | end;
113 |
114 | procedure TfrPgoptForm.FormCreate(Sender: TObject);
115 | begin
116 | Caption := LoadStr(frRes + 390);
117 | TabSheet1.Caption := LoadStr(frRes + 391);
118 | GroupBox2.Caption := LoadStr(frRes + 392);
119 | RB1.Caption := LoadStr(frRes + 393);
120 | RB2.Caption := LoadStr(frRes + 394);
121 | GroupBox3.Caption := LoadStr(frRes + 395);
122 | Label1.Caption := LoadStr(frRes + 396);
123 | Label2.Caption := LoadStr(frRes + 397);
124 | TabSheet2.Caption := LoadStr(frRes + 398);
125 | GroupBox4.Caption := LoadStr(frRes + 399);
126 | Label3.Caption := LoadStr(frRes + 400);
127 | Label4.Caption := LoadStr(frRes + 401);
128 | Label5.Caption := LoadStr(frRes + 402);
129 | Label6.Caption := LoadStr(frRes + 403);
130 | CB5.Caption := LoadStr(frRes + 404);
131 | TabSheet3.Caption := LoadStr(frRes + 405);
132 | GroupBox1.Caption := LoadStr(frRes + 406);
133 | CB1.Caption := LoadStr(frRes + 407);
134 | GroupBox5.Caption := LoadStr(frRes + 408);
135 | Label7.Caption := LoadStr(frRes + 409);
136 | Label8.Caption := LoadStr(frRes + 410);
137 | Button1.Caption := LoadStr(SOk);
138 | Button2.Caption := LoadStr(SCancel);
139 | end;
140 |
141 | procedure TfrPgoptForm.SB1Click(Sender: TObject);
142 | var
143 | i: Integer;
144 | begin
145 | i := StrToInt(Edit1.Text);
146 | Inc(i);
147 | Edit1.Text := IntToStr(i);
148 | end;
149 |
150 | procedure TfrPgoptForm.SB2Click(Sender: TObject);
151 | var
152 | i: Integer;
153 | begin
154 | i := StrToInt(Edit1.Text);
155 | Dec(i);
156 | if i < 0 then i := 0;
157 | Edit1.Text := IntToStr(i);
158 | end;
159 |
160 | end.
161 |
162 |
--------------------------------------------------------------------------------
/Source/FR_PRDLG.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_PRDLG.DFM
--------------------------------------------------------------------------------
/Source/FR_PRDLG.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Print dialog }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_PrDlg;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls, FR_Ctrls, ExtCtrls;
20 |
21 | type
22 | TfrPrintForm = class(TForm)
23 | Label1: TLabel;
24 | E1: TEdit;
25 | GroupBox2: TGroupBox;
26 | RB1: TRadioButton;
27 | RB2: TRadioButton;
28 | RB3: TRadioButton;
29 | E2: TEdit;
30 | Panel1: TPanel;
31 | frSpeedButton1: TfrSpeedButton;
32 | frSpeedButton2: TfrSpeedButton;
33 | Label2: TLabel;
34 | Button1: TButton;
35 | Button2: TButton;
36 | GroupBox1: TGroupBox;
37 | CB1: TComboBox;
38 | PropButton: TButton;
39 | PrinterSetupDialog1: TPrinterSetupDialog;
40 | Image1: TImage;
41 | procedure CB1DrawItem(Control: TWinControl; Index: Integer;
42 | ARect: TRect; State: TOwnerDrawState);
43 | procedure FormCreate(Sender: TObject);
44 | procedure PropButtonClick(Sender: TObject);
45 | procedure CB1Click(Sender: TObject);
46 | procedure E2Click(Sender: TObject);
47 | procedure frSpeedButton1Click(Sender: TObject);
48 | procedure frSpeedButton2Click(Sender: TObject);
49 | procedure RB3Click(Sender: TObject);
50 | procedure FormDeactivate(Sender: TObject);
51 | private
52 | { Private declarations }
53 | OldIndex: Integer;
54 | public
55 | { Public declarations }
56 | end;
57 |
58 | var
59 | frPrintForm: TfrPrintForm;
60 |
61 | implementation
62 |
63 | {$R *.DFM}
64 |
65 | uses FR_Const, FR_Prntr, Printers;
66 |
67 | procedure TfrPrintForm.FormCreate(Sender: TObject);
68 | begin
69 | CB1.Items.Assign(Printer.Printers);
70 | CB1.ItemIndex := Printer.PrinterIndex;
71 | OldIndex := Printer.PrinterIndex;
72 |
73 | Caption := LoadStr(frRes + 040);
74 | GroupBox1.Caption := LoadStr(frRes + 041);
75 | PropButton.Caption := LoadStr(frRes + 042);
76 | Label1.Caption := LoadStr(frRes + 043);
77 | GroupBox2.Caption := LoadStr(frRes + 044);
78 | RB1.Caption := LoadStr(frRes + 045);
79 | RB2.Caption := LoadStr(frRes + 046);
80 | RB3.Caption := LoadStr(frRes + 047);
81 | Label2.Caption := LoadStr(frRes + 048);
82 | Button1.Caption := LoadStr(SOk);
83 | Button2.Caption := LoadStr(SCancel);
84 | end;
85 |
86 | procedure TfrPrintForm.FormDeactivate(Sender: TObject);
87 | begin
88 | if ModalResult <> mrOk then
89 | Prn.PrinterIndex := OldIndex;
90 | end;
91 |
92 | procedure TfrPrintForm.CB1DrawItem(Control: TWinControl; Index: Integer;
93 | ARect: TRect; State: TOwnerDrawState);
94 | var
95 | r: TRect;
96 | begin
97 | r := ARect;
98 | r.Right := r.Left + 18;
99 | r.Bottom := r.Top + 16;
100 | OffsetRect(r, 2, 0);
101 | with CB1.Canvas do
102 | begin
103 | FillRect(ARect);
104 | BrushCopy(r, Image1.Picture.Bitmap, Rect(0, 0, 18, 16), clOlive);
105 | TextOut(ARect.Left + 24, ARect.Top + 1, CB1.Items[Index]);
106 | end;
107 | end;
108 |
109 | procedure TfrPrintForm.PropButtonClick(Sender: TObject);
110 | begin
111 | PrinterSetupDialog1.Execute;
112 | CB1.ItemIndex := Printer.PrinterIndex;
113 | end;
114 |
115 | procedure TfrPrintForm.CB1Click(Sender: TObject);
116 | begin
117 | Prn.PrinterIndex := CB1.ItemIndex;
118 | end;
119 |
120 | procedure TfrPrintForm.E2Click(Sender: TObject);
121 | begin
122 | RB3.Checked := True;
123 | end;
124 |
125 | procedure TfrPrintForm.frSpeedButton1Click(Sender: TObject);
126 | var
127 | i: Integer;
128 | begin
129 | i := StrToInt(E1.Text);
130 | Inc(i);
131 | E1.Text := IntToStr(i);
132 | end;
133 |
134 | procedure TfrPrintForm.frSpeedButton2Click(Sender: TObject);
135 | var
136 | i: Integer;
137 | begin
138 | i := StrToInt(E1.Text);
139 | Dec(i);
140 | if i <= 0 then i := 1;
141 | E1.Text := IntToStr(i);
142 | end;
143 |
144 | procedure TfrPrintForm.RB3Click(Sender: TObject);
145 | begin
146 | E2.SetFocus;
147 | end;
148 |
149 | end.
150 |
--------------------------------------------------------------------------------
/Source/FR_PROGR.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_PROGR.DFM
--------------------------------------------------------------------------------
/Source/FR_PROGR.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Progress dialog }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_progr;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls, ExtCtrls, FR_Class, FR_Const;
20 |
21 | const
22 | CM_BeforeModal = WM_USER + 1;
23 |
24 | type
25 | TfrProgressForm = class(TForm)
26 | Button1: TButton;
27 | Label1: TLabel;
28 | procedure Button1Click(Sender: TObject);
29 | procedure FormCreate(Sender: TObject);
30 | private
31 | { Private declarations }
32 | FDoc: TfrReport;
33 | FOnBeforeModal: TNotifyEvent;
34 | {$IFDEF Delphi9}
35 | procedure CMBeforeModal(Sender: TObject);
36 | {$ELSE}
37 | procedure CMBeforeModal(var Message: TMessage); message CM_BeforeModal;
38 | {$ENDIF}
39 | public
40 | { Public declarations }
41 | FirstCaption: String;
42 | {$IFDEF Delphi9}
43 | Timer: TTimer;
44 | {$ENDIF}
45 | property OnBeforeModal: TNotifyEvent read FOnBeforeModal write FOnBeforeModal;
46 | function Show_Modal(Doc: TfrReport): Word;
47 | end;
48 |
49 | var
50 | frProgressForm: TfrProgressForm;
51 |
52 | implementation
53 |
54 | {$R *.DFM}
55 |
56 | function TfrProgressForm.Show_Modal(Doc: TfrReport): Word;
57 | begin
58 | FDoc := Doc;
59 | {$IFDEF Delphi9}
60 | Timer := TTimer.Create(nil);
61 | Timer.Interval := 200;
62 | Timer.OnTimer := CMBeforeModal;
63 | Timer.Enabled := True;
64 | {$ELSE}
65 | PostMessage(Handle, CM_BeforeModal, 0, 0);
66 | {$ENDIF}
67 | Result := ShowModal;
68 | {$IFDEF Delphi9}
69 | Timer.Free;
70 | {$ENDIF}
71 | end;
72 |
73 | procedure TfrProgressForm.Button1Click(Sender: TObject);
74 | begin
75 | FDoc.Terminated := True;
76 | ModalResult := mrCancel;
77 | end;
78 |
79 | {$IFDEF Delphi9}
80 | procedure TfrProgressForm.CMBeforeModal(Sender: TObject);
81 | begin
82 | Timer.Enabled := False;
83 | if Assigned(FOnBeforeModal) then
84 | FOnBeforeModal(Self);
85 | end;
86 | {$ELSE}
87 | procedure TfrProgressForm.CMBeforeModal(var Message: TMessage);
88 | begin
89 | if Assigned(FOnBeforeModal) then FOnBeforeModal(Self);
90 | end;
91 | {$ENDIF}
92 |
93 | procedure TfrProgressForm.FormCreate(Sender: TObject);
94 | begin
95 | Button1.Caption := LoadStr(SCancel);
96 | end;
97 |
98 | end.
99 |
100 |
--------------------------------------------------------------------------------
/Source/FR_REG.DCR:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_REG.DCR
--------------------------------------------------------------------------------
/Source/FR_REG.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Registration unit }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 |
12 | unit FR_reg;
13 |
14 | interface
15 |
16 | {$I FR.inc}
17 |
18 | procedure Register;
19 |
20 | implementation
21 |
22 | uses
23 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
24 | {$IFNDEF Delphi6}
25 | DsgnIntf,
26 | {$ELSE}
27 | DesignIntf, DesignEditors, DesignWindows, DsnConst,
28 | {$ENDIF}
29 | Dialogs, FR_Class, FR_DSet, FR_DBSet,
30 | FR_OLE, FR_Rich, FR_ChBox, FR_Shape, FR_BarC, FR_RRect,
31 | FR_Desgn, FR_View, FR_Dock, FR_Ctrls, FR_DBOp,
32 | FR_E_TXT, FR_E_RTF, FR_E_CSV, FR_E_HTM, FR_Const
33 | {$IFDEF TeeChart}, FR_Chart {$ENDIF}
34 | {$IFDEF RX}, FR_RxRTF {$ENDIF};
35 |
36 | {-----------------------------------------------------------------------}
37 | type
38 | TfrRepEditor = class(TComponentEditor)
39 | procedure ExecuteVerb(Index: Integer); override;
40 | function GetVerb(Index: Integer): String; override;
41 | function GetVerbCount: Integer; override;
42 | procedure DoDesign;
43 | end;
44 |
45 | procedure TfrRepEditor.ExecuteVerb(Index: Integer);
46 | begin
47 | DoDesign;
48 | end;
49 |
50 | function TfrRepEditor.GetVerb(Index: Integer): String;
51 | begin
52 | Result := LoadStr(SDesignReport);
53 | end;
54 |
55 | function TfrRepEditor.GetVerbCount: Integer;
56 | begin
57 | Result := 1;
58 | end;
59 |
60 | procedure TfrRepEditor.DoDesign;
61 | begin
62 | TfrReport(Component).DesignReport;
63 | if frDesigner <> nil then
64 | if TfrReportDesigner(frDesigner).Modified then
65 | Designer.Modified;
66 | end;
67 |
68 | {-----------------------------------------------------------------------}
69 | procedure Register;
70 | begin
71 | RegisterComponents('FreeReport',
72 | [TfrReport, TfrCompositeReport, TfrDBDataSet, TfrUserDataset,
73 | TfrOLEObject, TfrRichObject, TfrCheckBoxObject,
74 | TfrShapeObject, TfrBarCodeObject,
75 | {$IFDEF TeeChart} TfrChartObject, {$ENDIF}
76 | {$IFDEF RX} TfrRxRichObject, {$ENDIF}
77 | TfrRoundRectObject,
78 | TfrTextExport, TfrRTFExport, TfrCSVExport, TfrHTMExport,
79 | TfrDesigner,
80 | TfrPreview]);
81 | RegisterComponents('FR Tools',
82 | [TfrSpeedButton, TfrDock, TfrToolBar,
83 | TfrTBButton, TfrTBSeparator, TfrTBPanel, TfrOpenDBDialog]);
84 | RegisterComponentEditor(TfrReport, TfrRepEditor);
85 | end;
86 |
87 | end.
88 |
--------------------------------------------------------------------------------
/Source/FR_RICH.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_RICH.DFM
--------------------------------------------------------------------------------
/Source/FR_RRECT.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_RRECT.DFM
--------------------------------------------------------------------------------
/Source/FR_RRECT.PAS:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_RRECT.PAS
--------------------------------------------------------------------------------
/Source/FR_RXRTF.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_RXRTF.DFM
--------------------------------------------------------------------------------
/Source/FR_SHAPE.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_SHAPE.DFM
--------------------------------------------------------------------------------
/Source/FR_SNTXE.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_SNTXE.DFM
--------------------------------------------------------------------------------
/Source/FR_SRCH.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_SRCH.DFM
--------------------------------------------------------------------------------
/Source/FR_SRCH.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Search dialog }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_Srch;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls, FR_Const;
20 |
21 | type
22 | TfrPreviewSearchForm = class(TForm)
23 | Label1: TLabel;
24 | Edit1: TEdit;
25 | Button1: TButton;
26 | Button2: TButton;
27 | GroupBox1: TGroupBox;
28 | CB1: TCheckBox;
29 | GroupBox2: TGroupBox;
30 | RB1: TRadioButton;
31 | RB2: TRadioButton;
32 | procedure FormActivate(Sender: TObject);
33 | procedure FormCreate(Sender: TObject);
34 | private
35 | { Private declarations }
36 | public
37 | { Public declarations }
38 | end;
39 |
40 | var
41 | frPreviewSearchForm: TfrPreviewSearchForm;
42 |
43 | implementation
44 |
45 | {$R *.DFM}
46 |
47 | procedure TfrPreviewSearchForm.FormActivate(Sender: TObject);
48 | begin
49 | Edit1.SetFocus;
50 | Edit1.SelectAll;
51 | end;
52 |
53 | procedure TfrPreviewSearchForm.FormCreate(Sender: TObject);
54 | begin
55 | Caption := LoadStr(frRes + 000);
56 | Label1.Caption := LoadStr(frRes + 001);
57 | GroupBox1.Caption := LoadStr(frRes + 002);
58 | CB1.Caption := LoadStr(frRes + 003);
59 | GroupBox2.Caption := LoadStr(frRes + 004);
60 | RB1.Caption := LoadStr(frRes + 005);
61 | RB2.Caption := LoadStr(frRes + 006);
62 | Button1.Caption := LoadStr(SOk);
63 | Button2.Caption := LoadStr(SCancel);
64 | end;
65 |
66 | end.
67 |
68 |
--------------------------------------------------------------------------------
/Source/FR_TEMPL.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_TEMPL.DFM
--------------------------------------------------------------------------------
/Source/FR_TEMPL.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { New Template form }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_Templ;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | StdCtrls, ExtCtrls, FR_Const;
20 |
21 | type
22 | TfrTemplNewForm = class(TForm)
23 | GroupBox2: TGroupBox;
24 | Panel1: TPanel;
25 | Image1: TImage;
26 | Button1: TButton;
27 | Button2: TButton;
28 | Button3: TButton;
29 | OpenDialog1: TOpenDialog;
30 | Memo1: TMemo;
31 | Label1: TLabel;
32 | procedure Button1Click(Sender: TObject);
33 | procedure FormActivate(Sender: TObject);
34 | procedure FormCreate(Sender: TObject);
35 | private
36 | { Private declarations }
37 | public
38 | { Public declarations }
39 | end;
40 |
41 | var
42 | frTemplNewForm: TfrTemplNewForm;
43 |
44 | implementation
45 |
46 | {$R *.DFM}
47 |
48 | procedure TfrTemplNewForm.Button1Click(Sender: TObject);
49 | begin
50 | OpenDialog1.Filter := LoadStr(SBMPFile) + ' (*.bmp)|*.bmp';
51 | with OpenDialog1 do
52 | if Execute then
53 | Image1.Picture.LoadFromFile(FileName);
54 | end;
55 |
56 | procedure TfrTemplNewForm.FormActivate(Sender: TObject);
57 | begin
58 | Memo1.Lines.Clear;
59 | Image1.Picture.Assign(nil);
60 | Memo1.SetFocus;
61 | end;
62 |
63 | procedure TfrTemplNewForm.FormCreate(Sender: TObject);
64 | begin
65 | Caption := LoadStr(frRes + 320);
66 | Label1.Caption := LoadStr(frRes + 321);
67 | GroupBox2.Caption := LoadStr(frRes + 322);
68 | Button1.Caption := LoadStr(frRes + 323);
69 | Button2.Caption := LoadStr(SOk);
70 | Button3.Caption := LoadStr(SCancel);
71 | end;
72 |
73 | end.
74 |
75 |
--------------------------------------------------------------------------------
/Source/FR_UTILS.PAS:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_UTILS.PAS
--------------------------------------------------------------------------------
/Source/FR_VAR.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_VAR.DFM
--------------------------------------------------------------------------------
/Source/FR_VARED.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_VARED.DFM
--------------------------------------------------------------------------------
/Source/FR_VARED.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Variables editor }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_Vared;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | ExtCtrls, StdCtrls, ComCtrls, FR_Class, FR_Const;
20 |
21 | type
22 | TfrVaredForm = class(TForm)
23 | Button4: TButton;
24 | Button5: TButton;
25 | Memo1: TMemo;
26 | Label1: TLabel;
27 | procedure FormActivate(Sender: TObject);
28 | procedure FormCreate(Sender: TObject);
29 | private
30 | { Private declarations }
31 | public
32 | { Public declarations }
33 | Doc: TfrReport;
34 | end;
35 |
36 | var
37 | frVaredForm: TfrVaredForm;
38 |
39 | implementation
40 |
41 | {$R *.DFM}
42 |
43 | procedure TfrVaredForm.FormActivate(Sender: TObject);
44 | begin
45 | Memo1.Lines.Assign(Doc.Variables);
46 | end;
47 |
48 | procedure TfrVaredForm.FormCreate(Sender: TObject);
49 | begin
50 | Caption := LoadStr(frRes + 360);
51 | Label1.Caption := LoadStr(frRes + 361);
52 | Button4.Caption := LoadStr(SOk);
53 | Button5.Caption := LoadStr(SCancel);
54 | end;
55 |
56 | end.
57 |
58 |
--------------------------------------------------------------------------------
/Source/FR_VBND.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_VBND.DFM
--------------------------------------------------------------------------------
/Source/FR_VBND.PAS:
--------------------------------------------------------------------------------
1 |
2 | {*****************************************}
3 | { }
4 | { FastReport v2.3 }
5 | { Select Band datasource dialog }
6 | { }
7 | { Copyright (c) 1998-99 by Tzyganenko A. }
8 | { }
9 | {*****************************************}
10 |
11 | unit FR_VBnd;
12 |
13 | interface
14 |
15 | {$I FR.inc}
16 |
17 | uses
18 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
19 | ExtCtrls, StdCtrls, FR_Class, FR_Intrp;
20 |
21 | type
22 | TfrVBandEditorForm = class(TForm)
23 | Button1: TButton;
24 | Button2: TButton;
25 | GroupBox1: TGroupBox;
26 | GroupBox2: TGroupBox;
27 | Label1: TLabel;
28 | CB1: TComboBox;
29 | Edit1: TEdit;
30 | LB1: TListBox;
31 | procedure FormCreate(Sender: TObject);
32 | procedure CB1Click(Sender: TObject);
33 | procedure LB1Click(Sender: TObject);
34 | procedure CB1Exit(Sender: TObject);
35 | private
36 | { Private declarations }
37 | Band: TfrBandView;
38 | List: TfrVariables;
39 | procedure FillCombo;
40 | public
41 | { Public declarations }
42 | procedure ShowEditor(t: TfrView);
43 | end;
44 |
45 | var
46 | frVBandEditorForm: TfrVBandEditorForm;
47 |
48 | implementation
49 |
50 | {$R *.DFM}
51 |
52 | uses FR_DSet, FR_Const, FR_Utils;
53 |
54 | procedure TfrVBandEditorForm.ShowEditor(t: TfrView);
55 | var
56 | i, j, n: Integer;
57 | s: String;
58 | t1: TfrView;
59 | b: Boolean;
60 | begin
61 | Band := t as TfrBandView;
62 | List := TfrVariables.Create;
63 |
64 | s := Band.Dataset;
65 | b := False;
66 | if Pos(';', s) = 0 then
67 | b := True;
68 |
69 | with frDesigner.Page do
70 | for i := 0 to Objects.Count - 1 do
71 | begin
72 | t1 := Objects[i];
73 | if (t1.Typ = gtBand) and not (TfrBandView(t1).BandType in
74 | [btReportTitle..btPageFooter, btOverlay, btCrossHeader..btCrossFooter]) then
75 | begin
76 | LB1.Items.Add(t1.Name + ': ' + frBandNames[t1.FrameTyp]);
77 | n := Pos(AnsiUpperCase(t1.Name) + '=', AnsiUpperCase(s));
78 | if n <> 0 then
79 | begin
80 | n := n + Length(t1.Name) + 1;
81 | j := n;
82 | while s[j] <> ';' do Inc(j);
83 | List[t1.Name] := Copy(s, n, j - n);
84 | end
85 | else
86 | if b then
87 | List[t1.Name] := s else
88 | List[t1.Name] := '0';
89 | end;
90 | end;
91 | if LB1.Items.Count = 0 then
92 | begin
93 | List.Free;
94 | Exit;
95 | end;
96 | FillCombo;
97 | LB1.ItemIndex := 0;
98 | LB1Click(nil);
99 |
100 | if ShowModal = mrOk then
101 | begin
102 | CB1Exit(nil);
103 | frDesigner.BeforeChange;
104 | s := '';
105 | for i := 0 to List.Count - 1 do
106 | s := s + List.Name[i] + '=' + List.Value[i] + ';';
107 | Band.DataSet := s;
108 | end;
109 | List.Free;
110 | end;
111 |
112 | procedure TfrVBandEditorForm.FillCombo;
113 | begin
114 | frGetComponents(CurReport.Owner, TfrDataset, CB1.Items, nil);
115 | CB1.Items.Insert(0, LoadStr(SVirtualDataset));
116 | CB1.Items.Insert(0, LoadStr(SNotAssigned));
117 | end;
118 |
119 | procedure TfrVBandEditorForm.FormCreate(Sender: TObject);
120 | begin
121 | Caption := LoadStr(frRes + 485);
122 | GroupBox1.Caption := LoadStr(frRes + 486);
123 | GroupBox2.Caption := LoadStr(frRes + 487);
124 | Label1.Caption := LoadStr(frRes + 488);
125 | Button1.Caption := LoadStr(SOk);
126 | Button2.Caption := LoadStr(SCancel);
127 | end;
128 |
129 | procedure TfrVBandEditorForm.CB1Click(Sender: TObject);
130 | begin
131 | frEnableControls([Label1, Edit1], CB1.ItemIndex = 1);
132 | end;
133 |
134 | procedure TfrVBandEditorForm.LB1Click(Sender: TObject);
135 | var
136 | i: Integer;
137 | s: String;
138 | begin
139 | s := LB1.Items[LB1.ItemIndex];
140 | s := Copy(s, 1, Pos(':', s) - 1);
141 | s := List[s];
142 | if (s <> '') and (s[1] in ['1'..'9']) then
143 | begin
144 | i := 1;
145 | Edit1.Text := s;
146 | end
147 | else
148 | begin
149 | i := CB1.Items.IndexOf(s);
150 | if i = -1 then
151 | i := CB1.Items.IndexOf(LoadStr(SNotAssigned));
152 | end;
153 | CB1.ItemIndex := i;
154 | CB1Click(nil);
155 | end;
156 |
157 | procedure TfrVBandEditorForm.CB1Exit(Sender: TObject);
158 | var
159 | s: String;
160 | begin
161 | s := LB1.Items[LB1.ItemIndex];
162 | s := Copy(s, 1, Pos(':', s) - 1);
163 | if CB1.ItemIndex = 1 then
164 | List[s] := Edit1.Text else
165 | List[s] := CB1.Items[CB1.ItemIndex];
166 | end;
167 |
168 | end.
169 |
170 |
--------------------------------------------------------------------------------
/Source/FR_VIEW.DFM:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/FR_VIEW.DFM
--------------------------------------------------------------------------------
/Source/Fr_intrp.pas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/FastReports/FreeReport/88584e308dfc82ae90ccf78d595015ffa2d53616/Source/Fr_intrp.pas
--------------------------------------------------------------------------------
/Source/freerep4.cpp:
--------------------------------------------------------------------------------
1 | //---------------------------------------------------------------------------
2 | #include