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

tvplanit: Fix LCLScaling in TVpLEDLabel and TVpClock. Some refactoring.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8474 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-11 22:34:04 +00:00
parent bf1712ff85
commit 91dc676e62
6 changed files with 258 additions and 195 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
components/tvplanit/examples/gadgets/unit1.pas
View File

@ -110,18 +110,18 @@ procedure TForm1.CbNewClockFaceChange(Sender: TObject);
begin
if CbNewClockFace.Checked then begin
VpClock.AnalogOptions.ClockFace.LoadFromFile('clockface.bmp');
VpClock.AnalogOptions.HourHandWidth := 2;
VpClock.AnalogOptions.MinuteHandWidth := 2;
VpClock.AnalogOptions.SecondHandWidth := 1;
VpClock.Width := 100;
VpClock.Height := 100;
VpClock.AnalogOptions.HourHandWidth := Scale96ToFont(2);
VpClock.AnalogOptions.MinuteHandWidth := Scale96ToFont(2);
VpClock.AnalogOptions.SecondHandWidth := Scale96ToFont(1);
VpClock.Width := Scale96ToFont(100);
VpClock.Height := Scale96ToFont(100);
end else begin
VpClock.AnalogOptions.ClockFace := nil;
VpClock.AnalogOptions.HourHandWidth := 4;
VpClock.AnalogOptions.MinuteHandWidth := 3;
VpClock.AnalogOptions.SecondHandWidth := 1;
VpClock.Width := 200;
VpClock.Height := 200;
VpClock.AnalogOptions.HourHandWidth := Scale96ToFont(4);
VpClock.AnalogOptions.MinuteHandWidth := Scale96ToFont(3);
VpClock.AnalogOptions.SecondHandWidth := Scale96ToFont(1);
VpClock.Width := Scale96ToFont(200);
VpClock.Height := Scale96ToFont(200);
end;
VpClock.AnalogOptions.DrawMarks := not CbNewClockFace.Checked;
if RgDisplayMode.ItemIndex = ord(dmAnalog) then
@ -190,10 +190,9 @@ begin
dmAnalog:
CbNewClockFaceChange(nil);
dmDigital:
begin
VpClock.Width := 136;
VpClock.Height := 30;
end;
;
// The clock is not freely sizeable in digital display mode
// VpClock.SetBounds(VpClock.Left, VpClock.Left, Scale96ToForm(136), Scale96ToForm(30));
end;
CbMilitaryTime.Visible := VpClock.DisplayMode = dmDigital;
CbNewClockface.Visible := VpClock.DisplayMode = dmAnalog;