Ahell

Forum Replies Created

Viewing 20 posts - 21 through 40 (of 71 total)
1 2 3 4
  • Author
    Posts
  • April 7, 2011 at 2:33 pm in reply to: Свой предпросмотр скинов, как это зделать? #45377
    Ahell
    Participant

    Благодарен=)

    April 7, 2011 at 12:43 pm in reply to: Свой предпросмотр скинов, как это зделать? #45374
    Ahell
    Participant

    Вот что у меня получилось, но форма preview не скинируется!

    Вроде всё правильно делаю=)

    Но при изменении комбо бокса форма просто перерисовывается(моргает) но не скинируеся.

    April 6, 2011 at 8:31 pm in reply to: Свой предпросмотр скинов, как это зделать? #45357
    Ahell
    Participant

    По поводу работы в Run-time ничего не понял, точнее понял но что-то не рабтает.

    Code:

    procedure CreatePreview(SkinName:AnsiString);
    var
    PForm:TPreviewForm;
    begin
    PForm:=TPreviewForm.Create(nil);
    PForm.Parent:=MainForm.SkinPreviewPanel;
    end;

    на панели форма не рисуется. Почему?

    April 3, 2011 at 11:02 am in reply to: Свой предпросмотр скинов, как это зделать? #45316
    Ahell
    Participant

    Допустим в в запущенной программе(в её SinManager'е) уже заданы свойства Saturation и HUEOffset , когда пользователь открывает SelectSkin диалог , уже использемые HUE и Saturation передаются на SknManager предпрасмотра скина и таким образом пользователь видит, как будет выглядеть скин при текущих его параметрах.

    March 23, 2011 at 3:12 pm in reply to: Свой предпросмотр скинов, как это зделать? #45239
    Ahell
    Participant

    в run-tme preview в диалоге выборе скинов не применяет текущие параметры Saturation и HueOffset SkinManager'a основного(в который передаётся выбранный скин).

    March 20, 2011 at 5:41 pm in reply to: Свой предпросмотр скинов, как это зделать? #45191
    Ahell
    Participant

    прочитал топик но много не понял. Что надо то делать? как форму в форму вставить, и потом скинами красить-то?

    March 13, 2011 at 9:17 pm in reply to: [d7,d2010] Старый баг с TsGroupBox #45153
    Ahell
    Participant

    А разве не видно, что фон sGroupBox серый а все остальное белое? Я думаю это и есть “не так”.

    February 16, 2011 at 8:30 pm in reply to: AC 7.31 баг acBUtils.pas #44931
    Ahell
    Participant

    Особенность IPB или скина

    February 8, 2011 at 1:18 pm in reply to: [AC] Баги скинов и компонентов #44809
    Ahell
    Participant

    Однозначно согласен, бета версии это удобно.

    Далее к этому было бы хорошо прикрепить и архив релизов.

    January 30, 2011 at 7:22 pm in reply to: Listview.SelectAll #44675
    Ahell
    Participant

    Спасибо, просвятил!

    January 29, 2011 at 11:40 am in reply to: Listview.SelectAll #44658
    Ahell
    Participant

    Действительно! И что удивительно что у стандартного ListView1 то же баг!

    Вот несколько переделанная демка.

    January 26, 2011 at 2:15 pm in reply to: Access Violation #44592
    Ahell
    Participant
    'Fastex' wrote:

    Проект состоит из нескольких форм. Из одной формы вызывается другая, на которой лежат кнопки TsSpeedButton на панеле. Вызывается все нормально, но если удалить любую из кнопок и попытаться вызвать вторую форму из первой, то вылетает Access Violation. С чем это может быть связанно ?

    как вариант я предлогаю поставить MadExcept, перекомпилировать проект, вызвать ошибку и узреть где она происходит.

    January 23, 2011 at 4:39 pm in reply to: Отображение хинтов в TFrame HintMagager+Frame #44562
    Ahell
    Participant

    поможет кто?

    January 20, 2011 at 5:25 am in reply to: ListView с поддержкой групп; ProgressBar с градиентом #44516
    Ahell
    Participant

    а для delphi 7 подходит компонент?

    January 12, 2011 at 1:54 pm in reply to: [AC 7.26] Баг acShellCtrls.InitSystemImageList: #44430
    Ahell
    Participant

    это будет сложно, но подобных рапортов не так уж и много было(1).

    January 9, 2011 at 8:29 am in reply to: Delphi XE – правильная установка компонента. Подскажите? #44400
    Ahell
    Participant
    'lamer811' wrote:

    Доброго времени суток.

    Подскажите пожалуйста, как установить ваш компонент в Delphi XE

    Я следовал вашей инструкции.

    Компонент установился, вкладки появились

    При компиляции проекта, появляются ошибки:

    Вопрос: Как же от них избавиться?

    P.S. Операционная система Windows 7

    рядом с файлами установка AC(*.dcu*.pas) должны быть и эти файлы которые перечислены в ошибках.

    January 8, 2011 at 12:07 pm in reply to: Локализация форм AC(SelectSkin,SelectDir) и папка Res в сборке AC #44393
    Ahell
    Participant

    хм, как я понял при вызове SelectSkin создаётся окно, а при ок или отмене, разрушается.

    Значит в OnCreaate

    присвайвай хинтам значения из ресурсов..

    January 7, 2011 at 11:34 am in reply to: [AC 7.25] Небольшое кол-во ошибок которые я выловил. #44382
    Ahell
    Participant

    Подниму старую тему. проблема с отрисовкой sStatusBar , при показе формы осталась. 😮

    [attachment=4457:Безымянный.JPG]

    Собственно sStatusBar лежит не на форме, а на TsPageControl.sTabSheet.

    DFM:

    Code:
    object SettingsPages: TsPageControl
    Left = 8
    Top = 6
    Width = 553
    Height = 327
    Hint = #1050#1086#1085#1092#1080#1075#1091#1088#1072#1094#1080#1086#1085#1085#1072#1103' '#1087#1072#1085#1077#1083#1100' '#1087#1088#1086#1075#1088#1072#1084#1084#1099
    ActivePage = OtherPage
    TabOrder = 1
    SkinData.SkinSection = 'PAGECONTROL'
    object GeneralPage: TsTabSheet
    Hint = #1057#1090#1088#1072#1085#1080#1094#1072' '#1086#1089#1085#1086#1074#1085#1099#1093' '#1087#1072#1088#1072#1084#1077#1090#1088#1086#1074' '#1087#1088#1086#1075#1088#1072#1084#1084#1099'.'
    Caption = #1054#1089#1085#1086#1074#1085#1099#1077
    SkinData.CustomColor = False
    SkinData.CustomFont = False
    object SkinsBox: TsGroupBox
    Left = 0
    Top = 80
    Width = 497
    Height = 193
    Hint = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1075#1088#1072#1092#1080#1095#1077#1089#1082#1086#1075#1086' '#1076#1074#1080#1078#1082#1072'.'
    Caption = #1064#1082#1091#1088#1082#1080':'
    TabOrder = 0
    SkinData.SkinSection = 'GROUPBOX'
    object DefSkinsSettingsBtn: TsButton
    Left = 328
    Top = 146
    Width = 161
    Height = 25
    Hint =
    #1050#1085#1086#1087#1082#1072' '#1089#1073#1088#1086#1089#1072' '#1087#1072#1088#1072#1084#1077#1090#1088#1086#1074' '#1082#1086#1085#1090#1088#1072#1089#1090#1072' '#1080' '#1094#1074#1077#1090#1072' '#1096#1082#1091#1088#1082#1080' '#1085#1072' '#1089#1090#1072#1085#1076#1072#1088#1090#1085#1099#1077 +
    ' '#1079#1085#1072#1095#1077#1085#1080#1103'.'
    Caption = #1057#1090#1072#1085#1076#1072#1088#1090#1085#1099#1077' '#1087#1072#1088#1072#1084#1077#1090#1088#1099
    Enabled = False
    TabOrder = 0
    OnClick = DefSkinsSettingsBtnClick
    SkinData.SkinSection = 'BUTTON'
    end
    object SkinHUEGr: TsGroupBox
    Left = 170
    Top = 82
    Width = 319
    Height = 61
    Caption = #1062#1074#1077#1090': '
    Enabled = False
    TabOrder = 1
    SkinData.SkinSection = 'GROUPBOX'
    object HUEPercent: TsLabel
    Left = 274
    Top = 26
    Width = 23
    Height = 16
    Caption = '0 %'
    end
    object SkinHUEBar: TsTrackBar
    Left = 8
    Top = 16
    Width = 257
    Height = 33
    Hint = #1062#1074#1077#1090' '#1074#1099#1073#1088#1072#1085#1085#1086#1081' '#1074#1072#1084#1080' '#1096#1082#1091#1088#1082#1080'.'
    Max = 360
    Frequency = 0
    TabOrder = 0
    ThumbLength = 20
    TickMarks = tmBoth
    OnChange = SkinHUEBarChange
    SkinData.SkinSection = 'TRACKBAR'
    end
    end
    object SkinSaturationGr: TsGroupBox
    Left = 170
    Top = 16
    Width = 319
    Height = 57
    Caption = #1050#1086#1085#1090#1088#1072#1089#1090': '
    Enabled = False
    TabOrder = 2
    SkinData.SkinSection = 'GROUPBOX'
    object saturationPercent: TsLabel
    Left = 274
    Top = 26
    Width = 23
    Height = 16
    Caption = '0 %'
    end
    object SkinSaturationBar: TsTrackBar
    Left = 2
    Top = 16
    Width = 251
    Height = 33
    Hint = #1050#1086#1085#1090#1088#1072#1089#1090' '#1094#1074#1077#1090#1072' '#1096#1082#1091#1088#1082#1080'.'
    Max = 100
    Min = -100
    Frequency = 0
    TabOrder = 0
    ThumbLength = 20
    TickMarks = tmBoth
    OnChange = SkinSaturationBarChange
    SkinData.SkinSection = 'TRACKBAR'
    end
    end
    object SelectSkinBtn: TsButton
    Left = 8
    Top = 48
    Width = 137
    Height = 25
    Hint =
    #1053#1072#1078#1084#1080#1090#1077' '#1095#1090#1086#1073#1099' '#1074#1099#1073#1088#1072#1090#1100' '#1086#1076#1080#1085' '#1080#1079' '#1087#1088#1077#1076#1083#1086#1078#1077#1085#1085#1099#1093' '#1074#1072#1088#1080#1072#1085#1090#1086#1074' '#1096#1082#1091#1088#1086#1082' '#1074' '#1089#1087 +
    #1080#1089#1082#1077'.'
    Caption = #1042#1099#1073#1088#1072#1090#1100'…'
    Enabled = False
    TabOrder = 3
    OnClick = SelectSkinBtnClick
    SkinData.SkinSection = 'BUTTON'
    end
    object UseSkinsChk: TsCheckBox
    Left = 8
    Top = 24
    Width = 148
    Height = 20
    Hint =
    #1055#1086#1089#1090#1072#1074#1100#1090#1077' '#1075#1072#1083#1086#1095#1082#1091' '#1095#1090#1086#1073#1099' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1090#1100' '#1089#1082#1080#1085#1099' '#1080' '#1089#1076#1077#1083#1072#1090#1100' '#1087#1088#1086#1075#1088#1072#1084#1084#1091' '#1073 +
    #1086#1083#1077#1077' '#1082#1088#1072#1089#1086#1095#1085#1086#1081'.'#13#10#1048#1083#1080' '#1091#1073#1077#1088#1080#1090#1077' '#1075#1072#1083#1086#1095#1082#1091' '#1095#1090#1086#1073#1099' '#1086#1090#1082#1083#1102#1095#1080#1090#1100' '#1089#1082#1080#1085#1080#1088#1086#1074#1072#1085#1080 +
    #1077' '#1087#1088#1086#1075#1088#1072#1084#1084#1099'.'
    Caption = #1048#1089#1087#1086#1083#1100#1079#1086#1074#1072#1090#1100' '#1096#1082#1091#1088#1082#1080
    TabOrder = 4
    OnClick = UseSkinsChkClick
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    object SkinsErrorStatusBar: TsStatusBar
    Left = 2
    Top = 172
    Width = 493
    Height = 19
    Hint = #1053#1072' '#1101#1090#1086' '#1089#1090#1086#1080#1090' '#1086#1073#1088#1072#1090#1080#1090#1100' '#1074#1085#1080#1084#1072#1085#1080#1077'…;)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    Panels = <
    item
    Alignment = taCenter
    Width = 1000
    end>
    UseSystemFont = False
    Visible = False
    SkinData.SkinSection = 'STATUSBAR'
    end
    end
    object LangBox: TsGroupBox
    Left = 4
    Top = 4
    Width = 273
    Height = 73
    Hint = #1055#1072#1085#1077#1083#1100' '#1074#1099#1073#1086#1088#1072' '#1103#1079#1099#1082#1072' '#1087#1088#1086#1075#1088#1072#1084#1084#1099'.'
    Caption = #1071#1079#1099#1082':'
    TabOrder = 1
    SkinData.SkinSection = 'GROUPBOX'
    object LangNotSupportedDesc: TsWebLabel
    Left = 8
    Top = 48
    Width = 239
    Height = 13
    Hint = 'RU: '#1052#1086#1077#1075#1086' '#1103#1079#1099#1082#1072' '#1085#1077#1090' '#1074' '#1089#1087#1080#1089#1082#1077', '#1095#1090#1086' '#1076#1077#1083#1072#1090#1100'?'
    Caption = 'My language is not supported, what to do?'
    Color = clRed
    ParentColor = False
    ParentFont = False
    OnClick = LangNotSupportedDescClick
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    UseSkinColor = False
    HoverFont.Charset = RUSSIAN_CHARSET
    HoverFont.Color = clLime
    HoverFont.Height = -11
    HoverFont.Name = 'Tahoma'
    HoverFont.Style = [fsBold]
    end
    object LangsBox: TsComboBox
    Left = 8
    Top = 16
    Width = 257
    Height = 22
    Alignment = taLeftJustify
    BoundLabel.Indent = 0
    BoundLabel.Font.Charset = DEFAULT_CHARSET
    BoundLabel.Font.Color = clWindowText
    BoundLabel.Font.Height = -11
    BoundLabel.Font.Name = 'MS Sans Serif'
    BoundLabel.Font.Style = []
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'COMBOBOX'
    ItemHeight = 16
    ItemIndex = -1
    TabOrder = 0
    OnChange = LangsBoxChange
    end
    end
    object LangsErrorStatusBar: TsStatusBar
    Left = 0
    Top = 277
    Width = 545
    Height = 19
    Hint = #1053#1072' '#1101#1090#1086' '#1089#1090#1086#1080#1090' '#1086#1073#1088#1072#1090#1080#1090#1100' '#1074#1085#1080#1084#1072#1085#1080#1077'…;)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    Panels = <
    item
    Alignment = taCenter
    Width = 50
    end>
    UseSystemFont = False
    Visible = False
    SkinData.SkinSection = 'STATUSBAR'
    end
    end
    object TrayIconPage: TsTabSheet
    Hint = #1057#1090#1088#1072#1085#1080#1094#1072' '#1082#1086#1085#1092#1080#1075#1091#1088#1072#1094#1080#1080' '#1080#1082#1086#1085#1082#1080' '#1074' '#1089#1080#1089#1090#1077#1084#1085#1086#1084' '#1083#1086#1090#1082#1077'.'
    Caption = #1057#1080#1089#1090#1077#1084#1085#1099#1081' '#1083#1086#1090#1086#1082
    SkinData.CustomColor = False
    SkinData.CustomFont = False
    object TrayPopupMouseBtnDesc: TsLabel
    Left = 8
    Top = 248
    Width = 266
    Height = 16
    Caption = #1050#1085#1086#1087#1082#1072' '#1074#1089#1087#1083#1099#1074#1072#1102#1097#1077#1075#1086' '#1084#1077#1085#1102' '#1080#1082#1086#1085#1082#1080' '#1074' '#1090#1088#1077#1077': '
    end
    object MinimizeToTrayChk: TsCheckBox
    Left = 24
    Top = 32
    Width = 211
    Height = 20
    Hint =
    #1055#1086#1089#1090#1072#1074#1100#1090#1077' '#1075#1072#1083#1086#1095#1082#1091' '#1095#1090#1086#1073#1099' '#1088#1072#1079#1088#1077#1096#1080#1090#1100' '#1087#1088#1086#1075#1088#1072#1084#1084#1077' '#1089#1074#1086#1088#1072#1095#1080#1074#1072#1090#1100#1089#1103' '#1074' '#1090#1088#1077#1081 +
    ' '#1087#1088#1080' '#1085#1072#1078#1072#1090#1080#1080' '#1089#1074#1077#1088#1085#1091#1090#1100' [_],'#13#10#1080#1083#1080' '#1091#1073#1077#1088#1080#1090#1077' '#1075#1072#1083#1086#1095#1082#1091' '#1095#1090#1086#1073#1099' '#1086#1090#1082#1083#1102#1095#1080#1090#1100' ' +
    #1076#1072#1085#1085#1091#1102' '#1092#1091#1085#1082#1094#1080#1102'.'
    Caption = #1057#1074#1086#1088#1072#1095#1080#1074#1072#1090#1100' '#1087#1088#1086#1075#1088#1072#1084#1084#1091' '#1074' '#1083#1086#1090#1086#1082
    Enabled = False
    TabOrder = 0
    OnClick = MinimizeToTrayChkClick
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    object CloseToTrayChk: TsCheckBox
    Left = 24
    Top = 56
    Width = 197
    Height = 20
    Hint =
    #1055#1086#1089#1090#1072#1074#1100#1090#1077' '#1075#1072#1083#1086#1095#1082#1091' '#1095#1090#1086#1073#1099' '#1088#1072#1079#1088#1077#1096#1080#1090#1100' '#1087#1088#1086#1075#1088#1072#1084#1084#1077' '#1089#1074#1086#1088#1072#1095#1080#1074#1072#1090#1100#1089#1103' '#1074' '#1083#1086#1090#1086 +
    #1082' '#1087#1088#1080' '#1085#1072#1078#1072#1090#1080#1080' '#1079#1072#1082#1088#1099#1090#1100' [X],'#13#10' '#1080#1083#1080' '#1091#1073#1077#1088#1080#1090#1077' '#1075#1072#1083#1086#1095#1082#1091' '#1095#1090#1086#1073#1099' '#1086#1090#1082#1083#1102#1095#1080#1090#1100 +
    ' '#1076#1072#1085#1085#1091#1102' '#1092#1091#1085#1082#1094#1080#1102'.'#13#10#13#10#1055#1088#1080#1084#1077#1095#1072#1085#1080#1077':'#13#10#1045#1089#1083#1080' '#1074#1099' '#1074#1082#1083#1102#1095#1080#1083#1080' '#1076#1072#1085#1085#1091#1102' '#1092#1091#1085#1082#1094#1080#1102 +
    ' '#1090#1086', '#1074#1099#1081#1090#1080' '#1080#1079' '#1087#1088#1086#1075#1088#1072#1084#1084#1099' '#1074#1086#1079#1084#1086#1078#1085#1086' '#1090#1086#1083#1100#1082#1086' '#1087#1088#1080' '#1085#1072#1078#1072#1090#1080#1080' '#1082#1085#1086#1087#1082#1080' “'#1042#1099#1093#1086 +
    #1076'” '#1074' '#1075#1083#1072#1074#1085#1086#1084' '#1084#1077#1085#1102' '#1087#1088#1086#1075#1088#1072#1084#1084#1099'.'
    Caption = #1047#1072#1082#1088#1099#1074#1072#1090#1100' '#1087#1088#1086#1075#1088#1072#1084#1084#1091' '#1074' '#1083#1086#1090#1086#1082
    Enabled = False
    TabOrder = 1
    OnClick = CloseToTrayChkClick
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    object TrayShowHideFormGr: TsGroupBox
    Left = 12
    Top = 80
    Width = 313
    Height = 161
    Hint = #1044#1077#1081#1089#1090#1074#1080#1103' '#1087#1088#1086#1075#1088#1072#1084#1084#1099' '#1087#1088#1080' '#1082#1072#1082#1080#1093'-'#1083#1080#1073#1086' '#1076#1077#1081#1089#1090#1074#1080#1103#1093' '#1089' '#1080#1082#1086#1085#1082#1086#1081' '#1074' '#1083#1086#1090#1082#1077'.'
    Caption = #1057#1082#1088#1099#1090#1080#1077'/'#1087#1086#1082#1072#1079' '#1087#1088#1086#1075#1088#1072#1084#1084#1099': '
    TabOrder = 2
    SkinData.SkinSection = 'GROUPBOX'
    object ShowClickMouseBtnGrDesc: TsLabel
    Left = 8
    Top = 88
    Width = 88
    Height = 16
    Caption = #1050#1085#1086#1087#1082#1072' '#1084#1099#1096#1080': '
    end
    object TrayHotKey: THotKey
    Left = 152
    Top = 128
    Width = 129
    Height = 27
    Hint = #1042#1072#1096#1072' '#1075#1086#1088#1103#1095#1072#1103' '#1082#1083#1072#1074#1080#1096#1072'.'
    Enabled = False
    HotKey = 0
    Modifiers = []
    TabOrder = 0
    OnChange = TrayHotKeyChange
    end
    object TrayHotKeyChk: TsCheckBox
    Left = 4
    Top = 136
    Width = 133
    Height = 20
    Hint =
    #1055#1086#1089#1090#1072#1074#1100#1090#1077' '#1075#1072#1083#1086#1095#1082#1091' '#1080' '#1091#1082#1072#1078#1080#1090#1077' '#1074' '#1087#1086#1083#1077' '#1074#1074#1086#1076#1072' '#1089#1086#1095#1077#1090#1072#1085#1080#1077' '#1082#1083#1072#1074#1080#1096' '#1085#1072' '#1082#1083#1072 +
    #1074#1080#1072#1090#1091#1088#1077' '#1095#1090#1086#1073#1099' '#1087#1086' '#1085#1072#1078#1072#1090#1080#1102' '#1101#1090#1080#1093' '#1082#1083#1072#1074#1080#1096' '#1089#1082#1088#1099#1074#1072#1090#1100' '#1080#1083#1080' '#1087#1086#1082#1072#1079#1099#1074#1072#1090#1100' '#1087#1088#1086 +
    #1075#1088#1072#1084#1084#1091' '#1085#1072' '#1101#1082#1088#1072#1085#1077'.'
    Caption = #1043#1086#1088#1103#1095#1072#1103' '#1082#1083#1072#1074#1080#1096#1072': '
    Enabled = False
    TabOrder = 1
    OnClick = TrayHotKeyChkClick
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    object ShowClickMouseBtnGr: TsComboBox
    Left = 8
    Top = 104
    Width = 297
    Height = 22
    Hint = #1050#1085#1086#1087#1082#1072' '#1084#1099#1096#1080' '#1082#1086#1090#1086#1088#1086#1081' '#1073#1091#1076#1077#1090' '#1086#1089#1091#1097#1077#1089#1090#1074#1083#1105#1085' '#1082#1083#1080#1082'.'
    Alignment = taLeftJustify
    BoundLabel.Indent = 0
    BoundLabel.Font.Charset = DEFAULT_CHARSET
    BoundLabel.Font.Color = clWindowText
    BoundLabel.Font.Height = -11
    BoundLabel.Font.Name = 'MS Sans Serif'
    BoundLabel.Font.Style = []
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'COMBOBOX'
    Enabled = False
    ItemHeight = 16
    ItemIndex = -1
    TabOrder = 2
    Text = #1051#1077#1074#1072#1103' '#1082#1085#1086#1087#1082#1072' '#1084#1099#1096#1082#1080
    OnChange = ShowClickMouseBtnGrChange
    Items.Strings = (
    #1051#1077#1074#1072#1103' '#1082#1085#1086#1087#1082#1072' '#1084#1099#1096#1082#1080
    #1055#1088#1072#1074#1072#1103' '#1082#1085#1086#1087#1082#1072' '#1084#1099#1096#1082#1080)
    end
    object ShowClickStyleGr: TsRadioGroup
    Left = 8
    Top = 20
    Width = 297
    Height = 65
    Hint =
    #1057#1090#1080#1083#1100' '#1082#1083#1080#1082#1072' '#1082#1085#1086#1087#1082#1086#1081' '#1084#1099#1096#1080' '#1087#1086' '#1080#1082#1086#1085#1082#1077' '#1074' '#1083#1086#1090#1082#1077' '#1076#1083#1103' '#1090#1086#1075#1086' '#1095#1090#1086#1073#1099' '#1086#1090#1086#1073#1088#1072 +
    #1079#1080#1090#1100' '#1080#1083#1080' '#1089#1082#1088#1099#1090#1100' '#1087#1088#1086#1075#1088#1072#1084#1084#1091' '#1089'('#1085#1072') '#1101#1082#1088#1072#1085#1072'('#1085#1077').'
    Caption = #1058#1080#1087' '#1082#1083#1080#1082#1072': '
    Color = clBtnHighlight
    Enabled = False
    ParentBackground = False
    ParentColor = False
    TabOrder = 3
    OnClick = ShowClickStyleGrClick
    SkinData.SkinSection = 'GROUPBOX'
    ItemIndex = 0
    Items.Strings = (
    #1044#1074#1086#1081#1085#1086#1081' '#1082#1083#1080#1082
    #1054#1076#1080#1085#1086#1095#1085#1099#1081' '#1082#1083#1080#1082)
    end
    end
    object TrayPopupMouseBtnGr: TsComboBox
    Left = 8
    Top = 264
    Width = 313
    Height = 22
    Hint =
    #1050#1085#1086#1087#1082#1072' '#1084#1099#1096#1080' '#1087#1088#1080' '#1082#1083#1080#1082#1077' '#1082#1086#1090#1086#1088#1099#1081' '#1087#1086' '#1080#1082#1086#1085#1082#1077' '#1074' '#1090#1088#1077#1077','#13#10#1087#1086#1103#1074#1080#1090#1089#1103' '#1074#1089#1087#1083#1099#1074 +
    #1072#1102#1097#1077#1077' '#1084#1077#1085#1102'.'
    Alignment = taLeftJustify
    BoundLabel.Indent = 0
    BoundLabel.Font.Charset = DEFAULT_CHARSET
    BoundLabel.Font.Color = clWindowText
    BoundLabel.Font.Height = -11
    BoundLabel.Font.Name = 'MS Sans Serif'
    BoundLabel.Font.Style = []
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'COMBOBOX'
    Enabled = False
    ItemHeight = 16
    ItemIndex = -1
    TabOrder = 3
    Text = #1055#1088#1072#1074#1072#1103' '#1082#1085#1086#1087#1082#1072' '#1084#1099#1096#1082#1080
    OnChange = TrayPopupMouseBtnGrChange
    Items.Strings = (
    #1051#1077#1074#1072#1103' '#1082#1085#1086#1087#1082#1072' '#1084#1099#1096#1082#1080
    #1055#1088#1072#1074#1072#1103' '#1082#1085#1086#1087#1082#1072' '#1084#1099#1096#1082#1080)
    end
    object UseTrayIcoChk: TsCheckBox
    Left = 8
    Top = 8
    Width = 231
    Height = 20
    Hint =
    #1055#1086#1089#1090#1072#1074#1100#1090#1077' '#1075#1072#1083#1086#1095#1082#1091' '#1095#1090#1086#1073#1099' '#1087#1088#1086#1075#1088#1072#1084#1084#1072' '#1084#1086#1075#1083#1072' '#1086#1090#1086#1073#1088#1072#1079#1080#1090#1100' '#1080' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1090 +
    #1100' '#1080#1082#1086#1085#1082#1091' '#1074' '#1089#1080#1089#1090#1077#1084#1085#1086#1084' '#1083#1086#1090#1082#1077'.'#13#10#1048#1083#1080' '#1091#1073#1077#1088#1080#1090#1077' '#1075#1072#1083#1086#1095#1082#1091' '#1095#1090#1086#1073#1099' '#1086#1090#1082#1083#1102#1095#1080#1090#1100 +
    ' '#1101#1090#1091' '#1074#1086#1079#1084#1086#1078#1085#1086#1089#1090#1100'.'
    Caption = #1055#1086#1082#1072#1079#1072#1090#1100' '#1080#1082#1086#1085#1082#1091' '#1074' '#1089#1080#1089#1090#1077#1084#1085#1086#1084' '#1083#1086#1090#1082#1077
    TabOrder = 4
    OnClick = UseTrayIcoChkClick
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    end
    object AutoRunPage: TsTabSheet
    Hint = #1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1087#1072#1088#1072#1084#1077#1090#1088#1086#1074' '#1072#1074#1090#1086#1079#1072#1087#1091#1089#1082#1072' '#1087#1088#1086#1075#1088#1072#1084#1084#1099'.'
    Caption = #1040#1074#1090#1086#1079#1072#1087#1091#1089#1082
    SkinData.CustomColor = False
    SkinData.CustomFont = False
    object AppAutoRunChk: TsCheckBox
    Left = 8
    Top = 8
    Width = 154
    Height = 20
    Hint =
    #1059#1089#1090#1072#1085#1086#1074#1080#1090#1077' '#1092#1083#1072#1078#1086#1082' '#1095#1090#1086' '#1073#1099' '#1076#1086#1073#1072#1074#1080#1090#1100' '#1087#1088#1086#1075#1088#1072#1084#1084#1091' '#1074' '#1072#1074#1090#1086#1079#1072#1087#1091#1089#1082' '#1087#1088#1080' '#1089#1090#1072 +
    #1088#1090#1077' Windows.'
    Caption = #1040#1074#1090#1086#1079#1072#1087#1091#1089#1082' '#1089' '#1089#1080#1089#1090#1077#1084#1086#1081
    TabOrder = 0
    OnClick = AppAutoRunChkClick
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    object RunInMinimizedModeChk: TsCheckBox
    Left = 8
    Top = 32
    Width = 191
    Height = 20
    Hint = #1087#1088#1086#1075#1088#1072#1084#1084#1072' '#1073#1091#1076#1077#1090' '#1079#1072#1087#1091#1097#1077#1085#1072' '#1089#1074#1105#1088#1085#1091#1090#1086#1081
    Caption = #1057#1074#1077#1088#1085#1091#1090#1100' '#1074' '#1090#1088#1077#1081' '#1087#1088#1080' '#1079#1072#1087#1091#1089#1082#1077
    Enabled = False
    TabOrder = 1
    OnClick = RunInMinimizedModeChkClick
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    end
    object OtherPage: TsTabSheet
    Hint =
    #1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1087#1072#1088#1072#1084#1077#1090#1088#1086#1074' '#1087#1088#1086#1075#1088#1072#1084#1084#1099' '#1082#1086#1090#1086#1088#1099#1077' '#1085#1077' '#1074#1086#1096#1083#1080' '#1085#1080' '#1074' '#1086#1076#1085#1091' '#1080#1079' '#1089#1091#1097 +
    #1077#1089#1090#1074#1091#1102#1097#1080#1093' '#1082#1072#1090#1077#1075#1086#1088#1080#1081'.'
    Caption = #1056#1072#1079#1085#1086#1077
    SkinData.CustomColor = False
    SkinData.CustomFont = False
    object DontAskViaErrorsDelChk: TsCheckBox
    Left = 0
    Top = 96
    Width = 320
    Height = 20
    Hint =
    #1059#1089#1090#1072#1085#1086#1074#1080#1090#1077' '#1092#1083#1072#1078#1086#1082' '#1095#1090#1086' '#1073#1099' '#1087#1088#1080' '#1091#1076#1072#1083#1077#1085#1080#1080' '#1101#1083#1077#1084#1077#1085#1090#1086#1074' '#1082#1072#1082#1086#1075#1086'-'#1083#1080#1073#1086' '#1089#1087#1080#1089 +
    #1082#1072' '#1074#1072#1084' '#1085#1077' '#1079#1072#1076#1086#1074#1072#1083#1089#1103' '#1074#1086#1087#1088#1086#1089' “'#1042#1099' '#1091#1074#1077#1088#1077#1085#1099'?”. '
    Caption = #1053#1077' '#1089#1087#1088#1072#1096#1080#1074#1072#1090#1100' '#1087#1088#1080' '#1091#1076#1072#1083#1077#1085#1080#1080' '#1101#1083#1077#1084#1077#1085#1090#1086#1074' '#1080#1079' '#1089#1087#1080#1089#1082#1072
    TabOrder = 0
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    object ShowHintsChk: TsCheckBox
    Left = 0
    Top = 76
    Width = 214
    Height = 20
    Hint = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1077' '#1092#1083#1072#1078#1086#1082' '#1095#1090#1086' '#1073#1099' '#1074#1082#1083#1102#1095#1080#1090#1100' '#1087#1086#1082#1072#1079' '#1076#1072#1085#1085#1099#1093' '#1089#1086#1086#1073#1097#1077#1085#1080#1081'.'
    Caption = #1042#1082#1083'./'#1042#1099#1082#1083'. '#1087#1086#1076#1089#1082#1072#1079#1082#1080' '#1087#1088#1086#1075#1088#1072#1084#1084#1099
    Checked = True
    State = cbChecked
    TabOrder = 1
    OnClick = ShowHintsChkClick
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    object sButton1: TsButton
    Left = 468
    Top = 264
    Width = 75
    Height = 25
    TabOrder = 2
    Visible = False
    OnClick = sButton1Click
    SkinData.SkinSection = 'BUTTON'
    end
    object WERControlGr: TsGroupBox
    Left = 4
    Top = 4
    Width = 253
    Height = 69
    Hint = #1059#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1089#1080#1089#1090#1077#1084#1086#1081' '#1086#1090#1095#1105#1090#1086#1074' '#1086#1073' '#1086#1096#1080#1073#1082#1072#1093' Windows Error Reporting.'
    Caption = 'Windows Error Reporting(WER):'
    TabOrder = 3
    SkinData.SkinSection = 'GROUPBOX'
    object WERHowToUseBtn: TsSpeedButton
    Left = 220
    Top = 20
    Width = 23
    Height = 22
    Hint = #1063#1090#1086' '#1101#1090#1086' '#1090#1072#1082#1086#1077'? '#1050#1072#1082' '#1101#1090#1080#1084' '#1087#1086#1083#1100#1079#1086#1074#1072#1090#1100#1089#1103'? '#1053#1091#1078#1085#1086' '#1083#1080' '#1086#1085#1086' '#1084#1085#1077'?'
    Glyph.Data = {}
    OnClick = WERHowToUseBtnClick
    SkinData.SkinSection = 'SPEEDBUTTON'
    end
    object WerStatusBar: TsStatusBar
    Left = 2
    Top = 48
    Width = 249
    Height = 19
    Hint = #1057#1086#1089#1090#1086#1103#1085#1080#1077' WER'
    Panels = <
    item
    Alignment = taCenter
    Width = 50
    end>
    SkinData.SkinSection = 'STATUSBAR'
    end
    object EnableWerBtn: TsButton
    Left = 8
    Top = 20
    Width = 93
    Height = 25
    Hint = #1042#1082#1083#1102#1095#1072#1077#1090' '#1076#1072#1085#1085#1091#1102' '#1089#1080#1089#1090#1077#1084#1099' '#1077#1089#1083#1080' '#1086#1085#1072' '#1091' '#1074#1072#1089' '#1074#1099#1082#1083#1102#1095#1077#1085#1072'.'
    Caption = #1042#1082#1083#1102#1095#1080#1090#1100
    TabOrder = 1
    OnClick = EnableWerBtnClick
    SkinData.SkinSection = 'BUTTON'
    end
    object DisableWERBtn: TsButton
    Left = 108
    Top = 20
    Width = 105
    Height = 25
    Hint = #1042#1099#1082#1083#1102#1095#1072#1077#1090' '#1076#1072#1085#1085#1091#1102' '#1089#1080#1089#1090#1077#1084#1091' '#1077#1089#1083#1080' '#1074#1082#1083#1102#1095#1077#1085#1072'.'
    Caption = #1042#1099#1082#1083#1102#1095#1080#1090#1100
    TabOrder = 2
    OnClick = DisableWERBtnClick
    SkinData.SkinSection = 'BUTTON'
    end
    end
    object SelgUpdatingSettingsGr: TsGroupBox
    Left = 0
    Top = 116
    Width = 393
    Height = 133
    Caption = #1040#1074#1090#1086#1084#1072#1090#1080#1095#1077#1089#1082#1086#1077' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1077': '
    TabOrder = 4
    SkinData.SkinSection = 'GROUPBOX'
    object RestoreUpdateLinkBtn: TsWebLabel
    Left = 284
    Top = 108
    Width = 85
    Height = 13
    Hint = #1042#1086#1089#1089#1090#1072#1085#1072#1074#1083#1080#1074#1072#1077#1090' '#1089#1089#1099#1083#1082#1091' '#1085#1072' '#1089#1077#1088#1074#1077#1088' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1081' '#1087#1088#1086#1075#1088#1072#1084#1084#1099'.'
    Caption = #1055#1086' '#1091#1084#1086#1083#1095#1072#1085#1080#1102
    ParentFont = False
    OnClick = RestoreUpdateLinkBtnClick
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold, fsItalic, fsUnderline]
    HoverFont.Charset = RUSSIAN_CHARSET
    HoverFont.Color = clLime
    HoverFont.Height = -13
    HoverFont.Name = 'Tahoma'
    HoverFont.Style = [fsBold]
    end
    object SelfUpdatingLinkDesc: TsLabel
    Left = 8
    Top = 64
    Width = 195
    Height = 16
    Caption = #1057#1077#1088#1074#1077#1088' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1081' '#1087#1088#1086#1075#1088#1072#1084#1084#1099': '
    end
    object AutoUpdateTimeDesc: TsLabel
    Left = 356
    Top = 28
    Width = 28
    Height = 16
    Caption = #1052#1080#1085'.'
    end
    object SelfUpdatingLinkEdit: TsEdit
    Left = 8
    Top = 81
    Width = 361
    Height = 24
    Hint =
    #1057#1089#1099#1083#1082#1072' '#1085#1072' '#1084#1077#1089#1090#1086' '#1075#1076#1077' '#1088#1072#1089#1087#1086#1083#1086#1075#1072#1102#1090#1089#1103' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103' '#1076#1083#1103' '#1087#1088#1086#1075#1088#1072#1084#1084#1099'.'#13#10#13#10#1053 +
    #1045' '#1056#1045#1050#1054#1052#1045#1053#1044#1059#1045#1058#1057#1071' '#1048#1047#1052#1045#1053#1071#1058#1068'.'
    TabOrder = 0
    SkinData.SkinSection = 'EDIT'
    BoundLabel.Indent = 0
    BoundLabel.Font.Charset = DEFAULT_CHARSET
    BoundLabel.Font.Color = clWindowText
    BoundLabel.Font.Height = -11
    BoundLabel.Font.Name = 'MS Sans Serif'
    BoundLabel.Font.Style = []
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    end
    object ShowMessageToUserChk: TsCheckBox
    Left = 20
    Top = 40
    Width = 289
    Height = 20
    Hint =
    #1053#1072#1078#1084#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1077#1089#1083#1080' '#1093#1086#1090#1080#1090#1077' '#1095#1090#1086#1073#1099' '#1087#1088#1086#1075#1088#1072#1084#1084#1072' '#1091#1074#1077#1076#1086#1084#1083#1103#1083#1072' '#1074#1072#1089' '#1086' '#1085#1086#1074#1099#1093 +
    ' '#1074#1077#1088#1089#1080#1103#1093' '#1087#1088#1086#1075#1088#1072#1084#1084#1099', '#1074' '#1074#1080#1076#1077' '#1089#1086#1086#1073#1097#1077#1085#1080#1103' '#1085#1072' '#1101#1082#1088#1072#1085#1077'.'
    Caption = #1042#1099#1074#1077#1089#1090#1080' '#1089#1086#1086#1073#1097#1077#1085#1080#1077' '#1086' '#1085#1086#1074#1086#1081' '#1074#1077#1088#1089#1080#1080' '#1085#1072' '#1101#1082#1088#1072#1085
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    object AutoUpdateSelfChk: TsCheckBox
    Left = 8
    Top = 21
    Width = 307
    Height = 20
    Hint =
    #1059#1089#1090#1072#1085#1086#1074#1080#1090#1077' '#1092#1083#1072#1078#1086#1082' '#1095#1090#1086#1073#1099' '#1087#1088#1080' '#1089#1090#1072#1088#1090#1077', '#1087#1088#1086#1075#1088#1072#1084#1084#1072' '#1089#1072#1084#1072' '#1087#1088#1086#1074#1077#1088#1103#1083#1072' '#1085#1072#1083 +
    #1080#1095#1080#1077' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1081'.'
    Caption = #1040#1074#1090#1086#1084#1072#1090#1080#1095#1077#1089#1082#1072#1103' '#1087#1088#1086#1074#1077#1088#1082#1072' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1081', '#1082#1072#1078#1076#1099#1077' '
    Checked = True
    State = cbChecked
    TabOrder = 2
    OnClick = AutoUpdateSelfChkClick
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
    end
    object AutoUpdateTimeEdit: TsEdit
    Left = 312
    Top = 20
    Width = 37
    Height = 24
    TabOrder = 3
    Text = '120'
    SkinData.SkinSection = 'EDIT'
    BoundLabel.Indent = 0
    BoundLabel.Font.Charset = DEFAULT_CHARSET
    BoundLabel.Font.Color = clWindowText
    BoundLabel.Font.Height = -11
    BoundLabel.Font.Name = 'MS Sans Serif'
    BoundLabel.Font.Style = []
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    end
    end
    end
    end
    object SkinProvider: TsSkinProvider
    AddedTitle.Font.Charset = DEFAULT_CHARSET
    AddedTitle.Font.Color = clNone
    AddedTitle.Font.Height = -11
    AddedTitle.Font.Name = 'MS Sans Serif'
    AddedTitle.Font.Style = []
    SkinData.SkinSection = 'FORM'
    TitleButtons = <
    item
    Glyph.Data = {}
    Hint = #1043#1076#1077' '#1103'?'
    Name = 'SettingsHLPBtn'
    UseSkinData = False
    OnMouseDown = SkinProviderTitleButtons0MouseDown
    end>
    Left = 416
    Top = 49
    end
    object SettingsTranslator: TbsPolyglotTranslator
    Manager = MainForm.LangManager
    Left = 384
    Top = 49
    end
    object SelectSkinDialogTimer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = SelectSkinDialogTimerTimer
    Left = 352
    Top = 49
    end
    end

    Текущая версия АС: 7.26

    January 7, 2011 at 10:02 am in reply to: [7.26] acZLibEx.zcalloc Exception OutOfMemory В общем жрёт не по детски! #44378
    Ahell
    Participant

    нет, AppsList это TsListView туда не выводятся картинки, есть только sToolBar с кнопками и иконками в формате png.

    Насчёт системы это будет проблемой, ко мне пришло всего-лишь два таких раборта… система в первом сообщениии Windows 7.

    Во втором вроде тоже самое.

    January 6, 2011 at 11:24 am in reply to: [AC BUG] Accesviolation at 000000 (TsSkinManager.GetSkinIndex) #44347
    Ahell
    Participant

    Запросто=)

    Запускам Project1.exe, тыкаем галочку Вкл/Выкл скины, клацаем кнопку, получаем баг.

    Если расписать то это так:

    Выбираем скин, закрываем программу. Ищем выбранный скин в папке skins переименовываем его во что-то несуразное(Aluminium.aszgfhfghf), запускаем программу, тыкаем “вкл. скнины” тыкаем кнопку “диалог скинов” получаем баг.

    Чтобы откомпилировать удалите из dpr файла следующие модули(Если нет MadExcept пакета):

    Code:
    madExcept,
    madLinkDisAsm,
    MemoryInfo,
    ActiveControl,
    madListProcesses,
    madListModules,

    Собственно мой exe гененериет дизассемблированную функцию GetMaskIndex там же и ошибка.

    P.s. очень специфичесий баг, я его наблюдаю с версии 7.20, является только тогда когда на форме каким-то боком лежит sPageControl. :a1:

  • Author
    Posts
Viewing 20 posts - 21 through 40 (of 71 total)
1 2 3 4