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

LazStats: Beginning to use TAChart inside FreqUnit. Trying to avoid annoying FreqSpecs dialogs. Not complete, yet. Some simplifications in other units (InitForm)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7688 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-23 11:19:08 +00:00
parent 3395fc8847
commit 202d0b5559
9 changed files with 700 additions and 420 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
applications/lazstats/source/units/utils.pas
View File

@ -5,12 +5,14 @@ unit Utils;
interface
uses
Classes, SysUtils, Graphics, Controls, StdCtrls, ComCtrls, Dialogs,
Classes, SysUtils, Graphics, Controls, StdCtrls, ComCtrls, Dialogs, Forms,
Globals;
type
TToolbarPosition = (tpTop, tpLeft, tpRight);
procedure InitForm(AForm: TForm);
procedure AddButtonToToolbar(AToolButton: TToolButton; AToolBar: TToolBar);
procedure InitToolbar(AToolbar: TToolbar; APosition: TToolbarPosition);
@ -48,6 +50,13 @@ begin
end;
procedure InitForm(AForm: TForm);
begin
AForm.Width := AForm.Scale96ToFont(DEFAULT_WIDTH);
AForm.Height := AForm.Scale96ToFont(DEFAULT_HEIGHT);
end;
procedure InitToolbar(AToolbar: TToolbar; APosition: TToolbarPosition);
begin
// AToolbar.Transparent := false;