source: cprs/trunk/CPRS-Chart/fxLists.pas@ 1138

Last change on this file since 1138 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

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