05-09-2019, 08:06 PM
السلام عليكم ورحمة الله وبركاته
قمت بإلغاء fullscreen باستخدام هذا الكود
ولكن المشكلة بعض العناصر ليست في مكانها بشكل مناسب
فهل يمكن مراجعة هذا الكود لضبط مكان وحجم العناصر مع الشاشة
هذا هو الكود
قمت بإلغاء fullscreen باستخدام هذا الكود
PHP كود :
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
BorderStyle = bsSizeable
ولكن المشكلة بعض العناصر ليست في مكانها بشكل مناسب
فهل يمكن مراجعة هذا الكود لضبط مكان وحجم العناصر مع الشاشة
هذا هو الكود
PHP كود :
object frmMain: TfrmMain
Left = 266
Top = 146
BiDiMode = bdRightToLeft
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
BorderStyle = bsSizeable
Caption = #1605#1583#1575#1585#1587' '#1571#1605#1580#1575#1583' '#1602#1585#1591#1576#1577' '
ClientHeight = 431
ClientWidth = 490
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
ParentBiDiMode = False
WindowState = wsMaximized
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 490
Height = 431
Align = alClient
BevelOuter = bvNone
Color = clGreen
TabOrder = 0
OnResize = Panel1Resize
object FlashPlayerControl1: TFlashPlayerControl
Left = 9
Top = 55
Width = 202
Height = 164
TabStop = False
TabOrder = 0
OnFSCommand = FlashPlayerControl1FSCommand
FrameNum = -1
Playing = False
Quality = 1
ScaleMode = 0
AlignMode = 0
BackgroundColor = -1
Loop = True
WMode = 'Window'
Menu = True
Scale = 'ShowAll'
DeviceFont = False
EmbedMovie = False
Quality2 = 'High'
AllowScriptAccess = 'always'
end
object FlashPlayerControl2: TFlashPlayerControl
Left = 271
Top = 65
Width = 193
Height = 161
TabStop = False
TabOrder = 1
Visible = False
OnFSCommand = FlashPlayerControl1FSCommand
FrameNum = -1
Playing = False
Quality = 1
ScaleMode = 0
AlignMode = 0
BackgroundColor = -1
Loop = True
WMode = 'Window'
Menu = True
Scale = 'ShowAll'
DeviceFont = False
EmbedMovie = False
Quality2 = 'High'
AllowScriptAccess = 'always'
end
end
object ApplicationEvents1: TApplicationEvents
OnMessage = ApplicationEvents1Message
Left = 104
Top = 17
end
end
PHP كود :
object frmHid: TfrmHid
Left = 244
Top = 187
BiDiMode = bdRightToLeft
BorderStyle = bsNone
Caption = #1605#1583#1575#1585#1587' '#1571#1605#1580#1575#1583' '#1602#1585#1591#1576#1577' '
ClientHeight = 304
ClientWidth = 415
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
ParentBiDiMode = False
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object imgBG: TImage
Left = 0
Top = 0
Width = 400
Height = 300
AutoSize = True
end
object tmrHid: TTimer
Enabled = False
Interval = 10000
OnTimer = tmrHidTimer
Left = 420
Top = 206
end
end
PHP كود :
object frmCD: TfrmCD
Left = 372
Top = 288
BiDiMode = bdRightToLeft
BorderStyle = bsNone
Caption = #1605#1583#1575#1585#1587' '#1571#1605#1580#1575#1583' '#1602#1585#1591#1576#1577' '
ClientHeight = 143
ClientWidth = 345
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
ParentBiDiMode = False
Position = poScreenCenter
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object pnlCD: TPanel
Left = 0
Top = 0
Width = 344
Height = 139
BevelInner = bvRaised
BevelOuter = bvNone
TabOrder = 0
object lblTitle: TLabel
Left = 1
Top = 2
Width = 341
Height = 19
Alignment = taCenter
AutoSize = False
Color = clHighlight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Windows UI'
Font.Style = []
ParentColor = False
ParentFont = False
end
object lblTitle2: TLabel
Left = 314
Top = 5
Width = 30
Height = 13
BiDiMode = bdRightToLeft
Caption = '?????'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
Transparent = True
end
object lblMsgL1: TLabel
Left = 26
Top = 47
Width = 292
Height = 20
Alignment = taCenter
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lblMsgL2: TLabel
Left = 26
Top = 67
Width = 292
Height = 20
Alignment = taCenter
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblMsgL3: TLabel
Left = 18
Top = 89
Width = 306
Height = 17
AutoSize = False
Visible = False
end
object btnOK: TButton
Left = 201
Top = 107
Width = 49
Height = 21
Caption = '&?????'
TabOrder = 0
OnClick = btnOKClick
end
object btnCancel: TButton
Left = 94
Top = 107
Width = 49
Height = 21
Caption = '??&???'
TabOrder = 1
OnClick = btnCancelClick
end
end
end