/
dimferon
/
AstrobloQ
Обзор
Документация
Войти
/
dimferon
/
AstrobloQ
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
source/bio/fbIntro.pas
63 строки
1 KB
glscene
Included sources and data
09 мар 2024, 14:34
09 мар 2024, 14:34
8c41b42
Код
Авторство
О чём код?
unit fbIntro; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons, Vcl.ComCtrls; type TFormIntro = class(TForm) Panel1: TPanel; Panel2: TPanel; Panel3: TPanel; Panel4: TPanel; btnRun: TBitBtn; Panel5: TPanel; redStats: TRichEdit; redIntro: TRichEdit; procedure btnRunClick(Sender: TObject); procedure FormShow(Sender: TObject); private public Monitors: integer; end; var FormIntro: TFormIntro; implementation {$R *.DFM} procedure TFormIntro.FormShow(Sender: TObject); begin redStats.Clear; redStats.Lines.Add('system stats'); redStats.Lines.Add(' monitors = ' + IntToStr(Monitors)); if Monitors > 1 then redStats.Lines.Add(' multimonitor support enabled') else redStats.Lines.Add(' multimonitor support disabled'); btnRun.SetFocus; end; procedure TFormIntro.btnRunClick(Sender: TObject); begin Close; end; end.