Лесенка

Взято из реального проекта


  TDialogScreenSettings = class(TDialog)
  protected
    AvailableModes : array of TIntSize;
    Pages : TGUIN4_PageControl;
    FWindow : TGUIN4_Window;
    VideoPage : TGUIN4_Page;
    ScreenModes : TGUIN4_ComboBox;
    VsyncCheckBox : TGUIN4_CheckBox;
    ShowFPSCheckBox : TGUIN4_CheckBox;
    FullScreenCheckBox : TGUIN4_CheckBox;
    AntialiasingCheckBox : TGUIN4_CheckBox;
    procedure OnClose(Sender : TGUI_Control);
    procedure OnBtnCancel(Sender : TGUI_Control);
    procedure OnBtnOk(Sender : TGUI_Control);
    procedure OnShow; override;
    procedure OnHide; override;
    procedure OnCreate; override;
    procedure OnDestroy; override;
  end;