февраля 21, 2010

Лесенка

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


  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;


1 комментарий:

crystalbit комментирует...

Хах, ещё один фактор красивого кода. Порой такое в книгах встречаю :)

Отправить комментарий

Постоянные читатели

Обо мне

Моя фотография
Мой e-mail: vitek_03(at)mail(dot)ru