Delphi RCData 修改例子

中文化時修改 Delphi 程式其實比較修改其他語言編寫的程式更具彈性,
只要符合 Delphi RCdata 資源格式、合法的元件屬性,幾乎可以沒有
限制的加入、擴展、變更來達到執行時要求或修正顯示效果.

在中文化時如果遇上字體無法修改顯示標準大小時,我們是只要在
Caption 下加入字體定議就可以輕易解決了顯示的問題.

總之 Delphi RCdata 容許修改範圍極廣,相對比較其他語言編寫的程
式就更加優勝.

下面例子正如題目所說自然並非是翻譯 Delphi RCdata 中文的修改,
而是 Delphi RCdata 資源內元件修改的事例.

________________________________________________________

( 1 ) Delphi 字體大小修改

修改 eXeScope.exe AboutBox 的「Label 字串」顯示字體例子 :

原來元件 :

object Label4: TLabel
Left = 48
Top = 80
Width = 515
Height = 12
Caption = '此共享軟體版祇限評估試用二星期，'
end

加入修改 :

Object Label4: TLabel
Left = 48
Top = 80
Width = 515
Height = 12
Caption = '此共享軟體版祇限評估試用二星期，'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '新細明體'
Font.Style = []
end
_____________________________________________________

( 2 ) Delphi 對話框字體大小例子

2020.exe 「Dialog 字串」顯示字體例子 ::

原來元件 :

object CropPropsDlg: TCropPropsDlg
Left = 227
Top = 162
BorderStyle = bsDialog
Caption = '選取屬性'
ClientHeight = 266
ClientWidth = 313
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13

加入修改 :

object CropPropsDlg: TCropPropsDlg
Left = 227
Top = 162
BorderStyle = bsDialog
Caption = '選取屬性'
ClientHeight = 266
ClientWidth = 313
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '新細明體'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
____________________________________________________

( 3 ) Delphi 選單修改例子

eXeScope.exe 的選單 ( Menu 關於) 顯示例子 :

object About1: TMenuItem
Caption = '關於(&A)'
OnClick = About1Click <-- 正常顯示
end

object MenuVer: TMenuItem
Caption = '關於 eXeScope(&A)...'
Enabled = True <-----------「關於」關閉對話框
end

object About1: TMenuItem
Caption = '關於(&A)'
Enabled = False <----------- 蝕刻「關於」關閉對話框
end

object About1: TMenuItem
Caption = '關於(&A)'
Visible = False <------------ 隱藏「關於」關閉對話框
end
______________________________________________________

[貝斯特]

謝謝你的教學