[Sem]

'Support' wrote:

Постараюсь исправить в следующем релизе.

Спасибо. Будем ждать =)

[Sem]

'Support' wrote:

Эту переменную можно редактировать, попробуйте.

К сожалению у меня только sMonthCalendar.dcu

[Sem]

'Support' wrote:

Можно, строковая переменная объявлена в модуле sMonthCalendar, называется s_Today 🙂

Ну я имел ввиду свойство, которое можно было бы редактировать, т.е. свойство компонента. Или например в файл sStrings.rc

[Sem]

'Support' wrote:

Эта надпись берется из comctl32.dll текущей системы и, по идее, должна быть одинакова и в run-time и в design-time.

Видимо по какой-то причине не читается надпись на Вашей системе, единственная идея которая приходит в голову на данный момент – возможно у среды Delphi и у программы различные настройки безопасности.

Возможно система как-то блокирует доступ к ресурсам comctl32.dll для Вашей программы?

Я запускал программу еще на 2-х машинах. На одной Windows XP – там все нормально, надпись русская. На другой Windows 7 32-х разрядная, там тоже что и у меня, пишет today. У меня Windows 7 x64.

Может возможно реализовать эту надпись в виде свойства?

[Sem]

'Feg16' wrote:

Ээ… вопрос непонятен… что за кнопка “сегодняшняя дата”? Это в календаре? Если в календаре – то для D7, XP баг не подтверждаю. Выложите DFM код своего календаря или лучше всей формы

Код формы

Code:

object frmShellMain: TfrmShellMain
Tag = 100
Left = 212
Top = 80
Width = 1220
Height = 781
Hint = #1043#1083#1072#1074#1085#1072#1103' '#1092#1086#1088#1084#1072' '#1086#1073#1086#1083#1086#1095#1082#1080
Align = alClient
BorderIcons = [biSystemMenu, biMinimize]
Caption = #1054#1073#1086#1083#1086#1095#1082#1072
Color = clBtnFace
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poDefault
ShowHint = True
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnPaint = FormPaint
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PanelAll: TPanel
Left = 0
Top = 49
Width = 1204
Height = 655
Align = alClient
BevelOuter = bvNone
Caption = #1050#1072#1083#1077#1085#1076#1072#1088#1100
TabOrder = 2
object Splitter1: TSplitter
Left = 249
Top = 0
Height = 655
end
object PanelLeft: TPanel
Left = 0
Top = 0
Width = 249
Height = 655
Align = alLeft
Caption = 'PanelLeft'
TabOrder = 0
object Splitter2: TSplitter
Left = 1
Top = 217
Width = 247
Height = 3
Cursor = crVSplit
Align = alTop
end
object TasksPanel: TPanel
Left = 1
Top = 281
Width = 247
Height = 373
Align = alClient
BevelOuter = bvNone
Caption = 'TasksPanel'
TabOrder = 0
object Splitter4: TSplitter
Left = 0
Top = 0
Width = 247
Height = 3
Cursor = crVSplit
Align = alTop
end
object vpTasksList1: TVpTaskList
Left = 0
Top = 3
Width = 247
Height = 370
ShowHint = True
DataStore = vpDataStore
ControlLink = vpcntrlnk1
Color = clWindow
ParentShowHint = False
Align = alClient
TabStop = True
TabOrder = 0
ReadOnly = True
DisplayOptions.CheckBGColor = clWindow
DisplayOptions.CheckColor = cl3DDkShadow
DisplayOptions.CheckStyle = csCheck
DisplayOptions.DueDateFormat = 'dd.MM.yyyy'
DisplayOptions.ShowCompletedTasks = False
DisplayOptions.ShowAll = False
DisplayOptions.ShowDueDate = True
DisplayOptions.OverdueColor = clRed
DisplayOptions.NormalColor = clBlack
DisplayOptions.CompletedColor = clGray
LineColor = clGray
MaxVisibleTasks = 250
TaskHeadAttributes.Color = clSilver
TaskHeadAttributes.Font.Charset = DEFAULT_CHARSET
TaskHeadAttributes.Font.Color = clWindowText
TaskHeadAttributes.Font.Height = -11
TaskHeadAttributes.Font.Name = 'MS Sans Serif'
TaskHeadAttributes.Font.Style = []
DrawingStyle = dsFlat
ShowResourceName = False
OnTaskClick = vpTaskskListOnTaskClick
OnTaskDblClick = vpTaskskListOnTaskDblClick
OnTaskRMouseDown = vpTasksList1TaskRMouseDown
end
end
object PageControl1: TPageControl
Tag = 101
Left = 1
Top = 1
Width = 247
Height = 216
Hint = #1052#1080#1085#1080#1082#1072#1083#1077#1085#1076#1072#1088#1100
ActivePage = TabSheet1
Align = alTop
TabOrder = 1
object TabSheet1: TTabSheet
Caption = #1044#1072#1090#1072
object vpCalendar: TVpCalendar
Left = 0
Top = 0
Width = 239
Height = 188
DataStore = vpDataStore
ControlLink = vpcntrlnk1
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Align = alClient
BorderStyle = bsNone
Colors.ActiveDay = clRed
Colors.ColorScheme = cscalCustom
Colors.DayNames = clMaroon
Colors.Days = clBlack
Colors.InactiveDays = clGray
Colors.MonthAndYear = clBlue
Colors.Weekend = clRed
Colors.EventDays = clBlack
DateFormat = dfLong
DayNameWidth = 3
Options = [cdoShortNames, cdoShowYear, cdoShowRevert, cdoShowToday, cdoShowNavBtns, cdoHighlightSat, cdoHighlightSun]
ParentCtl3D = False
ReadOnly = False
TabOrder = 0
TabStop = True
WantDblClicks = True
WeekStarts = dtMonday
OnChange = vpCalendarChange
end
object smnthclndr1: TsMonthCalendar
Left = 0
Top = 0
Width = 239
Height = 188
Align = alClient
BevelWidth = 1
BorderWidth = 3
Caption = ' '
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
SkinData.SkinSection = 'PANEL'
OnChange = smnthclndr1Change
StartOfWeek = dowMonday
ShowTodayBtn = True
Weekends = [dowSaturday, dowSunday]
end
end
object TabSheet2: TTabSheet
Tag = 110
Caption = #1050#1072#1083#1077#1085#1076#1072#1088#1080
ImageIndex = 1
object chklstCalendars: TCheckListBox
Tag = 102
Left = 0
Top = 0
Width = 239
Height = 188
Hint = #1057#1087#1080#1089#1086#1082' '#1082#1072#1083#1077#1085#1076#1072#1088#1077#1081
OnClickCheck = chklstCalendarsClickCheck
Align = alClient
ItemHeight = 13
Items.Strings = (
#1052#1086#1081' '#1082#1072#1083#1077#1085#1076#1072#1088#1100
#1054#1073#1097#1080#1081)
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = chklstCalendarsClick
end
end
end
object Panel1: TPanel
Tag = 103
Left = 1
Top = 220
Width = 247
Height = 61
Hint = #1060#1080#1083#1100#1090#1088' '#1089#1086#1073#1099#1090#1080#1081
Align = alTop
TabOrder = 2
object chkShowEvents: TCheckBox
Tag = 104
Left = 8
Top = 8
Width = 73
Height = 17
Caption = #1057#1086#1073#1099#1090#1080#1103
Checked = True
State = cbChecked
TabOrder = 0
OnClick = chkShowEventsClick
end
object chkShowTasks: TCheckBox
Tag = 105
Left = 88
Top = 8
Width = 57
Height = 17
Caption = #1047#1072#1076#1072#1095#1080
Checked = True
State = cbChecked
TabOrder = 1
OnClick = chkShowTasksClick
end
object chkShowDeleted: TCheckBox
Tag = 106
Left = 152
Top = 8
Width = 97
Height = 17
Caption = #1059#1076#1072#1083#1077#1085#1085#1099#1077
TabOrder = 2
Visible = False
OnClick = chkShowDeletedClick
end
object cbbCategoryFilter: TComboBox
Tag = 107
Left = 8
Top = 32
Width = 153
Height = 21
Hint = #1050#1072#1090#1077#1075#1086#1088#1080#1103
ItemHeight = 13
ParentShowHint = False
ShowHint = True
TabOrder = 3
Text = 'cbbCategoryFilter'
OnChange = cbbCategoryFilterChange
OnClick = cbbCategoryFilterClick
OnKeyDown = cbbCategoryFilterKeyDown
OnMeasureItem = cbbCategoryFilterMeasureItem
end
end
end
object PanelRight: TPanel
Left = 252
Top = 0
Width = 952
Height = 655
Align = alClient
BevelOuter = bvNone
Caption = 'PanelRight'
TabOrder = 1
object Splitter3: TSplitter
Left = 0
Top = 0
Width = 952
Height = 3
Cursor = crVSplit
Align = alTop
end
object MonthViewPanel: TPanel
Left = 0
Top = 3
Width = 952
Height = 652
Align = alClient
Caption = 'MonthViewPanel'
TabOrder = 0
object vpMonthView: TVpMonthView
Tag = 99
Left = 1
Top = 1
Width = 950
Height = 650
DataStore = vpDataStore
ControlLink = vpcntrlnk1
Color = clWindow
Ctl3D = False
Align = alClient
TabStop = True
TabOrder = 0
KBNavigation = True
DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Color = clBtnFace
DayHeadAttributes.Font.Charset = DEFAULT_CHARSET
DayHeadAttributes.Font.Color = clWindowText
DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma'
DayHeadAttributes.Font.Style = []
DayNameStyle = dsShort
DayNumberFont.Charset = DEFAULT_CHARSET
DayNumberFont.Color = clWindowText
DayNumberFont.Height = -11
DayNumberFont.Name = 'MS Sans Serif'
DayNumberFont.Style = []
DrawingStyle = dsFlat
EventDayStyle = []
EventFont.Charset = DEFAULT_CHARSET
EventFont.Color = clWindowText
EventFont.Height = -11
EventFont.Name = 'MS Sans Serif'
EventFont.Style = [fsBold]
LineColor = clGray
TimeFormat = tf24Hour
OffDayColor = clSilver
RightClickChangeDate = False
SelectedDayColor = clRed
ShowEvents = True
ShowTasks = True
ShowEventTime = False
WeekStartsOn = dtMonday
OnEventClick = vpMonthViewEventClick
OnEventDblClick = vpMonthViewEventDblClick
OnMonthChanged = vpMonthViewMonthChanged
OnDateChanged = vpMonthViewDateChanged
EventMenuItemOnClick = vpMonthViewEventMenuItemOnClick
end
end
end
end
object ToolBar: TsToolBar
Tag = 116
Left = 0
Top = 0
Width = 1204
Height = 24
Hint = #1055#1080#1082#1090#1086#1075#1088#1072#1084#1084#1099
AutoSize = True
ButtonWidth = 26
Ctl3D = False
Flat = True
Images = ImageList1
TabOrder = 0
Transparent = False
SkinData.SkinSection = 'TOOLBAR'
object btnShowStaffEditor: TToolButton
Tag = 111
Left = 0
Top = 0
Hint = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
ImageIndex = 3
ParentShowHint = False
ShowHint = True
OnClick = btnShowStaffEditorClick
OnMouseUp = ToolbtnMouseUp
end
object btnShowTotalInfViewer: TToolButton
Tag = 112
Left = 26
Top = 0
Hint = #1056#1072#1073#1086#1090#1072' '#1089' '#1082#1083#1080#1077#1085#1090#1072#1084#1080
ImageIndex = 4
ParentShowHint = False
ShowHint = True
OnClick = btnShowTotalInfViewerClick
OnMouseUp = ToolbtnMouseUp
end
object btnShowFirmsEditor: TToolButton
Tag = 113
Left = 52
Top = 0
Hint = #1053#1072#1096#1080' '#1092#1080#1088#1084#1099
ImageIndex = 10
ParentShowHint = False
ShowHint = True
OnClick = btnShowFirmsEditorClick
OnMouseUp = ToolbtnMouseUp
end
object btnShowEmailClient: TToolButton
Tag = 114
Left = 78
Top = 0
Hint = #1054#1090#1087#1088#1072#1074#1080#1090#1100' '#1089#1086#1086#1073#1097#1077#1085#1080#1077
ImageIndex = 0
ParentShowHint = False
ShowHint = True
OnClick = btnShowEmailClientClick
OnMouseUp = ToolbtnMouseUp
end
object btnMsgsHistory: TToolButton
Tag = 125
Left = 104
Top = 0
Hint = #1048#1089#1090#1086#1088#1080#1103' '#1089#1086#1086#1073#1097#1077#1085#1080#1081
ImageIndex = 8
OnClick = btnMsgsHistoryClick
end
object btnShowLogViewer: TToolButton
Tag = 136
Left = 130
Top = 0
Hint = #1055#1088#1086#1089#1084#1086#1090#1088' '#1076#1077#1081#1089#1090#1074#1080#1081' '#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
Caption = #1055#1088#1086#1089#1084#1086#1090#1088' '#1076#1077#1081#1089#1090#1074#1080#1081' '#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
ImageIndex = 11
ParentShowHint = False
ShowHint = True
OnClick = btnShowLogViewerClick
end
object btnShowFrmLogViewer: TToolButton
Tag = 137
Left = 156
Top = 0
Hint = #1055#1088#1086#1089#1084#1086#1090#1088' '#1076#1077#1081#1089#1090#1074#1080#1081' '#1087#1086' '#1082#1083#1080#1077#1085#1090#1091
Caption = #1055#1088#1086#1089#1084#1086#1090#1088' '#1076#1077#1081#1089#1090#1074#1080#1081' '#1087#1086' '#1082#1083#1080#1077#1085#1090#1091
ImageIndex = 9
ParentShowHint = False
ShowHint = True
OnClick = btnShowFrmLogViewerClick
end
object btnShowPermissionEditor: TToolButton
Tag = 115
Left = 182
Top = 0
Hint = #1056#1077#1076#1072#1082#1090#1086#1088' '#1087#1088#1072#1074' '#1076#1086#1089#1090#1091#1087#1072
ImageIndex = 7
ParentShowHint = False
ShowHint = True
OnClick = btnShowPermissionEditorClick
end
object btnMonitor: TToolButton
Tag = 138
Left = 208
Top = 0
Hint = #1052#1086#1085#1080#1090#1086#1088#1080#1085#1075
Caption = #1052#1086#1085#1080#1090#1086#1088#1080#1085#1075
ImageIndex = 12
ParentShowHint = False
ShowHint = True
OnClick = btnMonitorClick
end
object btnGoodsMark: TToolButton
Tag = 139
Left = 234
Top = 0
Hint = #1052#1072#1088#1082#1077#1088' '#1090#1086#1074#1072#1088#1086#1074
ImageIndex = 13
OnClick = btnGoodsMarkClick
end
object btnGoodsCodes: TToolButton
Tag = 141
Left = 260
Top = 0
Hint = #1056#1077#1076#1072#1082#1090#1086#1088' '#1090#1086#1074#1072#1088#1086#1074
Caption = 'btnGoodsCodes'
ImageIndex = 9
ParentShowHint = False
ShowHint = True
OnClick = btnGoodsCodesClick
end
object btnArbitrage: TToolButton
Tag = 140
Left = 286
Top = 0
Hint = #1040#1088#1073#1080#1090#1088#1072#1078
Visible = False
OnClick = btnArbitrageClick
end
object btnSplitter1: TToolButton
Left = 312
Top = 0
Width = 23
Caption = 'btnSplitter1'
ImageIndex = 3
Style = tbsSeparator
end
object btnReregUser: TToolButton
Left = 335
Top = 0
Hint = #1057#1084#1077#1085#1080#1090#1100' '#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
ImageIndex = 6
ParentShowHint = False
ShowHint = True
OnClick = btnReregUserClick
OnMouseUp = ToolbtnMouseUp
end
end
object tlbIndication: TsToolBar
Left = 0
Top = 24
Width = 1204
Height = 25
Caption = 'tlbIndication'
Constraints.MinHeight = 25
Images = ImageList3
TabOrder = 1
Transparent = False
SkinData.SkinSection = 'TOOLBAR'
end
object stsbr1: TsStatusBar
Left = 0
Top = 704
Width = 1204
Height = 19
Panels =
SkinData.SkinSection = 'STATUSBAR'
object lblStatus: TsLabel
Left = 0
Top = 0
Width = 300
Height = 19
Cursor = crHandPoint
Align = alLeft
Alignment = taCenter
AutoSize = False
SkinSection = 'PANEL'
Caption = #1043#1086#1090#1086#1074
ParentFont = False
Layout = tlCenter
Font.Charset = RUSSIAN_CHARSET
Font.Color = 4276545
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
UseSkinColor = False
end
end
object MainMenu1: TMainMenu
Tag = 117
Left = 896
Top = 88
object mnFile: TMenuItem
Tag = 118
Caption = #1060#1072#1081#1083
object N2: TMenuItem
Tag = 119
Caption = #1053#1086#1074#1086#1077'…'
Hint = #1053#1086#1074#1086#1077'…'
object N5: TMenuItem
Tag = 120
Caption = #1057#1086#1086#1073#1097#1077#1085#1080#1077
OnClick = N5Click
end
object N6: TMenuItem
Tag = 121
Caption = #1057#1086#1073#1099#1090#1080#1077'/'#1047#1072#1076#1072#1095#1072
OnClick = N6Click
end
object N3: TMenuItem
Tag = 124
Caption = #1047#1072#1076#1072#1085#1080#1077
object N4: TMenuItem
Caption = #1048#1079#1075#1086#1090#1086#1074#1080#1090#1100
object N14: TMenuItem
Caption = #1048#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1086#1077
OnClick = N14Click
end
object N15: TMenuItem
Caption = #1057#1074#1086#1076#1085#1086#1077
OnClick = N15Click
end
end
object N7: TMenuItem
Caption = #1054#1090#1075#1088#1091#1079#1080#1090#1100
object N9: TMenuItem
Caption = #1048#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1086#1077
end
object N10: TMenuItem
Caption = #1057#1074#1086#1076#1085#1086#1077
end
end
object N11: TMenuItem
Caption = #1042#1099#1089#1090#1072#1074#1080#1090#1100' '#1089#1095#1077#1090
end
end
object N8: TMenuItem
Tag = 123
Caption = #1047#1072#1103#1074#1082#1072
object N12: TMenuItem
Caption = #1047#1072#1082#1072#1079
OnClick = N12Click
end
object N13: TMenuItem
Caption = #1055#1086#1076#1090#1074#1077#1088#1078#1076#1077#1085#1080#1077
OnClick = N13Click
end
end
end
object mniExit: TMenuItem
Tag = 126
Caption = #1042#1099#1093#1086#1076
OnClick = mniExitClick
end
end
object mnView: TMenuItem
Tag = 127
Caption = #1042#1080#1076
object mnMinimizeWindows: TMenuItem
Tag = 128
Caption = #1057#1074#1077#1088#1085#1091#1090#1100' '#1074#1089#1077' '#1086#1082#1085#1072
end
object mnRestoreWindows: TMenuItem
Tag = 129
Caption = #1042#1086#1089#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1074#1089#1077' '#1086#1082#1085#1072
end
object N16: TMenuItem
Caption = #1057#1082#1080#1085#1099
object Skn1: TMenuItem
Caption = '1'
GroupIndex = 1
RadioItem = True
OnClick = Skn1Click
end
object Skn2: TMenuItem
Caption = '2'
GroupIndex = 1
RadioItem = True
OnClick = Skn2Click
end
object Skn3: TMenuItem
Caption = '3'
GroupIndex = 1
RadioItem = True
OnClick = Skn3Click
end
end
object N1: TMenuItem
Tag = 130
Caption = #1042#1082#1083'./'#1074#1099#1082#1083'.'#1089#1082#1080#1085
OnClick = N1Click
end
end
object mnService: TMenuItem
Tag = 131
Caption = #1057#1077#1088#1074#1080#1089
object mnOptions: TMenuItem
Tag = 132
Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1080
OnClick = mnOptionsClick
end
end
object mnHelp: TMenuItem
Tag = 133
Caption = #1057#1087#1088#1072#1074#1082#1072
object mnDPCHelp: TMenuItem
Tag = 134
Caption = #1055#1086#1084#1086#1096#1100
end
object mnDPCAbout: TMenuItem
Tag = 135
Caption = #1054' '#1087#1088#1086#1075#1088#1072#1084#1084#1077
OnClick = mnDPCAboutClick
end
end
end
object vpDataStore: TVpSQLMEMDataStore
AutoConnect = True
AutoCreate = True
CategoryColorMap.Category0.Color = clNavy
CategoryColorMap.Category0.Description = 'Category 0'
CategoryColorMap.Category1.Color = clRed
CategoryColorMap.Category1.Description = 'Category 1'
CategoryColorMap.Category2.Color = clYellow
CategoryColorMap.Category2.Description = 'Category 2'
CategoryColorMap.Category3.Color = clLime
CategoryColorMap.Category3.Description = 'Category 3'
CategoryColorMap.Category4.Color = clPurple
CategoryColorMap.Category4.Description = 'Category 4'
CategoryColorMap.Category5.Color = clTeal
CategoryColorMap.Category5.Description = 'Category 5'
CategoryColorMap.Category6.Color = clFuchsia
CategoryColorMap.Category6.Description = 'Category 6'
CategoryColorMap.Category7.Color = clOlive
CategoryColorMap.Category7.Description = 'Category 7'
CategoryColorMap.Category8.Color = clAqua
CategoryColorMap.Category8.Description = 'Category 8'
CategoryColorMap.Category9.Color = clMaroon
CategoryColorMap.Category9.Description = 'Category 9'
EnableEventTimer = False
PlayEventSounds = False
OnDateChanged = vpDataStoreDateChanged
DayBuffer = 31
ResourceID = 0
ReadOnly = True
Left = 532
Top = 304
end
object vpcntrlnk1: TVpControlLink
DataStore = vpDataStore
DefaultCountry = 'Russian Federation'
LocalizationFile = 'C:Delphi7MY_VCLtpvplanitsourceVpLocalize.xml'
Printer.DayStart = h_08
Printer.DayEnd = h_05
Printer.Granularity = gr30Min
Printer.MarginUnits = imAbsolutePixel
Printer.PrintFormats =
Left = 372
Top = 208
end
object tmrMonthChanged: TTimer
Enabled = False
OnTimer = tmrMonthChangedTimer
Left = 564
Top = 484
end
object xpmnfst1: TXPManifest
Left = 892
Top = 236
end
object sknmngr1: TsSkinManager
Effects.AllowGlowing = False
AnimEffects.FormShow.Active = False
AnimEffects.FormHide.Active = False
AnimEffects.Minimizing.Active = False
AnimEffects.PageChange.Active = False
AnimEffects.SkinChanging.Active = False
MenuSupport.IcoLineSkin = 'ICOLINE'
MenuSupport.ExtraLineFont.Charset = DEFAULT_CHARSET
MenuSupport.ExtraLineFont.Color = clWindowText
MenuSupport.ExtraLineFont.Height = -11
MenuSupport.ExtraLineFont.Name = 'Tahoma'
MenuSupport.ExtraLineFont.Style = []
SkinDirectory = 'c:Skins'
SkinName = 'Neutral4 (internal)'
SkinInfo = '7'
ThirdParty.ThirdEdits =
' '#13#10'TEdit'#13#10'TMemo'#13#10'TMaskEdit'#13#10'TSpinEdit'#13#10'TLabeledEdit'#13#10'THotKey'#13#10'TL' +
'istBox'#13#10'TCheckListBox'#13#10'TRichEdit'#13#10'TDateTimePicker'#13#10'TCategoryButt' +
'ons'#13#10'TFileListBox'#13#10
ThirdParty.ThirdButtons = 'TButton'#13#10
ThirdParty.ThirdBitBtns = ' '#13#10'TBitBtn'#13#10
ThirdParty.ThirdCheckBoxes = ' '#13#10'TCheckBox'#13#10'TRadioButton'#13#10'TGroupButton'#13#10
ThirdParty.ThirdGroupBoxes = ' '#13#10'TGroupBox'#13#10'TRadioGroup'#13#10
ThirdParty.ThirdListViews = ' '#13#10'TListView'#13#10
ThirdParty.ThirdPanels = ' '#13#10'TPanel'#13#10'TGridPanel'#13#10
ThirdParty.ThirdGrids = ' '#13#10'TStringGrid'#13#10'TDrawGrid'#13#10'TValueListEditor'#13#10
ThirdParty.ThirdTreeViews = ' '#13#10'TTreeView'#13#10
ThirdParty.ThirdComboBoxes = ' '#13#10'TComboBox'#13#10'TComboBoxEx'#13#10'TColorBox'#13#10'TComboboxEx'#13#10
ThirdParty.ThirdWWEdits = ' '#13#10
ThirdParty.ThirdVirtualTrees = ' '#13#10
ThirdParty.ThirdGridEh = ' '#13#10
ThirdParty.ThirdPageControl = ' '#13#10'TPageControl'#13#10
ThirdParty.ThirdTabControl = ' '#13#10'TTabControl'#13#10
ThirdParty.ThirdToolBar = ' '#13#10'TToolBar'#13#10
ThirdParty.ThirdStatusBar = ' '#13#10'TStatusBar'#13#10
ThirdParty.ThirdSpeedButton = ' '#13#10'TSpeedButton'#13#10
Left = 772
Top = 132
end
object sknprvdr1: TsSkinProvider
AddedTitle.Font.Charset = DEFAULT_CHARSET
AddedTitle.Font.Color = clNone
AddedTitle.Font.Height = -11
AddedTitle.Font.Name = 'Tahoma'
AddedTitle.Font.Style = []
AllowExtBorders = False
AllowBlendOnMoving = False
SkinData.SkinSection = 'FORM'
TitleButtons =
Left = 748
Top = 252
end
end

Так же прикладываю скриншоты, первый когда программа запущена, второй когда форма редактируется в ide.

[Author]

Posts