BuildDatabase/frmdebug.pas at master · Pontiac76/BuildDatabase · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
(*
@AI:unit-summary: This Pascal unit defines a form for debugging purposes, containing multiple labeled edit fields and panels for displaying global details and managing layout, likely intended for user input and display of debug information.
*)
unit frmDebug;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs,StdCtrls,ExtCtrls;

type

  { TDebugForm }

  TDebugForm = class(TForm)
    LabeledEdit1:TLabeledEdit;
    LabeledEdit2:TLabeledEdit;
    LabeledEdit3:TLabeledEdit;
    LabeledEdit4:TLabeledEdit;
    LabeledEdit5:TLabeledEdit;
    LabeledEdit6:TLabeledEdit;
    MasterPanel:TPanel;
    GlobalDetails:TPanel;
    MasterHorizontalScroll:TScrollBox;
  private
  public

  end;

var
  DebugForm: TDebugForm;

implementation

uses MiscFunctions;

{$R *.lfm}

{ TDebugForm }


end.