pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

NiceSideBar: High-dpi support for Lazarus version.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8857 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-26 12:29:59 +00:00
parent 45880ce30c
commit c67979a1f9
3 changed files with 963 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

984
components/nicesidebar/Demo1/common/Unit1.lfm
View File

File diff suppressed because it is too large Load Diff

15
components/nicesidebar/Demo1/common/Unit1.pas
View File

@ -16,7 +16,12 @@ uses
Dialogs, StdCtrls, ExtCtrls, NiceSideBar, ImgList;
type
{ TForm1 }
TForm1 = class(TForm)
ImageList2: TImageList;
ImageList1: TImageList;
Shape1: TShape;
Shape2: TShape;
Label1: TLabel;
@ -24,8 +29,6 @@ type
Label3: TLabel;
Label4: TLabel;
NiceSideBar1: TNiceSideBar;
ImageList1: TImageList;
ImageList2: TImageList;
Label5: TLabel;
Panel1: TPanel;
Panel2: TPanel;
@ -58,7 +61,7 @@ type
procedure WMNCHittest(var Msg: TMessage); message WM_NCHITTEST;
{$ENDIF}
protected
procedure CreateParams(var Params: TCreateParams); override;
//procedure CreateParams(var Params: TCreateParams); override;
public
end;
@ -73,13 +76,13 @@ implementation
{$ELSE}
{$R *.dfm}
{$ENDIF}
{
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := (Params.Style and WS_POPUP or WS_BORDER) and not WS_DLGFRAME;
//Params.Style := (Params.Style and WS_POPUP or WS_BORDER) and not WS_DLGFRAME;
end;
}
procedure TForm1.Image1Click(Sender: TObject);
begin // not used
//ShowMessage('Wah, gampang sekali!!!!');