prototypes/miglayout/gui_mig_unitvalue.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

unit gui_mig_unitvalue;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils; 
  
type

  TUnitValue = class(TObject)
  private
    FPixels: integer;
  public
    property    Pixels: integer read FPixels;
  end;
  
  TUnitValueArray = array[0..3] of TUnitValue;

implementation

end.