Forum Replies Created
-
Posts
-
Maybe TsLabelFX could use GDI+ DrawString instead of GDI DrawText?
Stephane Senecal
CIS Group
Delphi programmer since 2001The way I do it, is to get the coordinates of the cursor from the message by calling GetMessagePos() and get the tab under those coordinates.
Note that GetMessagePos() return the cursor position relative to the display, not the PageControl.
Code:procedure TForm1.sPageControl1Changing(Sender: TObject; var AllowChange: Boolean);
var
iCoord:Cardinal;
pt:TPoint;
iFromTab:Integer;
iToTab:Integer;
begin
iCoord := GetMessagePos();
pt := sPageControl1.ScreenToClient( Point( LoWord( iCoord ), HiWord( iCoord ) ) );iToTab := sPageControl1.GetTabUnderMouse( pt );
iFromTab := sPageControl1.ActivePageIndex;
end;Stephane Senecal
CIS Group
Delphi programmer since 2001I tried to put a TsSkinManager in a TDataModule and it works quite well.
The only thing special I noticed, is that you must open the DataModule unit in the IDE for controls to be skinned at design.
Note that auto-create does not mean auto-show. Only the main form will be shown automatically, unless Application.ShowMainForm = False.
Set DataModules to be auto-created before Forms.
Stephane Senecal
CIS Group
Delphi programmer since 2001It's funny how the text of the question is exactly the same as the one from HeDiBo in the first link in reference.
Stephane Senecal
CIS Group
Delphi programmer since 2001That works too.
Code:procedure TForm1.FormShow(Sender: TObject);
const
TVS_NOHSCROLL = 32768;
begin
SetWindowLong( TreeView1.Handle, GWL_STYLE, GetWindowLong( TreeView1.Handle, GWL_STYLE ) or TVS_NOHSCROLL );
TreeView1.Items.AddChild(nil, 'dlsahskjhagsdhfaksfjhsdkfjH');
end;Stephane Senecal
CIS Group
Delphi programmer since 2001Code:procedure TTreeView.CreateParams(var Params: TCreateParams);
const
TVS_NOHSCROLL = 32768;
begin
inherited;
Params.Style := Params.Style or TVS_NOHSCROLL;
end;Stephane Senecal
CIS Group
Delphi programmer since 2001Much better!
I was looking for something like this, but I couldn't find it.
Thank you
'Support' wrote:Will be better to use the acColorToRGB function.
slBtnGreenText is not RGB color, this color should be converted to the current skin color:
Code:lfx.Kind.Color := acColorToRGB(slBtnGreenText);Uses sVCLUtils;
Stephane Senecal
CIS Group
Delphi programmer since 2001it seems to work that way.
lfx.Kind.Color := $FFFFFF and slBtnGreenText;
Stephane Senecal
CIS Group
Delphi programmer since 2001I was doing some test with this control when I noticed the absence of the property SkinData which seemed odd.
I would have liked to set it to RIBBONTAB.
I am not currently using this control, so it is not a priority.
Stephane Senecal
CIS Group
Delphi programmer since 2001Here it is.
I noticed that the exe is about a 100KB larger than yours, but I didn't find what was different.
Maybe, you'll be more lucky than me.
Stephane Senecal
CIS Group
Delphi programmer since 2001I would like to know if you have abandoned the search for a fix since you don't seem to be able to reproduce the problem on your side?
Stephane Senecal
CIS Group
Delphi programmer since 2001Not sure if I understand your question well.
You can change what ever you want in your project.
But, as I said, I open your test project in Delphi 7, run it with F9 and the content of the frame doesn't resize.
Stephane Senecal
CIS Group
Delphi programmer since 2001If I remove the code you changed between 13.16 and 13.17 in sFrameAdapter.pas it works correctly (var bRecFlag:boolean).
But I suppose this code is there to fix another problem.
Stephane Senecal
CIS Group
Delphi programmer since 2001If I run the exe, it runs correctly. If I compile it, it does not.
Stephane Senecal
CIS Group
Delphi programmer since 2001
