[mhaps]

Finally we found out, that the programm was running on HyperV with only 8 bit color.

Increasing the color depth solved the problem.

[mhaps]

SkinManager is not active and should be set to active in OnShow (which is not reached).

[mhaps]

I've just noticed the version given in sSkinManager is already 6.47.

Date of sDBComboBox.pas is 19.10.09.

[mhaps]

Unfortunately not.
A simple demo form does not show this bug and I cannot send you the my app.

[mhaps]

Windows XP SP2

[mhaps]

It's even worth!

The whole form gets invalid. All TsEdits and the TsComboBox itself are not updated (repaint) correctly after changing style.

[mhaps]

That's better now. Thanks

The standard entries in system menu are now all in German. I will try with my app.

[mhaps]

Where is the updated demo, please?

[mhaps]

Version 6 is not installed on my PC. I will see, if I can compile your demo.

Running your exe shows the system menu completely in English.

[mhaps]

If my problem with the system menu is solved I will try to upgrade

[mhaps]

Here's the complete code:

CODE

uses
OleDB, ComObj, ActiveX;

function ADOConnectionString(ParentHandle: THandle; InitialString: WideString;
out NewString: string): Boolean;
var
DataInit: IDataInitialize;
DBPrompt: IDBPromptInitialize;
DataSource: IUnknown;
InitStr: PWideChar;
begin
Result := False;
DataInit := CreateComObject(CLSID_DataLinks) as IDataInitialize;
if InitialString '' then
DataInit.GetDataSource(nil, CLSCTX_INPROC_SERVER, PWideChar(InitialString),
IUnknown, DataSource);
DBPrompt := CreateComObject(CLSID_DataLinks) as IDBPromptInitialize;
if Succeeded(DBPrompt.PromptDataSource(nil, ParentHandle,
DBPROMPTOPTIONS_PROPERTYSHEET, 0, nil, nil, IUnknown, DataSource)) then
begin
InitStr := nil;
DataInit.GetInitializationString(DataSource, True, InitStr);
NewString := InitStr;
Result := True;
end;
end;

I am using Version 5.68 and Delphi 6.

[mhaps]

QUOTE (Support @ Jun 30 2009, 07:03 AM)

Hello
Could you show a screenshot or a working application (it's better) ?
Thanks.

[attachment=3371:DBConnection.bmp]

[mhaps]

F8 is not what I want.

I have code like

myProcedure( sCustomComboEdit1.text );

I'd like to debug myProcedure not sCustomComboEdit.pas, see?

[mhaps]

QUOTE (Support @ Jun 25 2009, 05:28 AM)

You must update the AlphaControls package to the latest release, menus translated automatically in the version 6.

V. 6.23 adds insult to injury, now the entries are mixed English and German!

[attachment=3369:ElfeSysMenu.bmp]

[Author]

Posts