ew8bak/ewsdr
1
0
Fork 0
mirror of https://git.vladimir.cc/vladimir/ewsdr.git synced 2026-08-25 20:37:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

rx2 support work

Browse Source
This commit is contained in:
ew8bak
2026-05-27 11:29:39 +03:00
parent 047c9b0997
commit c2ca52511c
4 changed files with 1290 additions and 258 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SampleRateOverlay.pas
+8 -1
View File
@@ -26,6 +26,7 @@ type
FOnSpanSelect: TSpanSelectEvent;
FOnHidePanel: THidePanelEvent;
FOnInvalidate: TNotifyEvent;
FFirstButtonCaption: string;
FLeft: Integer;
FTop: Integer;
FWidth: Integer;
@@ -54,6 +55,7 @@ type
property Width: Integer read FWidth;
property Height: Integer read FHeight;
property HotIdx: Integer read FHotIdx;
property FirstButtonCaption: string read FFirstButtonCaption write FFirstButtonCaption;
property OnSpanSelect: TSpanSelectEvent read FOnSpanSelect write FOnSpanSelect;
property OnHidePanel: THidePanelEvent read FOnHidePanel write FOnHidePanel;
property OnInvalidate: TNotifyEvent read FOnInvalidate write FOnInvalidate;
@@ -200,7 +202,12 @@ begin
C.Brush.Style := bsClear;
C.Rectangle(HR);
C.Font.Size := 8;
if FPanelHidden then Cap := '>' else Cap := '<';
if FFirstButtonCaption <> '' then
Cap := FFirstButtonCaption
else if FPanelHidden then
Cap := '>'
else
Cap := '<';
TW := C.TextWidth(Cap);
C.Font.Color := CLR_TEXT;
C.Brush.Style := bsClear;