[Gregory.P]

'Gregory.P' wrote:

Bug AlphaSkins Editor 11.18 (Change scale 125 / 150 = scale 100 TAB no activate)

[attachment=7996:2016-11-08-14h31_19.gif]

Problem solved AlphaSkins Editor 11.19

[Gregory.P]

problem solved

[attachment=7992:Capture.PNG]

[Gregory.P]

Uses library “Vcl.Graphics, sPanel” Compile Error Unit sPanel : uses Graphics

[attachment=7988:Capture.PNG]

[attachment=7989:Capture1.PNG]

[attachment=7990:Capture3.PNG]

I'm stuck in my project, I need the dialogue in my library (sMessageDlg) 🙁

thank you very much

[Gregory.P]

Win32

Application OK Uses (Vcl.Dialogs, Vcl.Graphics)

[attachment=7984:Capture3.PNG]

[attachment=7985:Capture 4.PNG]

Library Error Uses (Dialogs, Graphics) or (Vcl.Dialogs, Vcl.Graphics);

[attachment=7986:Capture.PNG]

[attachment=7987:Capture2.PNG]

[Gregory.P]

'Support' wrote:

Looks like a bug in the IDE. You tried to reload the Delphi or reinstall the package?

Close Delphi , Run Delphi problem solved, bug dans l'IDE Xe8

thank you

[Gregory.P]

sEdit1 –> sDbGrid1 = SetFocus sDbGrid1 OK :a3:

Code:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((key = vk_up) or (key = vk_down)) then
begin
sDBGrid1.SetFocus;
end;
end;

sComboEdit1 –> sDbGrid1 = No SetFocus sDbGrid1 :cs:

sEdit1 –> sComboEdit1 = SetFocus sComboEdit1 OK :a3:

sComboEdit1 –> sEdit1 = No SetFocus sEdit1 :cs:

Code:

procedure TForm1.sComboEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((key = vk_up) or (key = vk_down)) then
begin
sEdit1.SetFocus;
end;
end;

Problème SetFocus TsComboEdit 😛

[Gregory.P]

Exemple :

Code:

procedure TForm1.sComboEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = vk_up) then
begin
ADOTable1.Prior;
sComboEdit1.Text := ADOTable1.FieldByName('Champ').Text;
end;

if (key = vk_down) then
begin
ADOTable1.Next;
sComboEdit1.Text := ADOTable1.FieldByName('Champ').Text;
end;

if Key = Vk_Return then
begin
ADOTable1.Edit;
ADOTable1.FieldByName('Champ').Text := sComboEdit1.Text;
ADOTable1.Post;
end;
end;

[Gregory.P]

thank you

[Gregory.P]

thank you

[Gregory.P]

'Gregory.P' wrote:

AlphaControls v11.18

Bug TPageControl TTabSheet ImageIndex

sPageControl1 Images –> sAlphaImageList1 (2 Images)

sTabSheet1 [Click] List ImageIndex = 0 Image

[attachment=7945:Sans titre.png]

DataModule: (sSkinManager1 and DataModule) : List ImageIndex (TTabSheet, TsSpeedButton, TsImage, …) N/A

Form : (sSkinManager1 and Form) : List ImageIndex (TTabSheet, TsSpeedButton, TsImage, …) OK :a3:

Problem solved 😀

[Author]

Posts