[Witcher]

What version of AlphaControls do you use?

I have made checking with 14.29 – all cell's content draws correctly with XPLina and XPSilver skins.

[Witcher]

Hello!

Something wrong with your code sample.

For example, what about DataSource and Parent for your Grid?

I wrote code to check your question and my code works perfectly:

Code:

procedure TForm1.FormShow(Sender: TObject);
var
i : Integer;
sDBGrid: TsDBGrid;
begin
sDBGrid := TsDBGrid.Create(Self); // Create sDBGrid instance
sDBGrid.Parent := Self; // Grid will be placed on Form1
sDBGrid.DataSource := dsApps; // dsApps is TDataSource component created in design-time and linked to TClientDataSet instance
sDBGrid.Columns.Clear; // Clear columns for sure
cdsApps.Open; // Activate our dataset
for i := 0 to cdsApps.FieldCount – 1 do
Begin
sDBGrid.Columns.Add;
sDBGrid.Columns.Field := cdsApps.Fields;
sDBGrid.Columns.FieldName := cdsApps.Fields.FieldName;
sDBGrid.Columns.Title.Caption := cdsApps.Fields.DisplayLabel + '_test'; // “_test” suffix placed here to
// view difference between default column title values
End;
end;

So, it seems that your question not related with AlphaControls directly, because your sample above will not works with any DBGrid.

[Witcher]

'John wrote:

Hi all..

I am testing Alpha Controls trying to convert a vcl app to AC.

Where should I start ?? I've tried the alphaconvert utility but nothing was converted.

Which is the right way to do it ?

Thanks

Hi!

First of all: do you read this manual?

If you made all steps and still have not converted application, please shortly describe what do you do, step by step. We'll try to help you.

[Witcher]

No, unfortunately. Only Delphi/C++ Builder.

[Witcher]

Есть мысль просто на ру-борде (например) сделать ветку (если это возможно будет). Ведь отлично знаем, что многие из СНГ там бывают и АС с сворцами там в обменнике есть 🙂 Тем не менее, там русскоязычное сообщество больше.

[Witcher]

'Simba' wrote:

а где именно?

Попробуйте так:

Code:

sPageControl.SkinData.CustomFont := True;
sPageControl.Font.Color := clBlue;

P.S. В инспекторе объектов в дизайн-тайм так же можно задать эти значиния.

[Witcher]

Добрый день!

Если я верно помню, то с диалоговыми компонентами с вкладки VistaDialogs в IDE есть проблема с тем, что полностью не получается их заскинить, да и как это реализовать – не совсем ясно. Потому чтоб не было полускиновых диалогов и жалоб на это – диалогов в стиле Vista/Seven нет.

[Witcher]

1. Если у стандартной не скинованной формы убрать бордер через bsNone и ресайзится оно тоже не будет.

2. Следовательно, у скинованной формы тоже не будет ресайза. Но тень при этом сделать можно. Копать в сторону API-стилей окна.

Т.е. переопределить CreateParams у окна. Как-то так, примерно:

Code:

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
begin
Style := Style or CS_DROPSHADOW; //Применяем тень
ExStyle := WS_EX_TOPMOST; //Особенность такая – форма должна быть самой верхней.
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Обработчик OnCreate формы. Важно: GetClassLong в API уже deprecated вроде как!
SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or $20000);
end;

Не идеальное решение, возможны и другие варианты, но копать именно сюда, в сторону WinAPI. Ну и размер формы попробовать менять через отлов сообщения WM_CHITTEST (не уверен в этом). Либо:

3. Можно увидеть, что во многих скинах тень формы, “свечение” (glowing) реализованы в ExtendedBorders. ExtendedBorders состоят из 4-х границ (верх, низ, лево, право). Так вот можно попробовать сделать тень справа и снизу только.

А бордеры при этом убрать визуально попробовать в скин-редакторе правкой скин-секции FORM.

Только экспериментировать, в общем.

[Witcher]

Да, политика партии.

Более детально:

Поддержка (и форум в частности) очень много времени отнимает. Например, я тут практически не появляюсь давно уже с ответами, а Support'у тяжеленько и форумом, и пакетом заниматься, и библиотекой и другими делами. Есть и технические причины.

Потому форум пока что спрятан на данный момент. Есть вероятность, что форум будет совсем закрыт (оставлен режим read-only для чтения прошлых ответов/решений). Или будет реорганизован как-то. Пока в размышлениях.

[Witcher]

Здравствуйте!

А если выключить sSkinManager (Active = False) – такое тоже наблюдается?

[Witcher]

Проблема с лупой в стандартной демке АС воспроизводится у вас или такое только в новом проекте?

Версия библиотеки, я полагаю, 8.31 бета?

Quote:

Вообще эта версия вся с багами

Так 8.31 имеет статус “бета”, так что не удивительно, что баги наличествуют 🙂

А вообще сообщайте о них, будут испраляться по мере возможностей.

[Witcher]

А более детально уточнить можете, на каких архивах нет паролей?

[Witcher]

Здавствуйте!

Да, исчезла. Но так надо 🙂

[Witcher]

There is TsDBGrid in AlphaDB package, also many grids supported by sSkinManager.ThirdParty property. E.g. standard VCL Grids, TwwDBGrid, cxGrid from Developer Express QuantumGrid suite, DBGridEh from EhLib package, etc. Please, look at sSkinManager.ThirdParty list to see supported components.

[Witcher]

Скорее всего речь идет о свойстве TextHint. В некоторых скинах (навскидку, в BlueGauze) на самом деле при пустом Edit'е значение этого свойства практически невидимо.

[Witcher]

Очень странно это. У меня, например, при билде никаких dcu от АС в папке с проектом не генерится, ни в дебаге, ни в релизе. Там только dcu самого проекта. Delphi 2010 Pro.

[Witcher]

Вот это (Lazy Delphi Builder) не только лишь инсталлятор, но вполне удобная вещь, которая, возможно, будет полезной. Скачать можно на домашней страничке проекта.

[Witcher]

Все верно написано, лицензия №4: AlphaControls one year* license without sources (for one developer). Она бесплатна для жителей СНГ, если скачивать ее не из рубрики Prices, а с той странички, ссылку на которую дал Torbins. Если хотите купить пакет, то да, для жителей СНГ при именно покупке скидка в 50%. В общем, там все написано, но если есть еще не понятные моменты, спрашивайте, постараемся ответить.

[Witcher]

Все почти точно так же, только на Дельфи:

Code:

procedure TForm1.ApplicationEvents1ShowHint(var HintStr: string;
var CanShow: Boolean; var HintInfo: THintInfo);
begin
if (HintInfo.HintControl.ClassNameIs('TComboBox')) then//у ComboBox ShowHint=true
begin
if(Canvas.TextWidth((HintInfo.HintControl as TComboBox).Text) > (HintInfo.HintControl as TComboBox).ClientWidth) then
begin
HintStr := (HintInfo.HintControl as TComboBox).Text;
ApplicationEvents1.CancelDispatch;
end;
end;
end;

[attachment=5562:3.png]

Quote:

на мой взгляд, было бы удобно добавить это прямо в компонент, дабы расширить его возможности.

Выше я уже говорил, что подумаем над этим.

[Witcher]

Спасибо за демку.

К сожалению, баг не задетектился у меня на WinXP SP3. Использовал ваш EXE. Вот скрин:

[attachment=5561:e3b8d310.png]

Мда, плохо, когда баг воспроизвести не получается, в таком случае победить его гораздо труднее.

[Author]

Posts