اذا تكرمتم كيف ألغي fullscreen وضبط العناصر مع الشاشة
#1
السلام عليكم ورحمة الله وبركاته


قمت بإلغاء fullscreen باستخدام هذا الكود







PHP كود :
BorderIcons = [biSystemMenubiMinimizebiMaximize]
  BorderStyle bsSizeable 




ولكن المشكلة بعض العناصر ليست في مكانها بشكل مناسب




فهل يمكن مراجعة هذا الكود لضبط مكان وحجم العناصر مع الشاشة




هذا هو الكود




PHP كود :
object frmMainTfrmMain
  Left 
266
  Top 
146
  BiDiMode 
bdRightToLeft
  BorderIcons 
= [biSystemMenubiMinimizebiMaximize]
  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 frmHidTfrmHid
  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 frmCDTfrmCD
  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 
الرد
#2
وعليكم السلام
جرب تضبط خصائص المكونات على الفورم باستخدام
Anchors
الرد
#3
(06-09-2019, 06:49 PM)samir28 كتب : وعليكم السلام
جرب تضبط خصائص المكونات على الفورم باستخدام
Anchors
للأسف لا أملك مصدر الملف لكن اقوم بتعديل ملف exe
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف