← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lcl/interfaces/customdrawn/customdrawnobject.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/interfaces/customdrawn/customdrawnobject.inc
1
1
{%MainUnit customdrawnint.pas}
2
2
{
3
3
 *****************************************************************************
4
 
 *                                                                           *
5
 
 *  This file is part of the Lazarus Component Library (LCL)                 *
6
 
 *                                                                           *
7
 
 *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    * 
8
 
 *  for details about the copyright.                                         *
9
 
 *                                                                           *
10
 
 *  This program is distributed in the hope that it will be useful,          *
11
 
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
12
 
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
13
 
 *                                                                           *
 
4
  This file is part of the Lazarus Component Library (LCL)
 
5
 
 
6
  See the file COPYING.modifiedLGPL.txt, included in this distribution,
 
7
  for details about the license.
14
8
 *****************************************************************************
15
9
}
16
10
//---------------------------------------------------------------
59
53
 
60
54
    // Also mark in the window information the focus change
61
55
    TCDForm(lForm.Handle).FocusedControl := ALCLControl;
 
56
    TCDForm(lForm.Handle).FocusedIntfControl := FocusedIntfControl;
62
57
 
63
58
    // Verify if the virtual keyboard needs to be shown/hidden
64
59
    // Only show if there is no hardware keyboard, but hide always in case
87
82
  // if it's the first time, we must create the list
88
83
  if FFontPaths.Count = 0 then BackendListFontPaths(FFontPaths, FFontList);
89
84
  {$endif}
 
85
 
 
86
  // Init stock objects
 
87
  FStockBlackBrush := TFPCustomBrush.Create;
 
88
  FStockBlackBrush.FPColor := colBlack;
 
89
  FStockDKGrayBrush := TFPCustomBrush.Create;
 
90
  FStockDKGrayBrush.FPColor := colDkGray;
 
91
  FStockGrayBrush := TFPCustomBrush.Create;
 
92
  FStockGrayBrush.FPColor := colGray;
 
93
  FStockLtGrayBrush := TFPCustomBrush.Create;
 
94
  FStockLtGrayBrush.FPColor := colLtGray;
 
95
  FStockNullBrush := TFPCustomBrush.Create;
 
96
  FStockNullBrush.Style := bsClear;
 
97
  FStockWhiteBrush := TFPCustomBrush.Create;
 
98
  FStockWhiteBrush.FPColor := colWhite;
 
99
 
 
100
  FStockBlackPen := TFPCustomPen.Create;
 
101
  FStockBlackPen.FPColor := colBlack;
 
102
  FStockNullPen := TFPCustomPen.Create;
 
103
  FStockNullPen.Style := psClear;
 
104
  FStockWhitePen := TFPCustomPen.Create;
 
105
  FStockWhitePen.FPColor := colWhite;
 
106
 
 
107
  FDefaultGUIFont := TFPCustomFont.Create;
90
108
end;
91
109
 
92
110
{------------------------------------------------------------------------------
104
122
  FTerminating := False;
105
123
  DefaultFontSize := 10;
106
124
 
 
125
  ActivityClassName := 'com/pascal/lcltest/LCLActivity';
 
126
 
 
127
  FClipBoardFormats := TStringList.Create;
 
128
  FClipBoardFormats.Add('foo'); // 0 is reserved
 
129
  FClipBoardFormats.Add('text/plain'); // 1 - text/plain should always be supported
 
130
 
 
131
  // To be resistent against backend issues
 
132
  CDWidgetset.ScreenFormat := clfARGB32;
 
133
 
107
134
  {$ifndef CD_UseNativeText}
108
135
  FFontPaths:= TStringList.Create;
109
136
  FFontList := THashedStringList.Create;
131
158
  FFontList.Free;
132
159
  {$endif}
133
160
 
 
161
  FClipBoardFormats.Free;
 
162
 
134
163
  CDWidgetSet := nil;
135
164
  inherited Destroy;
136
165
end;