paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 00:35:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

reduced speedbutton invalidates, added TCanvas.Frame

Browse Source 
git-svn-id: trunk@2432 -
This commit is contained in:
mattias 2002-08-17 23:41:22 +00:00
parent c1fcdaa43d
commit 182bf42345
3 changed files with 33 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/buttons.pp
View File

@ -183,13 +183,14 @@ type
FFlat : Boolean;
FGlyph: TButtonGlyph;
FGroupIndex : Integer;
FLastDrawFlags: integer;
FLayout: TButtonLayout;
FMargin : integer;
FMouseInControl : Boolean;
FShortcut : Longint;
FSpacing : integer;
FState : TButtonState;
FTransparent : Boolean;
FShortcut : Longint;
function GetGlyph : TBitmap;
procedure UpdateExclusive;
procedure UpdateTracking;
@ -201,7 +202,7 @@ type
procedure CMMouseEnter(var Message :TLMessage); message CM_MouseEnter;
procedure CMMouseLeave(var Message :TLMessage); message CM_MouseLeave;
procedure CMEnabledChanged(var Message: TLMessage); message CM_ENABLEDCHANGED;
protected
protected
function GetNumGlyphs : Integer;
procedure GlyphChanged(Sender : TObject);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
@ -216,6 +217,9 @@ type
procedure SetMargin(const Value : integer);
procedure SetNumGlyphs(Value : integer);
procedure SetSpacing(const Value : integer);
procedure SetText(const Value: TCaption); override;
procedure UpdateState(InvalidateOnChange: boolean); virtual;
function GetDrawFlags: integer; virtual;
property MouseInControl : Boolean read FMouseInControl;
public
constructor Create(AOwner : TComponent); override;
@ -236,6 +240,10 @@ type
property Transparent: Boolean read FTransparent write SetTransparent default false;
property Visible;
property OnClick;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnResize;
property ShowHint;
property ParentShowHint;
end;
@ -273,6 +281,9 @@ end.
{ =============================================================================
$Log$
Revision 1.34 2003/01/27 13:49:16 mattias
reduced speedbutton invalidates, added TCanvas.Frame
Revision 1.33 2002/12/25 11:53:47 mattias
Button.Default now sets focus

18
lcl/include/winapi.inc
View File

@ -284,9 +284,20 @@ begin
Result := InterfaceObject.FloodFill(DC,X,Y,Color,FillStyle,Brush);
end;
function Frame3d(DC : HDC; var Rect : TRect; const FrameWidth : integer; const Style : TBevelCut) : boolean;
function Frame(DC: HDC; const ARect: TRect): Integer;
begin
Result:= InterfaceObject.Frame3d(DC, Rect, FrameWidth, Style);
Result:= InterfaceObject.Frame(DC, ARect);
end;
function Frame3d(DC : HDC; var ARect : TRect; const FrameWidth : integer;
const Style : TBevelCut) : boolean;
begin
Result:= InterfaceObject.Frame3d(DC, ARect, FrameWidth, Style);
end;
function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer;
begin
Result:= InterfaceObject.FrameRect(DC, ARect, hBr);
end;
Function GetActiveWindow : HWND;
@ -1521,6 +1532,9 @@ end;
{ =============================================================================
$Log$
Revision 1.70 2003/01/27 13:49:16 mattias
reduced speedbutton invalidates, added TCanvas.Frame
Revision 1.69 2002/12/30 17:24:08 mattias
added history to identifier completion

5
lcl/interfaces/gtk/gtkint.pp
View File

@ -53,7 +53,7 @@ uses
{$ELSE}
glib, gdk, gtk, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf}
{$ENDIF}
SysUtils, LMessages, Classes, Controls, Forms, VclGlobals,
SysUtils, LMessages, Classes, Controls, Forms, VclGlobals, LCLProc,
LCLLinux, LCLType, gtkDef, DynHashArray, LazQueue, GraphType, GraphMath;
@ -324,6 +324,9 @@ end.
{ =============================================================================
$Log$
Revision 1.118 2003/01/27 13:49:16 mattias
reduced speedbutton invalidates, added TCanvas.Frame
Revision 1.117 2003/01/06 12:00:16 mattias
implemented fsStayOnTop+bsNone for forms under gtk (useful for splash)