+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اذا تكرمتم كيف ألغي fullscreen وضبط العناصر مع الشاشة (/showthread.php?tid=10432)
اذا تكرمتم كيف ألغي fullscreen وضبط العناصر مع الشاشة - kofa - 05-09-2019
السلام عليكم ورحمة الله وبركاته
قمت بإلغاء 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
RE: اذا تكرمتم كيف ألغي fullscreen وضبط العناصر مع الشاشة - samir28 - 06-09-2019
وعليكم السلام
جرب تضبط خصائص المكونات على الفورم باستخدام
Anchors
RE: اذا تكرمتم كيف ألغي fullscreen وضبط العناصر مع الشاشة - kofa - 07-09-2019
(06-09-2019, 06:49 PM)samir28 كتب : وعليكم السلامللأسف لا أملك مصدر الملف لكن اقوم بتعديل ملف exe
جرب تضبط خصائص المكونات على الفورم باستخدام
Anchors