Forum Replies Created
-
Posts
-
'Support' wrote:
Hello!
System colors are depended from skin colors if this property is True. BtnFace color is changed also and equal to the main skin color usually.
I can add a special “pcGrid” color to the SkinManager.palette for using in such cases.
Or you can use this code now for calculating a color:
Code:uses sGraphUtils;
…
Canvas.Pen.color := BlendColors(sSkinManager.Palette[pcEditText], sSkinManager1.Palette[pcEditBG], 38);But, if you have a constant white background there, then you can just make this color unchangeable, like $D0D0D0, I think.
thank you
'Support' wrote:How can I repeat it? Maybe you can give me this project?
[attachment=8125:Project1.zip]
'Diezko' wrote:Прошу прощения, не Changing , а PageChanging и проверяйте не через ShowMessage (так все норм), а к примеру так:
Code:void __fastcall TForm1::sPageControl1PageChanging(TObject *Sender, TsTabSheet *NewPage,
bool &AllowChange)
{
Memo1->Lines->Add(“123”);
}
//—————————————————————————Yes, there is a problem :a3:
Code:procedure TForm1.sPageControl1PageChanging(Sender: TObject; NewPage: TsTabSheet;
var AllowChange: Boolean);
begin
Smemo1.Lines.Add('123');
end;'Support' wrote:Hello!
This form is Modal? Can you give me a Dfm file for this form? Or maybe you have a ready test-app already?
Yes Form Show Modal
It does not make all the time
no problem :cs:
Code:procedure TForm1.sPageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
ShowMessage('Test PageControl Changing');
end;The event is triggered once
'TAZ' wrote:Using a status bar as a container for other controls has always been a problematic iffy when the form is sizable. You have to add code in the form's resize event to control something like what you are doing.
I use a TsPanel and set its SkinSection to STATUSBAR. Works perfectly and you cannot tell the difference.
Just a thought.
thank you TAZ :a3:
'Support' wrote:Do you have sources of the AlphaControls package? I can send some patched files in this case.
Package AlphaControls v11.22 Stable released ?
'Support' wrote:Thank you for the demo. This is a standard behaviour, OnClick event is not fired in standard TCombobox too.
Ok DropDown event = OnClick event :a3:
Code:procedure TForm1.sComboBox1DropDown(Sender: TObject);
beginsComboBox1.Clear;
with sComboBox1.Items do
begin
Add('1');
Add('2');
Add('3');
end;sComboBox1.ItemIndex := 0;
end;'Support' wrote:I will try to fix it in the nearest release. But animation of form showing must be deactivated in this case.
Problem solved –> TApplicationEvents Activate Form
Code:procedure TForm1.ApplicationEvents1Activate(Sender: TObject);
begin
Form2 := TForm2.Create(Application);if Form2.ShowModal = mrCancel then
Application.Terminate;
end;Animation Form no Problem :a3:
[attachment=8065:Code.zip]
'Stertor' wrote:Странно, что Alphaskins VCL не включает в себя столь нужный компонент.
Такая штука есть в джедайке, но не оскинивается.
TsComboBox : OnClick
Code:procedure GetDriveLetters(AList: TStrings);
var
vDrivesSize: Cardinal;
vDrives: array[0..128] of Char;
vDrive: PChar;
begin
AList.BeginUpdate;try
AList.Clear;
vDrivesSize := GetLogicalDriveStrings(SizeOf(vDrives), vDrives);if vDrivesSize = 0 then Exit;
vDrive := vDrives;
while vDrive^ #0 do
begin
AList.Add(StrPas(vDrive));
Inc(vDrive, SizeOf(vDrive));
end;finally
AList.EndUpdate;
end;end;
:a3:
