AdvOfficePager + VCL Style + High Contrast

Tatham_Thomas · September 18, 2016, 11:12pm

The highlighting of the selected item in an AdvListbox is not visible if a VCL Style is enabled and Windows High Contrast mode is in effect. Interestingly, TListbox functions properly. However, both TListBox and TAdvListbox malfunction when they are placed on an AdvOfficePager. To see this, first turn on High Contrast White in Windows. Then compile and run the following program with and without the Luna VCL Style turned on. Only the free-standing TListbox works as expected; both the TListBox and the TAdvListbox on the pager and the freestanding TAdvListbox fail to highlight thefirst item. The problem goes away if the style is turned off or if High Contrast mode is turned off.

object Form13: TForm13

Left = 0

Top = 0

Caption = 'Form13'

ClientHeight = 438

ClientWidth = 871

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'Tahoma'

Font.Style = []

OldCreateOrder = False

OnCreate = FormCreate

PixelsPerInch = 96

TextHeight = 13

object AdvOfficePager1: TAdvOfficePager

Left = 64

Top = 56

Width = 400

Height = 361

ActivePage = AdvOfficePager11

ButtonSettings.CloseButtonPicture.Data = {

424DA20400000000000036040000280000000900000009000000010008000000

00006C000000C30E0000C30E00000001000000010000427B8400DEEFEF00FFFF

FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF

FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0001000001010100000100

0000000202000100020200000000000202020002020200000000010002020202

0200010000000101000202020001010000000100020202020200010000000002

0202000202020000000000020200010002020000000001000001010100000100

0000}

ButtonSettings.PageListButtonPicture.Data = {

424DA20400000000000036040000280000000900000009000000010008000000

00006C000000C30E0000C30E00000001000000010000427B8400DEEFEF00FFFF

FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF

FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0001010101000101010100

0000010101000200010101000000010100020202000101000000010002020202

0200010000000002020200020202000000000002020001000202000000000100

0001010100000100000001010101010101010100000001010101010101010100

0000}

ButtonSettings.ScrollButtonPrevPicture.Data = {

424DA20400000000000036040000280000000900000009000000010008000000

00006C000000C30E0000C30E00000001000000010000427B8400DEEFEF00FFFF

FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF

FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0001010101000001010100

0000010101000202000101000000010100020202000101000000010002020200

0101010000000002020200010101010000000100020202000101010000000101

0002020200010100000001010100020200010100000001010101000001010100

0000}

ButtonSettings.ScrollButtonNextPicture.Data = {

424DA20400000000000036040000280000000900000009000000010008000000

00006C000000C30E0000C30E00000001000000010000427B8400DEEFEF00FFFF

FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF

FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0001010000010101010100

0000010002020001010101000000010002020200010101000000010100020202

0001010000000101010002020200010000000101000202020001010000000100

0202020001010100000001000202000101010100000001010000010101010100

0000}

ButtonSettings.ScrollButtonFirstPicture.Data = {

424DC60400000000000036040000280000001000000009000000010008000000

000000000000C40E0000C40E00000001000000010000427B84FFDEEFEFFFFFFF

FFFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000

00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000

00FF000000FF000000FF000000FF000000FF000000FF01010101010000010101

0101000001010101010100020200010101000202000101010100020202000101

0002020200010101000202020001010002020200010101000202020001010002

0202000101010101000202020001010002020200010101010100020202000101

0002020200010101010100020200010101000202000101010101010000010101

010100000101}

ButtonSettings.ScrollButtonLastPicture.Data = {

424DC60400000000000036040000280000001000000009000000010008000000

000000000000C40E0000C40E00000001000000010000427B84FFDEEFEFFFFFFF

FFFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000

00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000

00FF000000FF000000FF000000FF000000FF000000FF01010000010101010100

0001010101010100020200010101000202000101010101000202020001010002

0202000101010101000202020001010002020200010101010100020202000101

0002020200010101000202020001010002020200010101000202020001010002

0202000101010100020200010101000202000101010101010000010101010100

000101010101}

ButtonSettings.ClosedListButtonPicture.Data = {

424DA20400000000000036040000280000000900000009000000010008000000

00006C000000C30E0000C30E00000001000000010000427B8400DEEFEF00FFFF

FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF

FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0001010101000101010100

0000010101000200010101000000010100020202000101000000010002020202

0200010000000002020200020202000000000002020001000202000000000100

0001010100000100000001010101010101010100000001010101010101010100

0000}

ButtonSettings.CloseButtonHint = 'Close'

ButtonSettings.InsertButtonHint = 'Insert new page'

ButtonSettings.PageListButtonHint = 'Page List'

ButtonSettings.ScrollButtonNextHint = 'Next'

ButtonSettings.ScrollButtonPrevHint = 'Previous'

ButtonSettings.ScrollButtonFirstHint = 'First'

ButtonSettings.ScrollButtonLastHint = 'Last'

ButtonSettings.ClosedListButtonHint = 'Closed Pages'

DoubleBuffered = True

ShowShortCutHints = False

TabOrder = 0

NextPictureChanged = False

PrevPictureChanged = False

object AdvOfficePager11: TAdvOfficePage

Left = 1

Top = 26

Width = 398

Height = 333

Caption = 'AdvOfficePager11'

DoubleBuffered = True

PageAppearance.BorderColor = 14922381

PageAppearance.Color = 16445929

PageAppearance.ColorTo = 15587527

PageAppearance.ColorMirror = 15587527

PageAppearance.ColorMirrorTo = 16773863

PageAppearance.Gradient = ggVertical

PageAppearance.GradientMirror = ggVertical

TabAppearance.BorderColor = clNone

TabAppearance.BorderColorHot = 15383705

TabAppearance.BorderColorSelected = 14922381

TabAppearance.BorderColorSelectedHot = 6343929

TabAppearance.BorderColorDisabled = clNone

TabAppearance.BorderColorDown = clNone

TabAppearance.Color = clBtnFace

TabAppearance.ColorTo = clWhite

TabAppearance.ColorSelected = 16709360

TabAppearance.ColorSelectedTo = 16445929

TabAppearance.ColorDisabled = clWhite

TabAppearance.ColorDisabledTo = clSilver

TabAppearance.ColorHot = 14542308

TabAppearance.ColorHotTo = 16768709

TabAppearance.ColorMirror = clWhite

TabAppearance.ColorMirrorTo = clWhite

TabAppearance.ColorMirrorHot = 14016477

TabAppearance.ColorMirrorHotTo = 10736609

TabAppearance.ColorMirrorSelected = 16445929

TabAppearance.ColorMirrorSelectedTo = 16181984

TabAppearance.ColorMirrorDisabled = clWhite

TabAppearance.ColorMirrorDisabledTo = clSilver

TabAppearance.Font.Charset = DEFAULT_CHARSET

TabAppearance.Font.Color = clWindowText

TabAppearance.Font.Height = -11

TabAppearance.Font.Name = 'Tahoma'

TabAppearance.Font.Style = []

TabAppearance.Gradient = ggVertical

TabAppearance.GradientMirror = ggVertical

TabAppearance.GradientHot = ggRadial

TabAppearance.GradientMirrorHot = ggVertical

TabAppearance.GradientSelected = ggVertical

TabAppearance.GradientMirrorSelected = ggVertical

TabAppearance.GradientDisabled = ggVertical

TabAppearance.GradientMirrorDisabled = ggVertical

TabAppearance.TextColor = 9126421

TabAppearance.TextColorHot = 9126421

TabAppearance.TextColorSelected = 9126421

TabAppearance.TextColorDisabled = clGray

TabAppearance.ShadowColor = 15255470

TabAppearance.HighLightColor = 16775871

TabAppearance.HighLightColorHot = 16643309

TabAppearance.HighLightColorSelected = 6540536

TabAppearance.HighLightColorSelectedHot = 12451839

TabAppearance.HighLightColorDown = 16776144

TabAppearance.BackGround.Color = 16767935

TabAppearance.BackGround.ColorTo = clNone

TabAppearance.BackGround.Direction = gdHorizontal

object ListBox1: TListBox

Left = 32

Top = 16

Width = 121

Height = 97

ItemHeight = 13

Items.Strings = (

'1'

'2'

'3')

TabOrder = 0

end

object AdvListBox1: TAdvListBox

Left = 176

Top = 16

Width = 200

Height = 300

InsertOptions.Visible = False

Items = <

item

Text = '1'

end

item

Text = '2'

end

item

Text = '3'

end

item

Text = '3'

end>

ParentColor = False

SearchOptions.Style = ssFilter

Style = stList

TabOrder = 1

end

object AdvOfficePager12: TAdvOfficePage

Left = 1

Top = 26

Width = 398

Height = 333

Caption = 'AdvOfficePager12'

DoubleBuffered = True

PageAppearance.BorderColor = 14922381

PageAppearance.Color = 16445929

PageAppearance.ColorTo = 15587527

PageAppearance.ColorMirror = 15587527

PageAppearance.ColorMirrorTo = 16773863

PageAppearance.Gradient = ggVertical

PageAppearance.GradientMirror = ggVertical

TabAppearance.BorderColor = clNone

TabAppearance.BorderColorHot = 15383705

TabAppearance.BorderColorSelected = 14922381

TabAppearance.BorderColorSelectedHot = 6343929

TabAppearance.BorderColorDisabled = clNone

TabAppearance.BorderColorDown = clNone

TabAppearance.Color = clBtnFace

TabAppearance.ColorTo = clWhite

TabAppearance.ColorSelected = 16709360

TabAppearance.ColorSelectedTo = 16445929

TabAppearance.ColorDisabled = clWhite

TabAppearance.ColorDisabledTo = clSilver

TabAppearance.ColorHot = 14542308

TabAppearance.ColorHotTo = 16768709

TabAppearance.ColorMirror = clWhite

TabAppearance.ColorMirrorTo = clWhite

TabAppearance.ColorMirrorHot = 14016477

TabAppearance.ColorMirrorHotTo = 10736609

TabAppearance.ColorMirrorSelected = 16445929

TabAppearance.ColorMirrorSelectedTo = 16181984

TabAppearance.ColorMirrorDisabled = clWhite

TabAppearance.ColorMirrorDisabledTo = clSilver

TabAppearance.Font.Charset = DEFAULT_CHARSET

TabAppearance.Font.Color = clWindowText

TabAppearance.Font.Height = -11

TabAppearance.Font.Name = 'Tahoma'

TabAppearance.Font.Style = []

TabAppearance.Gradient = ggVertical

TabAppearance.GradientMirror = ggVertical

TabAppearance.GradientHot = ggRadial

TabAppearance.GradientMirrorHot = ggVertical

TabAppearance.GradientSelected = ggVertical

TabAppearance.GradientMirrorSelected = ggVertical

TabAppearance.GradientDisabled = ggVertical

TabAppearance.GradientMirrorDisabled = ggVertical

TabAppearance.TextColor = 9126421

TabAppearance.TextColorHot = 9126421

TabAppearance.TextColorSelected = 9126421

TabAppearance.TextColorDisabled = clGray

TabAppearance.ShadowColor = 15255470

TabAppearance.HighLightColor = 16775871

TabAppearance.HighLightColorHot = 16643309

TabAppearance.HighLightColorSelected = 6540536

TabAppearance.HighLightColorSelectedHot = 12451839

TabAppearance.HighLightColorDown = 16776144

TabAppearance.BackGround.Color = 16767935

TabAppearance.BackGround.ColorTo = clNone

TabAppearance.BackGround.Direction = gdHorizontal

end

object AdvOfficePager13: TAdvOfficePage

Left = 1

Top = 26

Width = 398

Height = 333

Caption = 'AdvOfficePager13'

DoubleBuffered = True

PageAppearance.BorderColor = 14922381

PageAppearance.Color = 16445929

PageAppearance.ColorTo = 15587527

PageAppearance.ColorMirror = 15587527

PageAppearance.ColorMirrorTo = 16773863

PageAppearance.Gradient = ggVertical

PageAppearance.GradientMirror = ggVertical

TabAppearance.BorderColor = clNone

TabAppearance.BorderColorHot = 15383705

TabAppearance.BorderColorSelected = 14922381

TabAppearance.BorderColorSelectedHot = 6343929

TabAppearance.BorderColorDisabled = clNone

TabAppearance.BorderColorDown = clNone

TabAppearance.Color = clBtnFace

TabAppearance.ColorTo = clWhite

TabAppearance.ColorSelected = 16709360

TabAppearance.ColorSelectedTo = 16445929

TabAppearance.ColorDisabled = clWhite

TabAppearance.ColorDisabledTo = clSilver

TabAppearance.ColorHot = 14542308

TabAppearance.ColorHotTo = 16768709

TabAppearance.ColorMirror = clWhite

TabAppearance.ColorMirrorTo = clWhite

TabAppearance.ColorMirrorHot = 14016477

TabAppearance.ColorMirrorHotTo = 10736609

TabAppearance.ColorMirrorSelected = 16445929

TabAppearance.ColorMirrorSelectedTo = 16181984

TabAppearance.ColorMirrorDisabled = clWhite

TabAppearance.ColorMirrorDisabledTo = clSilver

TabAppearance.Font.Charset = DEFAULT_CHARSET

TabAppearance.Font.Color = clWindowText

TabAppearance.Font.Height = -11

TabAppearance.Font.Name = 'Tahoma'

TabAppearance.Font.Style = []

TabAppearance.Gradient = ggVertical

TabAppearance.GradientMirror = ggVertical

TabAppearance.GradientHot = ggRadial

TabAppearance.GradientMirrorHot = ggVertical

TabAppearance.GradientSelected = ggVertical

TabAppearance.GradientMirrorSelected = ggVertical

TabAppearance.GradientDisabled = ggVertical

TabAppearance.GradientMirrorDisabled = ggVertical

TabAppearance.TextColor = 9126421

TabAppearance.TextColorHot = 9126421

TabAppearance.TextColorSelected = 9126421

TabAppearance.TextColorDisabled = clGray

TabAppearance.ShadowColor = 15255470

TabAppearance.HighLightColor = 16775871

TabAppearance.HighLightColorHot = 16643309

TabAppearance.HighLightColorSelected = 6540536

TabAppearance.HighLightColorSelectedHot = 12451839

TabAppearance.HighLightColorDown = 16776144

TabAppearance.BackGround.Color = 16767935

TabAppearance.BackGround.ColorTo = clNone

TabAppearance.BackGround.Direction = gdHorizontal

end

object ListBox2: TListBox

Left = 488

Top = 56

Width = 121

Height = 97

ItemHeight = 13

Items.Strings = (

'1'

'2'

'3')

TabOrder = 1

end

object AdvListBox2: TAdvListBox

Left = 632

Top = 56

Width = 200

Height = 300

InsertOptions.Visible = False

Items = <

item

Text = '1'

end

item

Text = '2'

end

item

Text = '3'

end>

ParentColor = False

SearchOptions.Style = ssFilter

Style = stList

TabOrder = 2

end

unit Unit13;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, AdvListBox, Vcl.StdCtrls, AdvOfficePager,

AdvEdit, AdvEdBtn, AdvFileNameEdit;

type

TForm13 = class(TForm)

AdvOfficePager1: TAdvOfficePager;

AdvOfficePager11: TAdvOfficePage;

AdvOfficePager12: TAdvOfficePage;

AdvOfficePager13: TAdvOfficePage;

ListBox1: TListBox;

AdvListBox1: TAdvListBox;

ListBox2: TListBox;

AdvListBox2: TAdvListBox;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

{$R *.dfm}

procedure TForm13.FormCreate(Sender: TObject);

begin

ListBox1.ItemIndex := 0;

ListBox2.ItemIndex := 0;

AdvListBox1.ItemIndex := 0;

AdvListBox2.ItemIndex:=0;

end;

end.

brunofierens · September 19, 2016, 2:31pm

I could see the problem with TAdvListBox selection/background color and a fix has been applied.
I could not see an issue with the TListBox on TAdvOfficePager. What Delphi version do you use? We retested this here on Delphi 10.1 Berlin on Windows 10.