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

tvplanit: Define initial control size by GetControlClassDefaultSize. New icons in PrintPreview dialog. Consistent 3D look of TVpPrintPreview.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8469 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-10 20:38:31 +00:00
parent 770f452ecf
commit d2fe2df1e7
58 changed files with 247 additions and 454 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/tvplanit/source/vpclock.pas
View File

@@ -39,7 +39,7 @@ uses
{$ELSE}
Windows, Messages, VpTimerPool,
{$ENDIF}
SysUtils, Classes, Controls, Dialogs, Forms, Graphics, Menus, Math,
SysUtils, Graphics, Types, Classes, Controls, Dialogs, Forms, Menus, Math,
VpBase, VpLEDLabel;
type
@@ -227,6 +227,7 @@ type
procedure DoOnSecondChange;
procedure DoOnCountdownDone;
procedure PaintHands(ACanvas: TCanvas);
class function GetControlClassDefaultSize: TSize; override;
{windows message methods}
{$IFDEF LCL}
procedure WMResize(var Msg: TLMSize); message LM_SIZE;
@@ -580,8 +581,9 @@ constructor TVpCustomClock.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Width := 136;
Height := 136;
// Initial size of the control
with GetControlClassDefaultSize do
SetInitialBounds(0, 0, CX, CY);
FClockMode := cmClock;
@@ -787,7 +789,13 @@ begin
if Assigned (FOnCOuntdownDone) then
FOnCountdownDone(self);
end;
{=====}
{ Defines the initial size of the control. }
class function TVpCustomClock.GetControlClassDefaultSize: TSize;
begin
Result.CX := 136;
Result.CY := 136;
end;
function TVpCustomClock.GetElapsedDays: Integer;
var