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

jvcllaz: Fix JvHMI package name case. Fix compilation in Linux. Add color selection to demo program of DialButton.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6946 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-25 18:41:09 +00:00
parent bc9e8f14dc
commit bf30233549
7 changed files with 59 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/jvcllaz/run/JvHMI/jvdialbutton.pas
View File

@ -125,8 +125,8 @@ type
// procedure CMCtl3DChanged(var Msg: TLMessage); message CM_CTL3DCHANGED;
// procedure WMSysColorChange(var Msg: TLMessage); message LM_SYSCOLORCHANGE;
// procedure WndProc(var Msg: TLMessage); override;
procedure FocusSet(PrevWnd: THandle); override;
procedure FocusKilled(NextWnd: THandle); override;
// procedure FocusSet(PrevWnd: THandle); override;
// procedure FocusKilled(NextWnd: THandle); override;
procedure ColorChanged; override;
procedure ParentColorChanged; override;
procedure DrawBorder; dynamic;
@ -929,7 +929,6 @@ const
HalfPi = 1.57079632679489661923;
var
Edge: Integer;
ButtonRect: TRect;
Face, Highlight, Shadow: TColor;
Size: Integer;
OldOrg: TPoint;
@ -938,7 +937,6 @@ var
lColor: TColor;
begin
Size := 2 * FRadius + 1;
ButtonRect := Bounds(0, 0, Size, Size);
lCanvas := FBitmap.Canvas;
lCanvas.Brush.Color := Parent.Brush.Color;
lCanvas.Brush.Style := bsSolid;
@ -1072,6 +1070,8 @@ begin
end;
end;
{ - strange: does not compile in qt with these methods...
procedure TJvCustomDialButton.FocusKilled(NextWnd: THandle);
begin
inherited FocusKilled(NextWnd);
@ -1085,7 +1085,7 @@ begin
if HandleAllocated then
DrawBorder;
end;
}
procedure TJvCustomDialButton.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var