ParamForm.dfm - master - Alex-Z/E-Library

ParamForm.dfm
107 строк3 KB
Алексей Замула
create: LibraryForm.dfm, LibraryForm.pas, ParamForm.dfm, ParamForm.pas
19 май 2026, 20:03
19 май 2026, 20:039f9479f
object FParam: TFParam
  Left = 0
  Top = 0
  BorderStyle = bsNone
  Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1086#1090#1086#1073#1088#1072#1078#1077#1085#1080#1103' '#1082#1085#1080#1075#1080
  ClientHeight = 400
  ClientWidth = 700
  Color = clWindow
  Ctl3D = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poMainFormCenter
  OnCreate = FormCreate
  TextHeight = 15
  object SysPanel: TPanel
    AlignWithMargins = True
    Left = 0
    Top = 0
    Width = 700
    Height = 32
    Margins.Left = 0
    Margins.Top = 0
    Margins.Right = 0
    Margins.Bottom = 0
    Align = alTop
    BevelOuter = bvNone
    Caption = #1044#1086#1084#1072#1096#1085#1103#1103' '#1101#1083#1077#1082#1090#1088#1086#1085#1085#1072#1103' '#1073#1080#1073#1083#1080#1086#1090#1077#1082#1072
    Color = clGrayText
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    ParentBackground = False
    ParentFont = False
    ShowCaption = False
    TabOrder = 0
    ExplicitWidth = 624
    object FormIcon: TImage
      Left = 0
      Top = 0
      Width = 32
      Height = 32
      Align = alLeft
      Stretch = True
      Transparent = True
    end
    object iExit: TImage
      Left = 668
      Top = 0
      Width = 32
      Height = 32
      Hint = #1047#1072#1082#1088#1099#1090#1100' '#1087#1088#1086#1075#1088#1072#1084#1084#1091
      Align = alRight
      ParentShowHint = False
      ShowHint = True
      OnClick = iExitClick
      OnMouseDown = iExitMouseDown
      OnMouseEnter = iExitMouseEnter
      OnMouseLeave = iExitMouseLeave
      OnMouseUp = iExitMouseUp
      ExplicitLeft = 584
    end
    object iMin: TImage
      Left = 636
      Top = 0
      Width = 32
      Height = 32
      Hint = #1057#1074#1077#1088#1085#1091#1090#1100
      Align = alRight
      ParentShowHint = False
      ShowHint = True
      OnClick = iMinClick
      OnMouseDown = iMinMouseDown
      OnMouseEnter = iMinMouseEnter
      OnMouseLeave = iMinMouseLeave
      OnMouseUp = iMinMouseUp
      ExplicitLeft = 544
    end
    object lTitle: TLabel
      Left = 32
      Top = 0
      Width = 604
      Height = 32
      Align = alClient
      Alignment = taCenter
      Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1086#1090#1086#1073#1088#1072#1078#1077#1085#1080#1103' '#1082#1085#1080#1075#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
      Layout = tlCenter
      WordWrap = True
      OnMouseDown = lTitleMouseDown
      OnMouseMove = lTitleMouseMove
      OnMouseUp = lTitleMouseUp
      ExplicitLeft = 40
      ExplicitWidth = 232
      ExplicitHeight = 20
    end
  end
end