source: cprs/branches/tmg-cprs/CPRS-Chart/fxLists.pas@ 1620

Last change on this file since 1620 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.2 KB
Line 
1//kt -- Modified with SourceScanner on 9/5/2007
2unit fxLists;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 StdCtrls, DKLang;
9
10type
11 TfrmDbgList = class(TForm)
12 memData: TMemo;
13 DKLanguageController1: TDKLanguageController;
14 procedure FormKeyUp(Sender: TObject; var Key: Word;
15 Shift: TShiftState);
16 private
17 { Private declarations }
18 public
19 { Public declarations }
20 end;
21
22procedure DebugListItems(AListBox: TListBox);
23
24implementation
25
26{$R *.DFM}
27
28uses
29 ORFn, ORCtrls;
30
31procedure DebugListItems(AListBox: TListBox);
32var
33 frmDbgList: TfrmDbgList;
34begin
35 frmDbgList := TfrmDbgList.Create(Application);
36 try
37 ResizeAnchoredFormToFont(frmDbgList);
38 with frmDbgList do
39 begin
40 if AListBox is TORListBox then
41 memData.Lines.Assign(TORListBox(AListBox).Items)
42 else
43 memData.Lines.Assign(AListBox.Items);
44 ShowModal;
45 end;
46 finally
47 frmDbgList.Release;
48 end;
49end;
50
51procedure TfrmDbgList.FormKeyUp(Sender: TObject; var Key: Word;
52 Shift: TShiftState);
53begin
54 if Key = VK_ESCAPE then
55 begin
56 Key := 0;
57 Close;
58 end;
59end;
60
61end.
Note: See TracBrowser for help on using the repository browser.