[Gregory.P]

thank you AlphaControls v11.22 Stable released :a3:

[Gregory.P]

'Support' wrote:

I'll try to improve it.

thank you

[Gregory.P]

thank you

[Gregory.P]

thank you

[Gregory.P]

'AntonioPermskiy' wrote:

Добрый день,

Пробую перейти с XE2 на XE8. Установил соответствующие alpha-компоненты. sWebLabel утратил функциональность:

0. В designtime при изменении шрифта в ObjectInspector на форме изменения не отображаются(DesignTime.png)

1. В runtime нет реакции на изменение свойств sWebLabel.Font(проект во вложении)

Помогите, пожалуйста, разобраться.

Спасибо.

Xe8 No Problem

[attachment=8049:Capture.PNG]

[attachment=8050:Capture1.PNG]

[Gregory.P]

ContextMenus no skin : TsEdit, TsMemo, TsRichEdit, TComboBox, TsComboEdit, …

[attachment=8046:Sans titre.png]

[Gregory.P]

'Support' wrote:

Sorry, it's not possible.

Ok 😎

[Gregory.P]

Example sShellTreeView1

[attachment=8045:Capture.PNG]

[Gregory.P]

Thank you

[Gregory.P]

[attachment=8043:Capture.PNG]

Code:

private
{ Déclarations privées }
procedure WMCustomMessage(var Message: TMessage); Message WM_USER + 1024;

public
{ Déclarations publiques }
end;

var
Form1: TForm1;
ValueString: string;

implementation

{$R *.dfm}

const
ACaption = 'Caption';

procedure TForm1.sButton1Click(Sender: TObject);
begin
PostMessage(Handle, WM_USER + 1024, 0, 0);
ValueString := '123';
sInputQuery(ACaption, 'Prompt', ValueString);

try
StrToInt(ValueString);
except
ShowMessage('Error Value');
end;
end;

procedure TForm1.WMCustomMessage(var Message: TMessage);
var
S,C: Integer;
begin
for S := 0 to pred(Screen.FormCount) do
if Screen.Forms.Caption = ACaption then
begin
for C := 0 to pred(Screen.Forms.ControlCount) do
begin
if Screen.Forms.Controls[C] is TButton then
begin

[attachment=8044:Capture1.PNG]

If sInputQuery Password Add Ln :

Code:

TEdit(Screen.Forms.Controls[C]).PasswordChar := '*';

Code:

if TButton(Screen.Forms.Controls[C]).ModalResult = mrOK then
begin // Custom Caption Btn (OK)
TButton(Screen.Forms.Controls[C]).Caption :='Ok';
end;

if TButton(Screen.Forms.Controls[C]).ModalResult = mrCancel then
begin // Custom Caption Btn (Cancel)
TButton(Screen.Forms.Controls[C]).Caption := 'Close';
end;

end;
end;
end;
end; // END WMCustomMessage

:a3:

[Gregory.P]

TsComboEdit No Flashing Select Text :a3:

[Gregory.P]

'Support' wrote:

This control and some other new components will be released in the January, I think.

thank you 😉

[Gregory.P]

Thank you :a3:

[Gregory.P]

'Support' wrote:

Thank you, this error will be fixed in the nearest release (v11.22)

Thank you :a3:

[Gregory.P]

'Support' wrote:

I'm trying to repeat the error in a test app, but can't. Can you help me with a demo, please?

[attachment=8032:Test.zip]

[Gregory.P]

'Support' wrote:

Glyphs drawing will be added soon there, but not in the v11.22

thank you :a3:

[Gregory.P]

Alpha TsListbox problem mouse wheel flashes image

VCL standard TListbox no problem mouse wheel no flashes image

[Gregory.P]

'Support' wrote:

These glitches will be removed in the nearest release.

This topic will be moved to the “Troubleshooting” forum part.

Thank you

[Gregory.P]

'TAZ' wrote:

Is there a way to make the window hints (close button, maximize button, etc.) to show the same as Alpha hints? Right now on my project they show as your basic light yellow, black box. Thanks.

[attachment=7998:Capture.PNG]

[Gregory.P]

'Gregory.P' wrote:

Bug AlphaSkins Editor 11.18 (Gradient)

[attachment=7995:2016-11-08-10h21_32.gif]

Problem solved AlphaSkins Editor 11.19

[Author]

Posts