[Денис]

Огромное спасибо!

[Денис]

Посмотрите последний пост в этой теме.

[Денис]

Прописать в событии FormCreate следующий код:

Code:

BorderStyle := bsSizeToolWin;

SetWindowLong( Handle, GWL_STYLE,
GETWINDOWLONG( Handle, GWL_STYLE ) and
( not WS_CAPTION ) );

Height := ClientHeight;
Width := ClientWidth;

Мне помогло

[Денис]

Тоже долго копал эту проблему. Попробуйте в ThirdPartyList заменить у грида GridEh на Edit. Мне помогло, скролл заработал, правда заколовки столбцов перестали скиниться.

[Денис]

А зачем сворачивать/восстанавливать приложение?

WinXP, Delphi 2006, AlphaControls v6.48 работает нормально. Достаточно кода:

CODE

sknmngr1.Active:=not chkXP.Checked; //Если чекбокс включен, то sSkinManager.Active = False;

Попробуйте sknmngr1.RepaintForms…

[Денис]

Воспользуйтесь TDBComboBox. Он нормально скинируется и скроллится.
А список значений подгружайте программно в Items.

[Денис]

Спасибо <img src="style_emoticons//rolleyes.gif” style=”vertical-align:middle” emoid=”:roll:” border=”0″ alt=”rolleyes.gif” />

[Денис]

QUOTE (Support @ Apr 14 2009, 03:59 PM)

Было и есть свойство SkinSection.
SkinData в этом контроле никогда не было…

Действительно, было SkinSection, но сейчас его нет. <img src="style_emoticons//wacko.gif” style=”vertical-align:middle” emoid=”:wacko:” border=”0″ alt=”wacko.gif” />

Посмотрел их описания в разных версиях.
В новой версии поменялся базовый класс…

Версия 6.20

CODE

TsDBText = class(TsLabel)
private
FDataLink: TFieldDataLink;
procedure DataChange(Sender: TObject);
function GetDataField: string;
function GetDataSource: TDataSource;
function GetFieldText: string;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
function GetField: TField;
protected
function GetLabelText: string; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure SetAutoSize(Value: Boolean); override;
procedure WndProc (var Message: TMessage); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function ExecuteAction(Action: TBasicAction): Boolean; override;
procedure Loaded; override;
function UpdateAction(Action: TBasicAction): Boolean; override;
function UseRightToLeftAlignment: Boolean; override;
property Field: TField read GetField;
published
property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource;
end;

Версия :6.22

CODE

TsDBText = class(TLabel)
private
FDataLink: TFieldDataLink;
procedure DataChange(Sender: TObject);
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetFieldText: string;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
protected
function GetLabelText: string; override;
procedure Loaded; override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure SetAutoSize(Value: Boolean); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function ExecuteAction(Action: TBasicAction): Boolean; override;
function UpdateAction(Action: TBasicAction): Boolean; override;
function UseRightToLeftAlignment: Boolean; override;

procedure WndProc (var Message: TMessage); override;
property Field: TField read GetField;
published
property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource;
end;

[Author]

Posts