[Michael]

Ошибка вылетает в одной из форм проекта (получилось повторить под отладчиком только 1 раз из 30 попыток создания формы)

на этой форме:

BorderStyle := bsSingle;

BorderIcons := [];

на форме лежит TsSkinProvider (см вложенный файл)

на FormCreate в зависимости от наших нужд создаем:

if sSkinProvider.TitleButtons.Count = 0 then begin

sSkinProvider.TitleButtons.Add;

FcaLngRes.ProjectImgList16x16.GetBitmap(55, sSkinProvider.TitleButtons[0].Glyph);

sSkinProvider.TitleButtons[0].OnMouseDown := AdministratorModeBtnClick;

sSkinProvider.TitleButtons[0].Hint := L_Administrator_Mode;

sSkinProvider.TitleButtons[0].Visible := FOnlyWithRFID and not (InEmployeeLoginMode = elmAdmin);

end;

Других особенностей нет

[Michael]

к сожалению демки нет, только отчеты от клиентов

[Michael]

Отдельной демки нет, sPanel, на ней sSpeedButton у нее hint при наведении мышки на кнопку иногда выскакивает, у меня получилось такое только один раз и то во время обычной работы, но от клиентов отчеты приходят регулярно

[Michael]

AC 9.17

Exception:

---

2.2 Address: 00638BBC

2.5 Type : EAccessViolation

2.6 Message: Access violation at address 00638BBC in module 't.exe'. Read of address 00000000

2.7 ID : B3AA0000

Call Stack Information:

---

|Methods |Details|Stack |Address |Module |Offset |Unit |Class |Procedure/Method |Line |

---

|*Exception Thread: ID=5312; Parent=0; Priority=0 |

|Class=; Name=MAIN |

|DeadLock=0; Wait Chain= |

|Comment= |

|

---

|

|7FFFFFFE|03 |00000000|00638BBC|t.exe|00238BBC|Vcl.Controls|TControl |UpdateAnchorRules | |

|00000020|03 |0018FC78|0063EC3A|t.exe|0023EC3A|Vcl.Controls|TWinControl |CreateHandle | |

|00000020|03 |0018FC88|00642AB8|t.exe|00242AB8|Vcl.Controls|TWinControl |HandleNeeded | |

|00000020|03 |0018FC90|00642AC5|t.exe|00242AC5|Vcl.Controls|TWinControl |GetHandle | |

|00000020|04 |0018FC98|00BC7C6F|t.exe|007C7C6F|acAlphaHints|TacCustomHintWindow|ActivateHint |668[7] |

|00000020|03 |0018FF08|0072DCEF|t.exe|0032DCEF|Vcl.Forms |TApplication |ProcessMessage | |

|00000020|03 |0018FF24|0072DD32|t.exe|0032DD32|Vcl.Forms |TApplication |HandleMessage | |

|00000020|03 |0018FF48|0072E06D|t.exe|0032E06D|Vcl.Forms |TApplication |Run | |

|00000020|03 |0018FF50|0072E07A|t.exe|0032E07A|Vcl.Forms |TApplication |Run | |

|00000020|04 |0018FF78|01888815|t.exe|01488815|RezeptAssist| |Initialization |262[7] |

|00000020|03 |0018FFE0|773CA89C|ntdll.dll |0004A89C|ntdll | | (possible RtlInitializeExceptionChain+85)| |

[Michael]

В 8.52 все опять работает хорошо

[Michael]

v.8.35

При клике мышкой OnChanging – вызывается 2 раза, что я считаю неправильно, при перетаскивании мышкой 1 раз.

Не понятно, что делает свойство: Locked

[Michael]

Сорри, не заметил, что AutoSize остался = true

[Michael]

Вылез еще одни глюк: кнопку состояния потянули мышкой, на OnSliderChange задаем вопрос в диалоговом окне, если после этого навести мышку опять на slider, то состояния меняются как будто мы нажимаем на кнопку мышки

[Michael]

1. OnClick вызывается только, если было нажатие на пустое место (на новое ожидаемое состояние) при нажатии на кнопку с текущим состоянием события нет (хотя слайдер меняет свое состояние). Нет этого события и при перетаскивании кнопки состояния мышкой.

2. При перетаскивании кнопки состояния мышкой, новое состояние не прорисовывается корректно (у меня вместо нового состояния остается половина старой кнопки)

OnSliderChange работает лучше, но вызывается уже по факту изменения состояния. Если мы хотим сначала задать вопрос а-ля: “Вы действительно хотите выключить…?”, то получается некрасиво

[Michael]

Не логичная работа Font и FontOn

В DesignTime, после того как компонент был добавлен на форму, у него SliderOn = true, если мы меняем (например bold для FontOn), то мы увидем это только если передернем SliderOn.

Для изменения Font для состояния SliderOn = false нужно ставить SkinData.CustomFont = true.

Предложение: Font оставляем для “BoundLabel”, FontOn как сейчас, добавляем FontOff

[Michael]

Если в DesignTime назначить, а затем очистить property Images, то имеем Exception

[Michael]

В 8.32 с этим компонентом появилась проблема (последняя моя версия была 8.30), так что возможно не появилась, а осталась

На формах лежали TsLabelFX,

до установки обновления в DFM

Code:

object LogoLbl: TsLabelFX
Left = 6
Top = 4
Width = 31
Height = 17
Caption = 'Logo'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 3484708
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end

после установки обновления до 8.32 в DFM

Code:

object LogoLbl: TsLabelFX
Left = 7
Top = 5
Width = 31
Height = 17
Caption = 'Logo'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 3484708
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Angle = 0
Shadow.OffsetKeeper.LeftTop = 0
Shadow.OffsetKeeper.RightBottom = 0
end

список изменения

Code:

object LogoLbl: TsLabelFX
Left = 7
Top = 5
Angle = 0
Shadow.OffsetKeeper.LeftTop = 0
Shadow.OffsetKeeper.RightBottom = 0
end

С Left и Top нехорошо получилось, но проблема в том, что после копиляции lablel начинает уезжать вверх на 2 пикселя каждый раз при записи нового значения в Caption

При установке Shadow.OffsetKeeper.LeftTop = -1 переезжать перестает

[Michael]

В 8.32 с этим компонентом появилась проблема (последняя моя версия была 8.30), так что возможно не появилась, а осталась

На формах лежали TsLabelFX,

до установки обновления в DFM

Code:

object LogoLbl: TsLabelFX
Left = 6
Top = 4
Width = 31
Height = 17
Caption = 'Logo'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 3484708
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end

после установки обновления до 8.32 в DFM

Code:

object LogoLbl: TsLabelFX
Left = 7
Top = 5
Width = 31
Height = 17
Caption = 'Logo'
ParentFont = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 3484708
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Angle = 0
Shadow.OffsetKeeper.LeftTop = 0
Shadow.OffsetKeeper.RightBottom = 0
end

список изменения

Code:

object LogoLbl: TsLabelFX
Left = 7
Top = 5
Angle = 0
Shadow.OffsetKeeper.LeftTop = 0
Shadow.OffsetKeeper.RightBottom = 0
end

С Left и Top нехорошо получилось, но проблема в том, что после копиляции lablel начинает уезжать вверх на 2 пикселя каждый раз при записи нового значения в Caption

При установке Shadow.OffsetKeeper.LeftTop = -1 переезжать перестает

[Michael]

Да, теперь хорошо, спасибо

[Michael]

8.14 работает нормально

[Michael]

В 8.14 заработало

[Michael]

Проблема была в освобождении формы календарики, решается:

Unit sTooledit

TsDateEdit = class(TsCustomDateEdit)

public

destructor Destroy; override;

…

destructor TsDateEdit.Destroy;

begin

if Assigned(sPopupCalendar) then begin

sPopupCalendar.Close;

end;

inherited;

end;

[Michael]

Уточнение и как воспроизвести:

На модальной форме лежит календарь, развернули календарик и выбрали дату, закрыли модальную форму (FormClose… Action := caFree;), открыли модальную форму, нажали на кнопку календарика – получили: “Exception class EAbstractError with message 'Abstract Error'”. Это происходит в

procedure TsCustomDateEdit.PopupWindowShow;

…

if sPopupCalendar <> nil then sPopupCalendar.Close; <---

[Michael]

Пытался сделать демку, но не получилось. Фрейм лежит на панели. Панель в динамике делается видимой и меняет свой размер. Фрейм также то видим то невидим.

[Michael]

После старта нажать на “Test wsMaximized” после этого справа от кнопки “Messages” появится бордюр, и затем на других кнопках при наведении фокуса с права на лево

[Author]

Posts