← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid

« back to all changes in this revision

Viewing changes to lcl/interfaces/win32/win32wscomctrls.pp

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Paul Gevers
  • Date: 2014-02-22 10:25:57 UTC
  • mfrom: (1.1.11)
  • Revision ID: package-import@ubuntu.com-20140222102557-ors9d31r84nz31jq
Tags: 1.2~rc2+dfsg-1
http://bugs.debian.org/724776
[ Abou Al Montacir ]
* New upstream pre-release.
  + Moved ideintf to components directory.
  + Added new package cairocanvas.
* Remove usage of depreciated parameters form of find. (Closes: Bug#724776)
* Bumped standard version to 3.9.5.
* Clean the way handling make files generation and removal.

[ Paul Gevers ]
* Remove nearly obsolete bzip compression for binary packages
  (See https://lists.debian.org/debian-devel/2014/01/msg00542.html)
* Update d/copyright for newly added dir in examples and components
* Update Vcs-* fields with new packaging location
* Update d/watch file to properly (Debian way) change upstreams versions
* Prevent 46MB of package size by sym linking duplicate files
* Patches
  - refresh to remove fuzz
  - add more Lintian found spelling errors
  - new patch to add shbang to two scripts in lazarus-src
* Drop lcl-# from Provides list of lcl-units-#
* Make lazarus-ide-qt4-# an arch all until it really contains stuff
* Make all metapackages arch all as the usecase for arch any doesn't
  seem to warrant the addition archive hit
* Fix permissions of non-scripts in lazarus-src-#

Show diffs side-by-side

added added

removed removed

Lines of Context:
lcl/interfaces/win32/win32wscomctrls.pp
1
 
{ $Id: win32wscomctrls.pp 35198 2012-02-07 05:00:15Z paul $}
 
1
{ $Id: win32wscomctrls.pp 43267 2013-10-17 20:11:32Z martin $}
2
2
{
3
3
 *****************************************************************************
4
4
 *                            Win32WSComCtrls.pp                             * 
8
8
 *****************************************************************************
9
9
 
10
10
 *****************************************************************************
11
 
 *                                                                           *
12
 
 *  This file is part of the Lazarus Component Library (LCL)                 *
13
 
 *                                                                           *
14
 
 *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    *
15
 
 *  for details about the copyright.                                         *
16
 
 *                                                                           *
17
 
 *  This program is distributed in the hope that it will be useful,          *
18
 
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
19
 
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
20
 
 *                                                                           *
 
11
  This file is part of the Lazarus Component Library (LCL)
 
12
 
 
13
  See the file COPYING.modifiedLGPL.txt, included in this distribution,
 
14
  for details about the license.
21
15
 *****************************************************************************
22
16
}
23
17
unit Win32WSComCtrls;
70
64
    class procedure RemovePage(const ATabControl: TCustomTabControl;
71
65
      const AIndex: integer); override;
72
66
 
 
67
    class function GetNotebookMinTabHeight(const AWinControl: TWinControl): integer; override;
 
68
    class function GetNotebookMinTabWidth(const AWinControl: TWinControl): integer; override;
73
69
    class function GetTabIndexAtPos(const ATabControl: TCustomTabControl; const AClientPos: TPoint): integer; override;
74
70
    class function GetTabRect(const ATabControl: TCustomTabControl; const AIndex: Integer): TRect; override;
75
71
    class function GetCapabilities: TCTabControlCapabilities;override;
174
170
    class function GetViewOrigin(const ALV: TCustomListView): TPoint; override;
175
171
    class function GetVisibleRowCount(const ALV: TCustomListView): Integer; override;
176
172
 
 
173
    class procedure SelectAll(const ALV: TCustomListView; const AIsSet: Boolean); override;
177
174
    class procedure SetAllocBy(const ALV: TCustomListView; const AValue: Integer); override;
178
175
    class procedure SetBorderStyle(const AWinControl: TWinControl; const ABorderStyle: TBorderStyle); override;
179
176
    class procedure SetColor(const AWinControl: TWinControl); override;
599
596
begin
600
597
  // Marquee progress bar on vista/w7 required to call default window proc to
601
598
  // setup the timer
602
 
  if (Msg = WM_PAINT) and ThemeServices.ThemesEnabled and
 
599
  if (Msg = WM_PAINT) and
 
600
     (Win32WidgetSet.CommonControlsVersion >= ComCtlVersionIE6) and
603
601
     (GetWindowLong(Window, GWL_STYLE) and PBS_MARQUEE = PBS_MARQUEE) then
604
602
    CallDefaultWindowProc(Window, Msg, WParam, LParam);
605
603
  Result := WindowProc(Window, Msg, WParam, LParam);
623
621
        Flags := Flags or PBS_SMOOTH;
624
622
      if (Orientation = pbVertical) or (Orientation = pbTopDown) then
625
623
        Flags := Flags or PBS_VERTICAL;
626
 
      if ThemeServices.ThemesEnabled and (Style = pbstMarquee) then
 
624
      if (Win32WidgetSet.CommonControlsVersion >= ComCtlVersionIE6) and
 
625
         (Style = pbstMarquee) then
627
626
        Flags := Flags or PBS_MARQUEE;
628
627
    end;
629
628
    pClassName := PROGRESS_CLASS;
632
631
  // create window
633
632
  FinishCreateWindow(AWinControl, Params, False);
634
633
  Result := Params.Window;
635
 
  if (ThemeServices.ThemesEnabled) and
 
634
  if (Win32WidgetSet.CommonControlsVersion >= ComCtlVersionIE6) and
636
635
     (TCustomProgressBar(AWinControl).Style = pbstMarquee) then
637
636
    SendMessage(Result, PBM_SETMARQUEE, WParam(LongBool(True)), DefMarqueeTime);
638
637
end;
676
675
begin
677
676
  if not WSCheckHandleAllocated(AProgressBar, 'SetStyle') then
678
677
    Exit;
679
 
  if ThemeServices.ThemesEnabled then
 
678
  if (Win32WidgetSet.CommonControlsVersion >= ComCtlVersionIE6) then
680
679
  begin
681
680
    // Comctl32 >= 6
682
681
    Style := GetWindowLong(AProgressBar.Handle, GWL_STYLE);