paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 19:32:49 +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, Win32WSStdCtrls,
// Win32WSToolwin, // Win32WSToolwin,
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
Calendar, CListBox, Spin, CheckLst, WinExt, LclProc; Arrow, Calendar, CListBox, Spin, CheckLst, WinExt, LclProc;
type type
{ Linked list of objects for events } { Linked list of objects for events }
@ -301,6 +301,9 @@ End.
{ ============================================================================= { =============================================================================
$Log$ $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 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 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 //##apiwiz##sps## // Do not remove
procedure TWin32WidgetSet.DrawArrow(Arrow: TComponent; Canvas: TPersistent); 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 begin
Windows.DrawFrameControl(TCanvas(Canvas).Handle, drawRect := TControl(Arrow).ClientRect;
{$ifdef VER1_0} canvasHandle := TCanvas(Canvas).Handle;
Windows.RECT(TControl(Arrow).ClientRect), Windows.FillRect(canvasHandle, drawRect, GetSysColorBrush(COLOR_BTNFACE));
{$else} Windows.DrawFrameControl(TCanvas(Canvas).Handle, drawRect,
TControl(Arrow).ClientRect, DFC_SCROLL, ArrowTypeToState[TArrow(Arrow).ArrowType]);
{$endif}
DFC_MENU, DFCS_MENUARROW);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -188,6 +193,9 @@ End;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.21 2005/02/23 01:12:47 marc
+ Added RemoveProp winapi call + Added RemoveProp winapi call
* Some maintenace on winapi/lclintf files * Some maintenace on winapi/lclintf files