[WSW]

'Support' wrote:

Насчет ошибки компиляции и 'Caption' – это нужно смотреть на месте, скорее всего что-то в самом проекте.

Проект лежит чуть выше, (http://www.alphaskins.com/forum/index.php?app=core&module=attach&section=attach&attach_id=6073) гляньте пожалуйста…

а пока свой проект использую без SkinProveder-а на форме…

C уважением WSW.

Win7 x64, Delphi XE2 (x32), AC 8.14

[WSW]

С выходом версии АС 8.14 проблема не исчезла… 🙁

[WSW]

Привет!

1. Вот ещё пример неправильной отрисовки при использовании TsFrameBar-а и, в частности, скина “Topaz”: при перетаскивании ползунка, “кнопки” не перерисовываются…

При использовании скина “Black Box” – такого не происходит!

2. При создании, в Realtime, на TsFrameBar нескольких TsComboBox-oв, размер, тех, что пока не видны больше, скорее всего на ширину VertScrollBar…

тут уже от скина не зависит…

Win7 x64, Delphi XE2 (x32), AC 8.13

Пример программы прилагаю…

С уважением WSW.

[WSW]

Старая тема…

У меня проблемка. Мне надо было прочитать Caption c “кнопки” TFrameBar-а, я сделал так:

Code:

procedure TForm2.sFrameBar1Items0Click(Sender: TObject);
begin
//тут ошибка при добавлении на форму sSkinProvider
ShowMessage((Sender as TsTitleButton).Caption);
end;

Но при этом забыл на форму добавить sSkinProvider, а когда его добавил, то возникла ошибка: [DCC Error] Unit2.pas(42): E2003 Undeclared identifier: 'Caption'

Вот… Как быть-то?

Win7 x64, Delphi XE2 (x32), AC 8.13

[WSW]

У меня такая же проблема со скином Topaz, а вот при использовании других скинов такого нет…

Но с Topaz-ом, после изменения размера формы появляется некрасивый “артефакт” как на рисунке Michael…

[WSW]

Вот посмотрите как меняется заголовок с названием колонок в зависимости от свойства DBGgidEh.Flat – не видно названия…

И если посмотреть на исходное состояние DBGridEh (верхний рисунок), где строки покрашены в синие тона, то после компиляции они уже серые…

Win7 x64, Delphi XE2/XE3 (x32), AC8.13, EhLib 6.0.046 Evalution version

Проект прилагаю.

[WSW]

Проблема в версии AC 8.13 устранена! 🙂 Спасибо!

С уважением WSW.

[WSW]

'elpik' wrote:

Погорячился я…

В версии 8.12 по прежнему есть проблемы с прорисовкой DBGrid на некотрорых скинах

например на скине (Beijing Ext.asz) повторное пере-открытие датасета не прорисовывается…

при этом нет проблем с прорисовкой на скине (iOS4.asz)

ЗЫ: С уважением elpik…

elpik, Скачал Ваш пример, никаких проблем не увидел. Пробовал на указанных Вами скинах. Всё рисуется нормально.

у меня Win7 x64, AC 8.12, Delphi XE2 (x32)

Code:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, StdCtrls, Grids, DBGrids, ExtCtrls, sPanel, DB, DBClient,
sSkinProvider, sSkinManager, Vcl.Buttons, sSpeedButton;

type
TForm1 = class(TForm)
Button1: TButton;
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
CheckBox1: TCheckBox;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
ClientDataSet1Test1: TStringField;
ClientDataSet1Test2: TStringField;
ClientDataSet1Test3: TStringField;
sPanel1: TsPanel;
DBGrid1: TDBGrid;
Label1: TLabel;
sSpeedButton1: TsSpeedButton;
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure sSpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
sSkinManager1.Active := not sSkinManager1.Active;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
DBGrid1.Enabled := CheckBox1.Checked;
sPanel1.Enabled := CheckBox1.Checked;
end;

procedure TForm1.sSpeedButton1Click(Sender: TObject);
begin
//тут я кнопочку добавил, для переоткрытия DataSet-a…
ClientDataSet1.Close;
ClientDataSet1.Open;
end;

end.

[WSW]

Не буду новую тему создавать, поскольку моя тема тоже касается неправильной отрисовки Menu…

Использую: Win7 x64, AC 8.12, Delphi XE2 (тоже самое в версии AC 8.10) сейчас использую версию AC 7.68 в ней такого нет.

Проблему на рисунке видно, описывать её не надо. Чем больше размер картинок, тем больше разезжается строка…

Код в файле “Alpha 8.12.rar”

[WSW]

Win7 x64, Delphi XE2, АС версия 7.64

PopupMenu и АС – работает! Спасибо! 🙂

[WSW]

'Support' wrote:

Постараюсь добавить обработку этого символа в следующей версии.

Win7 x64, Delphi XE2, АС версия 7.63: PopupMenu работает не так как хотелось бы…, см. скрин Pmenu.png…

может я что-то не так делаю…

вот код:

Code:

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, sSkinProvider, sSkinManager;

type
TForm1 = class(TForm)
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
PopupMenu1: TPopupMenu;
n1: TMenuItem;
n2: TMenuItem;
n3: TMenuItem;
n4: TMenuItem;
procedure PopupMenu1Popup(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
n1.Caption:='qwe'+#9+'qwe';
n2.Caption:='qweqwe'+#9+'qweqwe';
n3.Caption:='qweqweqwe'+#9+'qweqweqwe';
n4.Caption:='qweqweqweqwe'+#9+'qweqweqweqwe';
//sSkinManager1.SkinableMenus.HookPopupMenu(PopupMenu1,true);
end;

end.

скрин Pmenu2.png – это то, что получилось по коду описанному выше… post #3 (http://www.alphaskins.com/forum/index.php?showtopic=6370&view=findpost&p=36440)

[WSW]

'Torbins' wrote:

Можно еще попробовать с настройками скинменеджера поиграться. Включить ExtendedBorders, анимацию.

Не… ни как у меня не выходит…

[WSW]

'Torbins' wrote:

WSW при создании диалоговой формы, сразу же создавайте на ней скинпровайдер.

Torbins, что-то у меня не выходит… 🙁

Скинпровайдер создаю, но кнопка всё равно “съезжает”…

Code:

function WSW_MsgCreate(FormName: TForm; StCaption : string; Mesage: string; ImgNr: TMsgDlgType) : boolean;
var AMsgDialog : TForm;
SP : TsSkinProvider;
begin
AMsgDialog:=CreateMessageDialog(Mesage, ImgNr, [mbOk]);
SP:=TsSkinProvider.Create(AMsgDialog);
…
// и так пробовал…
// AMsgDialog.InsertComponent(SP);
// AMsgDialog.InheritsFrom(TsSkinProvider);

// SP.FormActive:=true;
// SP.Form:=AMsgDialog;
// SP.CaptForm:=AMsgDialog;
// SP.PrepareForm;
// SP.CaptFormPaint(AMsgDialog);
// SP.Create(AMsgDialog);
…

[WSW]

А ещё у меня вот такой косяк: использую свой модуль (WSW_Dlg) для создания диалогов и сообщений. Когда без АС то всё нормально работает, а когда использую АС – то, при нажатии мышью на Caption диалогового окна, кнопка “Закрытия диалога” – смещается и не скинируется. Я думаю тут я виноват, а не АС… Помогите исправить это…

Test_BtnClose.rar – пример программы и сам модуль WSW_Dlg.

Win7 (x64), Delphi XE2 (update 4), AC v.7.61

[WSW]

Вот (Test_PopupMenu.rar) примеры двух программ, одна без АС (меню выравнивается), вторая с АС (меню не выравнивается).

Только не понятно почему в первом случае выравнивание идёт по правому краю, хотелось бы по левому…

Win7 (x64), Delphi XE2 (update 4), AC v.7.61

[WSW]

alex000, спасибо!

[WSW]

Скачал версию 7.61 – грабли те же – не выравниваются пункты меню!!!

Может я не так, что делаю…

В стандартном PopupMenu (имею ввиду без AlphaSkins)- всё вравнивается…

[WSW]

Никто не знает что-ли?…

[WSW]

Извините, что так долго.

Версия 7.31

Код такой:

Code:

procedure TForm1.SozdaniePMSQL;
var p1menu,psubmenu : TMenuItem;

begin
p1menu:=TMenuItem.Create(self);
with (PMSQLMemo as TPopupMenu) do
begin
while Items.Count > 0 do Items[0].Free;

with p1menu do
begin
Caption:='Команды SQL';
psubmenu:=TMenuItem.Create(self); //создание ПОДменю **************
with psubmenu do
begin
Caption:='Выбрать'+#9+'(SELECT)';
OnClick:=Form1.SQL_AddText;
end;
Insert(0,psubmenu);

psubmenu:=TMenuItem.Create(self);
with psubmenu do
begin
Caption:='Всё'+#9+'(*)';
OnClick:=Form1.SQL_AddText;
end;
Insert(1,psubmenu);

psubmenu:=TMenuItem.Create(self);
with psubmenu do
begin
Caption:='Из'+#9+'(FROM)';
OnClick:=Form1.SQL_AddText;
end;
Insert(2,psubmenu);

psubmenu:=TMenuItem.Create(self);
with psubmenu do
begin
Caption:='Где'+#9+'(WHERE)';
OnClick:=Form1.SQL_AddText;
end;
Insert(3,psubmenu);

psubmenu:=TMenuItem.Create(self);
with psubmenu do
begin
Caption:='И'+#9+'(AND)';
OnClick:=Form1.SQL_AddText;
end;
Insert(4,psubmenu);

psubmenu:=TMenuItem.Create(self);
with psubmenu do
begin
Caption:='Или'+#9+'(OR)';
OnClick:=Form1.SQL_AddText;
end;
Insert(5,psubmenu);

psubmenu:=TMenuItem.Create(self);
with psubmenu do
begin
Caption:='Сортировать по'+#9+'(ORDER BY)';
OnClick:=Form1.SQL_AddText;
end;
Insert(6,psubmenu);
end; //**************************************************************
Items.Insert(0,p1menu);

p1menu:=TMenuItem.Create(self);
with p1menu do Caption:='-';
Items.Insert(1,p1menu);

…тут ещё создаются пункты меню…
end;

SkinManager.SkinableMenus.HookPopupMenu(PMSQLMemo,true);
end;

[WSW]

Что, никто не знает что-ли?

[Author]

Posts