projects/dwt-win: dwt/widgets/Label.d annotate

annotate dwt/widgets/Label.d @ 51:6e4e3a8e4971

Label

author	Frank Benoit <benoit@tionex.de>
date	Sun, 03 Feb 2008 03:43:52 +0100
parents	92c102dd64a3
children	0f25be5cbe6f

rev	line source
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	1 /*******************************************************************************
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	2 * Copyright (c) 2000, 2007 IBM Corporation and others.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	3 * All rights reserved. This program and the accompanying materials
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	4 * are made available under the terms of the Eclipse Public License v1.0
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	5 * which accompanies this distribution, and is available at
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	6 * http://www.eclipse.org/legal/epl-v10.html
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	7 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	8 * Contributors:
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	9 * IBM Corporation - initial API and implementation
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	10 * Port to the D programming language:
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	11 * Frank Benoit <benoit@tionex.de>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	12 *******************************************************************************/
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	13 module dwt.widgets.Label;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	14
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	15
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	16 import dwt.DWT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	17 import dwt.DWTException;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	18 import dwt.graphics.GC;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	19 import dwt.graphics.GCData;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	20 import dwt.graphics.Image;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	21 import dwt.graphics.Point;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	22 import dwt.graphics.Rectangle;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	23 import dwt.internal.win32.OS;
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	24
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	25 import dwt.widgets.Control;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	26 import dwt.widgets.Composite;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	27 import dwt.widgets.Display;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	28 import dwt.widgets.Event;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	29
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	30 import dwt.dwthelper.utils;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	31
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	32 /**
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	33 * Instances of this class represent a non-selectable
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	34 * user interface object that displays a string or image.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	35 * When SEPARATOR is specified, displays a single
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	36 * vertical or horizontal line.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	37 * <dl>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	38 * <dt><b>Styles:</b></dt>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	39 * <dd>SEPARATOR, HORIZONTAL, VERTICAL</dd>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	40 * <dd>SHADOW_IN, SHADOW_OUT, SHADOW_NONE</dd>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	41 * <dd>CENTER, LEFT, RIGHT, WRAP</dd>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	42 * <dt><b>Events:</b></dt>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	43 * <dd>(none)</dd>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	44 * </dl>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	45 * <p>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	46 * Note: Only one of SHADOW_IN, SHADOW_OUT and SHADOW_NONE may be specified.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	47 * SHADOW_NONE is a HINT. Only one of HORIZONTAL and VERTICAL may be specified.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	48 * Only one of CENTER, LEFT and RIGHT may be specified.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	49 * </p><p>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	50 * IMPORTANT: This class is intended to be subclassed <em>only</em>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	51 * within the DWT implementation.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	52 * </p>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	53 */
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	54 public class Label : Control {
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	55 char[] text = "";
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	56 Image image;
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	57 static const int MARGIN = 4;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	58 static const bool IMAGE_AND_TEXT = false;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	59 static const WNDPROC LabelProc;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	60 static const TCHAR[] LabelClass = "STATIC\0";
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	61 static this() {
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	62 WNDCLASS lpWndClass;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	63 OS.GetClassInfo (null, LabelClass.ptr, &lpWndClass);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	64 LabelProc = lpWndClass.lpfnWndProc;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	65 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	66
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	67 /**
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	68 * Constructs a new instance of this class given its parent
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	69 * and a style value describing its behavior and appearance.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	70 * <p>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	71 * The style value is either one of the style constants defined in
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	72 * class <code>DWT</code> which is applicable to instances of this
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	73 * class, or must be built by <em>bitwise OR</em>'ing together
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	74 * (that is, using the <code>int</code> "\|" operator) two or more
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	75 * of those <code>DWT</code> style constants. The class description
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	76 * lists the style constants that are applicable to the class.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	77 * Style bits are also inherited from superclasses.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	78 * </p>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	79 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	80 * @param parent a composite control which will be the parent of the new instance (cannot be null)
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	81 * @param style the style of control to construct
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	82 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	83 * @exception IllegalArgumentException <ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	84 * <li>ERROR_NULL_ARGUMENT - if the parent is null</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	85 * </ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	86 * @exception DWTException <ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	87 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the parent</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	88 * <li>ERROR_INVALID_SUBCLASS - if this class is not an allowed subclass</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	89 * </ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	90 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	91 * @see DWT#SEPARATOR
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	92 * @see DWT#HORIZONTAL
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	93 * @see DWT#VERTICAL
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	94 * @see DWT#SHADOW_IN
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	95 * @see DWT#SHADOW_OUT
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	96 * @see DWT#SHADOW_NONE
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	97 * @see DWT#CENTER
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	98 * @see DWT#LEFT
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	99 * @see DWT#RIGHT
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	100 * @see DWT#WRAP
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	101 * @see Widget#checkSubclass
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	102 * @see Widget#getStyle
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	103 */
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	104 public this (Composite parent, int style) {
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	105 super (parent, checkStyle (style));
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	106 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	107
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	108 LRESULT callWindowProc (HWND hwnd, int msg, int wParam, int lParam) {
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	109 if (handle is null) return LRESULT.NULL;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	110 return cast(LRESULT) OS.CallWindowProc (LabelProc, hwnd, msg, wParam, lParam);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	111 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	112
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	113 static int checkStyle (int style) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	114 style \|= DWT.NO_FOCUS;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	115 if ((style & DWT.SEPARATOR) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	116 style = checkBits (style, DWT.VERTICAL, DWT.HORIZONTAL, 0, 0, 0, 0);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	117 return checkBits (style, DWT.SHADOW_OUT, DWT.SHADOW_IN, DWT.SHADOW_NONE, 0, 0, 0);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	118 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	119 return checkBits (style, DWT.LEFT, DWT.CENTER, DWT.RIGHT, 0, 0, 0);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	120 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	121
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	122 public Point computeSize (int wHint, int hHint, bool changed) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	123 checkWidget ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	124 int width = 0, height = 0, border = getBorderWidth ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	125 if ((style & DWT.SEPARATOR) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	126 int lineWidth = OS.GetSystemMetrics (OS.SM_CXBORDER);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	127 if ((style & DWT.HORIZONTAL) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	128 width = DEFAULT_WIDTH; height = lineWidth * 2;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	129 } else {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	130 width = lineWidth * 2; height = DEFAULT_HEIGHT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	131 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	132 if (wHint !is DWT.DEFAULT) width = wHint;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	133 if (hHint !is DWT.DEFAULT) height = hHint;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	134 width += border * 2; height += border * 2;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	135 return new Point (width, height);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	136 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	137 int bits = OS.GetWindowLong (handle, OS.GWL_STYLE);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	138 bool drawText = true;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	139 bool drawImage = (bits & OS.SS_OWNERDRAW) is OS.SS_OWNERDRAW;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	140 if (drawImage) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	141 if (image !is null) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	142 Rectangle rect = image.getBounds();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	143 width += rect.width;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	144 height += rect.height;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	145 if (IMAGE_AND_TEXT) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	146 if (text.length !is 0) width += MARGIN;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	147 } else {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	148 drawText = false;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	149 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	150 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	151 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	152 if (drawText) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	153 auto hDC = OS.GetDC (handle);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	154 auto newFont = cast(HFONT) OS.SendMessage (handle, OS.WM_GETFONT, 0, 0);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	155 auto oldFont = OS.SelectObject (hDC, newFont);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	156 int length = OS.GetWindowTextLength (handle);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	157 if (length is 0) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	158 TEXTMETRIC tm;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	159 OS.GetTextMetrics (hDC, &tm);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	160 height = Math.max (height, tm.tmHeight);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	161 } else {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	162 RECT rect;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	163 int flags = OS.DT_CALCRECT \| OS.DT_EDITCONTROL \| OS.DT_EXPANDTABS;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	164 if ((style & DWT.WRAP) !is 0 && wHint !is DWT.DEFAULT) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	165 flags \|= OS.DT_WORDBREAK;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	166 rect.right = Math.max (0, wHint - width);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	167 }
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	168 TCHAR[] buffer = new TCHAR [/+getCodePage (),+/ length + 1];
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	169 OS.GetWindowText (handle, buffer.ptr, length + 1);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	170 OS.DrawText (hDC, buffer.ptr, length, &rect, flags);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	171 width += rect.right - rect.left;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	172 height = Math.max (height, rect.bottom - rect.top);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	173 }
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	174 if (newFont !is null) OS.SelectObject (hDC, oldFont);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	175 OS.ReleaseDC (handle, hDC);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	176 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	177 if (wHint !is DWT.DEFAULT) width = wHint;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	178 if (hHint !is DWT.DEFAULT) height = hHint;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	179 width += border * 2;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	180 height += border * 2;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	181 /*
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	182 * Feature in WinCE PPC. Text labels have a trim
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	183 * of one pixel wide on the right and left side.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	184 * The fix is to increase the width to include
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	185 * this trim.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	186 */
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	187 if (OS.IsWinCE && !drawImage) width += 2;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	188 return new Point (width, height);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	189 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	190
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	191 void createHandle () {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	192 super.createHandle ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	193 state \|= THEME_BACKGROUND;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	194 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	195
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	196 /**
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	197 * Returns a value which describes the position of the
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	198 * text or image in the receiver. The value will be one of
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	199 * <code>LEFT</code>, <code>RIGHT</code> or <code>CENTER</code>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	200 * unless the receiver is a <code>SEPARATOR</code> label, in
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	201 * which case, <code>NONE</code> is returned.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	202 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	203 * @return the alignment
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	204 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	205 * @exception DWTException <ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	206 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	207 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	208 * </ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	209 */
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	210 public int getAlignment () {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	211 checkWidget ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	212 if ((style & DWT.SEPARATOR) !is 0) return 0;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	213 if ((style & DWT.LEFT) !is 0) return DWT.LEFT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	214 if ((style & DWT.CENTER) !is 0) return DWT.CENTER;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	215 if ((style & DWT.RIGHT) !is 0) return DWT.RIGHT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	216 return DWT.LEFT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	217 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	218
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	219 /**
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	220 * Returns the receiver's image if it has one, or null
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	221 * if it does not.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	222 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	223 * @return the receiver's image
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	224 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	225 * @exception DWTException <ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	226 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	227 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	228 * </ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	229 */
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	230 public Image getImage () {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	231 checkWidget ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	232 return image;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	233 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	234
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	235 char[] getNameText () {
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	236 return getText ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	237 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	238
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	239 /**
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	240 * Returns the receiver's text, which will be an empty
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	241 * string if it has never been set or if the receiver is
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	242 * a <code>SEPARATOR</code> label.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	243 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	244 * @return the receiver's text
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	245 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	246 * @exception DWTException <ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	247 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	248 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	249 * </ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	250 */
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	251 public char[] getText () {
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	252 checkWidget ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	253 if ((style & DWT.SEPARATOR) !is 0) return "";
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	254 return text;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	255 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	256
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	257 bool mnemonicHit (wchar key) {
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	258 Composite control = this.parent;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	259 while (control !is null) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	260 Control [] children = control._getChildren ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	261 int index = 0;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	262 while (index < children.length) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	263 if (children [index] is this) break;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	264 index++;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	265 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	266 index++;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	267 if (index < children.length) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	268 if (children [index].setFocus ()) return true;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	269 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	270 control = control.parent;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	271 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	272 return false;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	273 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	274
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	275 bool mnemonicMatch (wchar key) {
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	276 wchar mnemonic = findMnemonic (getText ());
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	277 if (mnemonic is '\0') return false;
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	278 return CharacterToUpper (key) is CharacterToUpper (mnemonic);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	279 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	280
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	281 void releaseWidget () {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	282 super.releaseWidget ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	283 text = null;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	284 image = null;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	285 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	286
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	287 /**
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	288 * Controls how text and images will be displayed in the receiver.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	289 * The argument should be one of <code>LEFT</code>, <code>RIGHT</code>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	290 * or <code>CENTER</code>. If the receiver is a <code>SEPARATOR</code>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	291 * label, the argument is ignored and the alignment is not changed.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	292 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	293 * @param alignment the new alignment
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	294 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	295 * @exception DWTException <ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	296 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	297 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	298 * </ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	299 */
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	300 public void setAlignment (int alignment) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	301 checkWidget ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	302 if ((style & DWT.SEPARATOR) !is 0) return;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	303 if ((alignment & (DWT.LEFT \| DWT.RIGHT \| DWT.CENTER)) is 0) return;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	304 style &= ~(DWT.LEFT \| DWT.RIGHT \| DWT.CENTER);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	305 style \|= alignment & (DWT.LEFT \| DWT.RIGHT \| DWT.CENTER);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	306 int bits = OS.GetWindowLong (handle, OS.GWL_STYLE);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	307 if ((bits & OS.SS_OWNERDRAW) !is OS.SS_OWNERDRAW) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	308 bits &= ~(OS.SS_LEFTNOWORDWRAP \| OS.SS_CENTER \| OS.SS_RIGHT);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	309 if ((style & DWT.LEFT) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	310 if ((style & DWT.WRAP) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	311 bits \|= OS.SS_LEFT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	312 } else {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	313 bits \|= OS.SS_LEFTNOWORDWRAP;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	314 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	315 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	316 if ((style & DWT.CENTER) !is 0) bits \|= OS.SS_CENTER;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	317 if ((style & DWT.RIGHT) !is 0) bits \|= OS.SS_RIGHT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	318 OS.SetWindowLong (handle, OS.GWL_STYLE, bits);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	319 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	320 OS.InvalidateRect (handle, null, true);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	321 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	322
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	323 /**
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	324 * Sets the receiver's image to the argument, which may be
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	325 * null indicating that no image should be displayed.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	326 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	327 * @param image the image to display on the receiver (may be null)
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	328 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	329 * @exception IllegalArgumentException <ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	330 * <li>ERROR_INVALID_ARGUMENT - if the image has been disposed</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	331 * </ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	332 * @exception DWTException <ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	333 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	334 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	335 * </ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	336 */
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	337 public void setImage (Image image) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	338 checkWidget ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	339 if ((style & DWT.SEPARATOR) !is 0) return;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	340 if (image !is null && image.isDisposed()) error(DWT.ERROR_INVALID_ARGUMENT);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	341 this.image = image;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	342 int bits = OS.GetWindowLong (handle, OS.GWL_STYLE);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	343 if ((bits & OS.SS_OWNERDRAW) !is OS.SS_OWNERDRAW) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	344 bits &= ~(OS.SS_LEFTNOWORDWRAP \| OS.SS_CENTER \| OS.SS_RIGHT);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	345 bits \|= OS.SS_OWNERDRAW;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	346 OS.SetWindowLong (handle, OS.GWL_STYLE, bits);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	347 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	348 OS.InvalidateRect (handle, null, true);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	349 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	350
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	351 /**
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	352 * Sets the receiver's text.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	353 * <p>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	354 * This method sets the widget label. The label may include
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	355 * the mnemonic character and line delimiters.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	356 * </p>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	357 * <p>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	358 * Mnemonics are indicated by an '&' that causes the next
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	359 * character to be the mnemonic. When the user presses a
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	360 * key sequence that matches the mnemonic, focus is assigned
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	361 * to the control that follows the label. On most platforms,
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	362 * the mnemonic appears underlined but may be emphasised in a
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	363 * platform specific manner. The mnemonic indicator character
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	364 * '&' can be escaped by doubling it in the string, causing
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	365 * a single '&' to be displayed.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	366 * </p>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	367 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	368 * @param string the new text
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	369 *
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	370 * @exception IllegalArgumentException <ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	371 * <li>ERROR_NULL_ARGUMENT - if the text is null</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	372 * </ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	373 * @exception DWTException <ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	374 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	375 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	376 * </ul>
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	377 */
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	378 public void setText (char[] string) {
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	379 checkWidget ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	380 if (string is null) error (DWT.ERROR_NULL_ARGUMENT);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	381 if ((style & DWT.SEPARATOR) !is 0) return;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	382 /*
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	383 * Feature in Windows. For some reason, SetWindowText() for
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	384 * static controls redraws the control, even when the text has
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	385 * has not changed. The fix is to check for this case and do
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	386 * nothing.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	387 */
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	388 if (string==/eq/text) return;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	389 text = string;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	390 if (image is null \|\| !IMAGE_AND_TEXT) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	391 int oldBits = OS.GetWindowLong (handle, OS.GWL_STYLE), newBits = oldBits;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	392 newBits &= ~OS.SS_OWNERDRAW;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	393 if ((style & DWT.LEFT) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	394 if ((style & DWT.WRAP) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	395 newBits \|= OS.SS_LEFT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	396 } else {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	397 newBits \|= OS.SS_LEFTNOWORDWRAP;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	398 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	399 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	400 if ((style & DWT.CENTER) !is 0) newBits \|= OS.SS_CENTER;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	401 if ((style & DWT.RIGHT) !is 0) newBits \|= OS.SS_RIGHT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	402 if (oldBits !is newBits) OS.SetWindowLong (handle, OS.GWL_STYLE, newBits);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	403 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	404 string = Display.withCrLf (string);
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	405 TCHAR* buffer = StrToTCHARz (/+getCodePage (),+/ string);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	406 OS.SetWindowText (handle, buffer);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	407 /*
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	408 * Bug in Windows. For some reason, the HBRUSH that
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	409 * is returned from WM_CTRLCOLOR is misaligned when
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	410 * the label uses it to draw. If the brush is a solid
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	411 * color, this does not matter. However, if the brush
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	412 * contains an image, the image is misaligned. The
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	413 * fix is to draw the background in WM_ERASEBKGND.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	414 */
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	415 if (OS.COMCTL32_MAJOR < 6 \|\| !OS.IsAppThemed ()) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	416 if (findImageControl () !is null) OS.InvalidateRect (handle, null, true);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	417 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	418 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	419
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	420 int widgetExtStyle () {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	421 int bits = super.widgetExtStyle () & ~OS.WS_EX_CLIENTEDGE;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	422 if ((style & DWT.BORDER) !is 0) return bits \| OS.WS_EX_STATICEDGE;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	423 return bits;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	424 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	425
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	426 int widgetStyle () {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	427 int bits = super.widgetStyle () \| OS.SS_NOTIFY;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	428 if ((style & DWT.SEPARATOR) !is 0) return bits \| OS.SS_OWNERDRAW;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	429 if (OS.WIN32_VERSION >= OS.VERSION (5, 0)) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	430 if ((style & DWT.WRAP) !is 0) bits \|= OS.SS_EDITCONTROL;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	431 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	432 if ((style & DWT.CENTER) !is 0) return bits \| OS.SS_CENTER;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	433 if ((style & DWT.RIGHT) !is 0) return bits \| OS.SS_RIGHT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	434 if ((style & DWT.WRAP) !is 0) return bits \| OS.SS_LEFT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	435 return bits \| OS.SS_LEFTNOWORDWRAP;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	436 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	437
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	438 char[] windowClass () {
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	439 return TCHARsToStr( LabelClass );
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	440 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	441
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	442 int windowProc () {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	443 return cast(int) LabelProc;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	444 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	445
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	446 LRESULT WM_ERASEBKGND (int wParam, int lParam) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	447 LRESULT result = super.WM_ERASEBKGND (wParam, lParam);
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	448 if (result !is LRESULT.NULL) return result;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	449 int bits = OS.GetWindowLong (handle, OS.GWL_STYLE);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	450 if ((bits & OS.SS_OWNERDRAW) is OS.SS_OWNERDRAW) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	451 return LRESULT.ONE;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	452 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	453 /*
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	454 * Bug in Windows. For some reason, the HBRUSH that
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	455 * is returned from WM_CTRLCOLOR is misaligned when
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	456 * the label uses it to draw. If the brush is a solid
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	457 * color, this does not matter. However, if the brush
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	458 * contains an image, the image is misaligned. The
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	459 * fix is to draw the background in WM_ERASEBKGND.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	460 */
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	461 if (OS.COMCTL32_MAJOR < 6 \|\| !OS.IsAppThemed ()) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	462 if (findImageControl () !is null) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	463 drawBackground (cast(HANDLE)wParam);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	464 return LRESULT.ONE;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	465 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	466 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	467 return result;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	468 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	469
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	470 LRESULT WM_SIZE (int wParam, int lParam) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	471 LRESULT result = super.WM_SIZE (wParam, lParam);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	472 if (isDisposed ()) return result;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	473 if ((style & DWT.SEPARATOR) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	474 OS.InvalidateRect (handle, null, true);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	475 return result;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	476 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	477 int bits = OS.GetWindowLong (handle, OS.GWL_STYLE);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	478 if ((bits & OS.SS_OWNERDRAW) is OS.SS_OWNERDRAW) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	479 OS.InvalidateRect (handle, null, true);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	480 return result;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	481 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	482 /*
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	483 * Bug in Windows. For some reason, a label with
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	484 * style SS_LEFT, SS_CENTER or SS_RIGHT does not
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	485 * redraw the text in the new position when resized.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	486 * Note that SS_LEFTNOWORDWRAP does not have the
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	487 * problem. The fix is to force the redraw.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	488 */
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	489 if ((bits & OS.SS_LEFTNOWORDWRAP) !is OS.SS_LEFTNOWORDWRAP) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	490 OS.InvalidateRect (handle, null, true);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	491 return result;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	492 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	493 return result;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	494 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	495
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	496 LRESULT WM_UPDATEUISTATE (int wParam, int lParam) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	497 LRESULT result = super.WM_UPDATEUISTATE (wParam, lParam);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	498 /*
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	499 * Feature in Windows. When WM_UPDATEUISTATE is sent to
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	500 * a static control, it sends WM_CTLCOLORSTATIC to get the
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	501 * foreground and background. If any drawing happens in
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	502 * WM_CTLCOLORSTATIC, it overwrites the contents of the control.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	503 * The fix is draw the static without drawing the background
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	504 * and avoid the static window proc.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	505 */
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	506 bool redraw = findImageControl () !is null;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	507 if (!redraw) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	508 if ((state & THEME_BACKGROUND) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	509 if (OS.COMCTL32_MAJOR >= 6 && OS.IsAppThemed ()) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	510 redraw = findThemeControl () !is null;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	511 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	512 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	513 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	514 if (redraw) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	515 OS.InvalidateRect (handle, null, false);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	516 int code = OS.DefWindowProc (handle, OS.WM_UPDATEUISTATE, wParam, lParam);
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	517 return cast(LRESULT) (code);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	518 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	519 return result;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	520 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	521
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	522 LRESULT wmColorChild (int wParam, int lParam) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	523 /*
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	524 * Bug in Windows. For some reason, the HBRUSH that
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	525 * is returned from WM_CTRLCOLOR is misaligned when
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	526 * the label uses it to draw. If the brush is a solid
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	527 * color, this does not matter. However, if the brush
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	528 * contains an image, the image is misaligned. The
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	529 * fix is to draw the background in WM_ERASEBKGND.
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	530 */
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	531 LRESULT result = super.wmColorChild (wParam, lParam);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	532 if (OS.COMCTL32_MAJOR < 6 \|\| !OS.IsAppThemed ()) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	533 int bits = OS.GetWindowLong (handle, OS.GWL_STYLE);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	534 if ((bits & OS.SS_OWNERDRAW) !is OS.SS_OWNERDRAW) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	535 if (findImageControl () !is null) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	536 OS.SetBkMode ( cast(HANDLE) wParam, OS.TRANSPARENT);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	537 return cast(LRESULT) (OS.GetStockObject (OS.NULL_BRUSH));
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	538 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	539 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	540 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	541 return result;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	542 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	543
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	544 LRESULT WM_PAINT (int wParam, int lParam) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	545 if (OS.IsWinCE) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	546 bool drawImage = image !is null;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	547 bool drawSeparator = (style & DWT.SEPARATOR) !is 0 && (style & DWT.SHADOW_NONE) is 0;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	548 if (drawImage \|\| drawSeparator) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	549 LRESULT result = LRESULT.NULL;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	550 PAINTSTRUCT ps;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	551 GCData data = new GCData ();
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	552 data.ps = &ps;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	553 data.hwnd = handle;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	554 GC gc = new_GC (data);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	555 if (gc !is null) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	556 drawBackground (gc.handle);
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	557 RECT clientRect;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	558 OS.GetClientRect (handle, &clientRect);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	559 if (drawSeparator) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	560 RECT rect;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	561 int lineWidth = OS.GetSystemMetrics (OS.SM_CXBORDER);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	562 int flags = (style & DWT.SHADOW_IN) !is 0 ? OS.EDGE_SUNKEN : OS.EDGE_ETCHED;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	563 if ((style & DWT.HORIZONTAL) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	564 int bottom = clientRect.top + Math.max (lineWidth * 2, (clientRect.bottom - clientRect.top) / 2);
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	565 OS.SetRect (&rect, clientRect.left, clientRect.top, clientRect.right, bottom);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	566 OS.DrawEdge (gc.handle, &rect, flags, OS.BF_BOTTOM);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	567 } else {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	568 int right = clientRect.left + Math.max (lineWidth * 2, (clientRect.right - clientRect.left) / 2);
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	569 OS.SetRect (&rect, clientRect.left, clientRect.top, right, clientRect.bottom);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	570 OS.DrawEdge (gc.handle, &rect, flags, OS.BF_RIGHT);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	571 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	572 result = LRESULT.ONE;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	573 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	574 if (drawImage) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	575 Rectangle imageBounds = image.getBounds ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	576 int x = 0;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	577 if ((style & DWT.CENTER) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	578 x = Math.max (0, (clientRect.right - imageBounds.width) / 2);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	579 } else {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	580 if ((style & DWT.RIGHT) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	581 x = Math.max (0, (clientRect.right - imageBounds.width));
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	582 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	583 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	584 gc.drawImage (image, x, Math.max (0, (clientRect.bottom - imageBounds.height) / 2));
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	585 result = LRESULT.ONE;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	586 }
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	587 int width = ps.rcPaint.right - ps.rcPaint.left;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	588 int height = ps.rcPaint.bottom - ps.rcPaint.top;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	589 if (width !is 0 && height !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	590 Event event = new Event ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	591 event.gc = gc;
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	592 event.x = ps.rcPaint.left;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	593 event.y = ps.rcPaint.top;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	594 event.width = width;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	595 event.height = height;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	596 sendEvent (DWT.Paint, event);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	597 // widget could be disposed at this point
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	598 event.gc = null;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	599 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	600 gc.dispose ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	601 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	602 return result;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	603 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	604 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	605 return super.WM_PAINT(wParam, lParam);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	606 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	607
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	608 LRESULT wmDrawChild (int wParam, int lParam) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	609 DRAWITEMSTRUCT* struct_ = cast(DRAWITEMSTRUCT*)lParam;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	610 drawBackground (struct_.hDC);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	611 if ((style & DWT.SEPARATOR) !is 0) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	612 if ((style & DWT.SHADOW_NONE) !is 0) return LRESULT.NULL;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	613 RECT rect;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	614 int lineWidth = OS.GetSystemMetrics (OS.SM_CXBORDER);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	615 int flags = (style & DWT.SHADOW_IN) !is 0 ? OS.EDGE_SUNKEN : OS.EDGE_ETCHED;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	616 if ((style & DWT.HORIZONTAL) !is 0) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	617 int bottom = struct_.rcItem.top + Math.max (lineWidth * 2, (struct_.rcItem.bottom - struct_.rcItem.top) / 2);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	618 OS.SetRect (&rect, struct_.rcItem.left, struct_.rcItem.top, struct_.rcItem.right, bottom);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	619 OS.DrawEdge (struct_.hDC, &rect, flags, OS.BF_BOTTOM);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	620 } else {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	621 int right = struct_.rcItem.left + Math.max (lineWidth * 2, (struct_.rcItem.right - struct_.rcItem.left) / 2);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	622 OS.SetRect (&rect, struct_.rcItem.left, struct_.rcItem.top, right, struct_.rcItem.bottom);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	623 OS.DrawEdge (struct_.hDC, &rect, flags, OS.BF_RIGHT);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	624 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	625 } else {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	626 int width = struct_.rcItem.right - struct_.rcItem.left;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	627 int height = struct_.rcItem.bottom - struct_.rcItem.top;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	628 if (width !is 0 && height !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	629 bool drawImage = image !is null;
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	630 bool drawText = IMAGE_AND_TEXT && text.length !is 0;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	631 int margin = drawText && drawImage ? MARGIN : 0;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	632 int imageWidth = 0, imageHeight = 0;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	633 if (drawImage) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	634 Rectangle rect = image.getBounds ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	635 imageWidth = rect.width;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	636 imageHeight = rect.height;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	637 }
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	638 RECT rect;
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	639 TCHAR* buffer = null;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	640 int textWidth = 0, textHeight = 0, flags = 0;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	641 if (drawText) {
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	642 //rect = new RECT ();
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	643 flags = OS.DT_CALCRECT \| OS.DT_EDITCONTROL \| OS.DT_EXPANDTABS;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	644 if ((style & DWT.LEFT) !is 0) flags \|= OS.DT_LEFT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	645 if ((style & DWT.CENTER) !is 0) flags \|= OS.DT_CENTER;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	646 if ((style & DWT.RIGHT) !is 0) flags \|= OS.DT_RIGHT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	647 if ((style & DWT.WRAP) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	648 flags \|= OS.DT_WORDBREAK;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	649 rect.right = Math.max (0, width - imageWidth - margin);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	650 }
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	651 buffer = StrToTCHARz (/+getCodePage (),+/ text);
6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	652 OS.DrawText (struct_.hDC, buffer, -1, &rect, flags);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	653 textWidth = rect.right - rect.left;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	654 textHeight = rect.bottom - rect.top;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	655 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	656 int x = 0;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	657 if ((style & DWT.CENTER) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	658 x = Math.max (0, (width - imageWidth - textWidth - margin) / 2);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	659 } else {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	660 if ((style & DWT.RIGHT) !is 0) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	661 x = width - imageWidth - textWidth - margin;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	662 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	663 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	664 if (drawImage) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	665 GCData data = new GCData();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	666 data.device = display;
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	667 GC gc = GC.win32_new (struct_.hDC, data);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	668 Image image = getEnabled () ? this.image : new Image (display, this.image, DWT.IMAGE_DISABLE);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	669 gc.drawImage (image, x, Math.max (0, (height - imageHeight) / 2));
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	670 if (image !is this.image) image.dispose ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	671 gc.dispose ();
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	672 x += imageWidth + margin;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	673 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	674 if (drawText) {
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	675 flags &= ~OS.DT_CALCRECT;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	676 rect.left = x;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	677 rect.right += rect.left;
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	678 rect.top = Math.max (0, (height - textHeight) / 2);
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	679 rect.bottom += rect.top;
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	680 OS.DrawText (struct_.hDC, buffer, -1, &rect, flags);
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	681 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	682 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	683 }
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	684 return LRESULT.NULL;
31 92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	685 }
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	686
92c102dd64a3 Added all widgets modules as dummy. Most modules of accessible are equal to the linux version, except Accessible. Frank Benoit <benoit@tionex.de> parents: diff changeset	687 }
51 6e4e3a8e4971 Label Frank Benoit <benoit@tionex.de> parents: 31 diff changeset	688

Mercurial > projects > dwt-win

annotate dwt/widgets/Label.d @ 51:6e4e3a8e4971