[TAZ]

Found an access violation error. I had been using this since I asked a question back in June “Brightness Scale Question”.

–This causes AV–

procedure TfrmStylePreview.smMainAfterChange(Sender: TObject);

begin

frmStyleSelect.tkbrBrightness.Min := smMain.CommonSkinData.BrightMin;

frmStyleSelect.tkbrBrightness.Max := smMain.CommonSkinData.BrightMax;

end;

–AV points to–

function TacSkinData.BrightMax: integer;

begin

Result := TsSkinManager(FOwner).SkinCommonInfo.BrightMax;

end;

function TacSkinData.BrightMin: integer;

begin

Result := TsSkinManager(FOwner).SkinCommonInfo.BrightMin;

end;

[Support]

Hello

AlphaSkins is active when this code is executed?

Skin should be activated already, please check it.

[TAZ]

I adjusted my code. It was working in v13 so you must have corrected something that exposed this. Thanks.

'Support' wrote:

Hello

AlphaSkins is active when this code is executed?

Skin should be activated already, please check it.

[Author]

Posts