← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lcl/include/toolbar.inc

  • 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/include/toolbar.inc
5
5
 ******************************************************************************
6
6
 
7
7
 *****************************************************************************
8
 
 *                                                                           *
9
 
 *  This file is part of the Lazarus Component Library (LCL)                 *
10
 
 *                                                                           *
11
 
 *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    *
12
 
 *  for details about the copyright.                                         *
13
 
 *                                                                           *
14
 
 *  This program is distributed in the hope that it will be useful,          *
15
 
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
16
 
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
17
 
 *                                                                           *
 
8
  This file is part of the Lazarus Component Library (LCL)
 
9
 
 
10
  See the file COPYING.modifiedLGPL.txt, included in this distribution,
 
11
  for details about the license.
18
12
 *****************************************************************************
19
13
 
20
14
}
243
237
 
244
238
function TToolBar.IsVertical: Boolean;
245
239
begin
246
 
  if Align = alNone then
 
240
  if Align in [alNone, alClient, alCustom] then
247
241
    Result := Height > Width
248
242
  else
249
243
    Result := Align in [alLeft, alRight];
405
399
  UpdateVisibleBar;
406
400
end;
407
401
 
408
 
procedure TToolBar.BeginUpdate;
409
 
begin
410
 
  Inc(FUpdateCount);
411
 
end;
412
 
 
413
402
procedure TToolBar.EndUpdate;
414
403
begin
415
 
  Dec(FUpdateCount);
 
404
  inherited EndUpdate;
416
405
  if FUpdateCount=0 then begin
417
406
    if tbfUpdateVisibleBarNeeded in FToolBarFlags then
418
407
      UpdateVisibleBar;