paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 09:32:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

better looking arrow, not ideal, but better anyway (fixes #760)

Browse Source 
git-svn-id: trunk@7146 -
This commit is contained in:
micha 2005-05-05 14:51:05 +00:00
parent 560e203e67
commit 84421fe81f
2 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32int.pp
View File

@ -241,7 +241,7 @@ Uses
Win32WSStdCtrls,
// Win32WSToolwin,
////////////////////////////////////////////////////
Calendar, CListBox, Spin, CheckLst, WinExt, LclProc;
Arrow, Calendar, CListBox, Spin, CheckLst, WinExt, LclProc;
type
{ Linked list of objects for events }
@ -301,6 +301,9 @@ End.
{ =============================================================================
$Log$
Revision 1.139 2005/05/05 14:51:05 micha
better looking arrow, not ideal, but better anyway (fixes 760)
Revision 1.138 2005/05/05 12:57:43 micha
improve click-focus-click implies doubleclick heuristic to check for focus change within handling of mouseclick

22
lcl/interfaces/win32/win32lclintf.inc
View File

@ -30,14 +30,19 @@
//##apiwiz##sps## // Do not remove
procedure TWin32WidgetSet.DrawArrow(Arrow: TComponent; Canvas: TPersistent);
const
{ up, down, left, right }
ArrowTypeToState: array[TArrowType] of dword = (DFCS_SCROLLUP, DFCS_SCROLLDOWN,
DFCS_SCROLLLEFT, DFCS_SCROLLRIGHT);
var
drawRect: Windows.RECT;
canvasHandle: HDC;
begin
Windows.DrawFrameControl(TCanvas(Canvas).Handle,
{$ifdef VER1_0}
Windows.RECT(TControl(Arrow).ClientRect),
{$else}
TControl(Arrow).ClientRect,
{$endif}
DFC_MENU, DFCS_MENUARROW);
drawRect := TControl(Arrow).ClientRect;
canvasHandle := TCanvas(Canvas).Handle;
Windows.FillRect(canvasHandle, drawRect, GetSysColorBrush(COLOR_BTNFACE));
Windows.DrawFrameControl(TCanvas(Canvas).Handle, drawRect,
DFC_SCROLL, ArrowTypeToState[TArrow(Arrow).ArrowType]);
end;
{------------------------------------------------------------------------------
@ -188,6 +193,9 @@ End;
{ =============================================================================
$Log$
Revision 1.22 2005/05/05 14:51:05 micha
better looking arrow, not ideal, but better anyway (fixes 760)
Revision 1.21 2005/02/23 01:12:47 marc
+ Added RemoveProp winapi call
* Some maintenace on winapi/lclintf files