mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-08 22:39:36 +01:00
MWE: Applied patch from "Andrew Johnson" <aj_genius@hotmail.com>
Here is the run down of what it includes - -Vasily Volchenko's Updated Russian Localizations -improvements to GTK Styles/SysColors -initial GTK Palette code - (untested, and for now useless) -Hint Windows and Modal dialogs now try to stay transient to the main program form, aka they stay on top of the main form and usually minimize/maximize with it. -fixes to Form BorderStyle code(tool windows needed a border) -fixes DrawFrameControl DFCS_BUTTONPUSH to match Win32 better when flat -fixes DrawFrameControl DFCS_BUTTONCHECK to match Win32 better and to match GTK theme better. It works most of the time now, but some themes, noteably Default, don't work. -fixes bug in Bitmap code which broke compiling in NoGDKPixbuf mode. -misc other cleanups/ fixes in gtk interface -speedbutton's should now draw correctly when flat in Win32 -I have included an experimental new CheckBox(disabled by default) which has initial support for cbGrayed(Tri-State), and WordWrap, and misc other improvements. It is not done, it is mostly a quick hack to test DrawFrameControl DFCS_BUTTONCHECK, however it offers many improvements which can be seen in cbsCheck/cbsCrissCross (aka non-themed) state. -fixes Message Dialogs to more accurately determine button Spacing/Size, and Label Spacing/Size based on current System font. -fixes MessageDlgPos, & ShowMessagePos in Dialogs -adds InputQuery & InputBox to Dialogs -re-arranges & somewhat re-designs Control Tabbing, it now partially works - wrapping around doesn't work, and subcontrols(Panels & Children, etc) don't work. TabOrder now works to an extent. I am not sure what is wrong with my code, based on my other tests at least wrapping and TabOrder SHOULD work properly, but.. Anyone want to try and fix? -SynEdit(Code Editor) now changes mouse cursor to match position(aka over scrollbar/gutter vs over text edit) -adds a TRegion property to Graphics.pp, and Canvas. Once I figure out how to handle complex regions(aka polygons) data properly I will add Region functions to the canvas itself (SetClipRect, intersectClipRect etc.) -BitBtn now has a Stored flag on Glyph so it doesn't store to lfm/lrs if Glyph is Empty, or if Glyph is not bkCustom(aka bkOk, bkCancel, etc.) This should fix most crashes with older GDKPixbuf libs. git-svn-id: trunk@2183 -
This commit is contained in:
parent
02b3856fd0
commit
bd91f45a43
@ -1868,6 +1868,18 @@ begin
|
|||||||
{$IFDEF SYN_LAZARUS}
|
{$IFDEF SYN_LAZARUS}
|
||||||
LastMouseCaret:=PixelsToRowColumn(Point(X,Y));
|
LastMouseCaret:=PixelsToRowColumn(Point(X,Y));
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
|
if (X >= fGutterWidth)
|
||||||
|
and (X < ClientWidth{$IFDEF SYN_LAZARUS}-ScrollBarWidth{$ENDIF})
|
||||||
|
and (Y >= 0)
|
||||||
|
and (Y < ClientHeight{$IFDEF SYN_LAZARUS}-ScrollBarWidth{$ENDIF})
|
||||||
|
then begin
|
||||||
|
If Cursor <> crIBeam then
|
||||||
|
Cursor := crIBeam;
|
||||||
|
end else
|
||||||
|
If Cursor <> crDefault then
|
||||||
|
Cursor := crDefault;
|
||||||
|
|
||||||
if MouseCapture and (sfWaitForDragging in fStateFlags) then begin
|
if MouseCapture and (sfWaitForDragging in fStateFlags) then begin
|
||||||
if (Abs(fMouseDownX - X) >= GetSystemMetrics(SM_CXDRAG))
|
if (Abs(fMouseDownX - X) >= GetSystemMetrics(SM_CXDRAG))
|
||||||
or (Abs(fMouseDownY - Y) >= GetSystemMetrics(SM_CYDRAG))
|
or (Abs(fMouseDownY - Y) >= GetSystemMetrics(SM_CYDRAG))
|
||||||
|
|||||||
@ -68,7 +68,7 @@ begin
|
|||||||
Width := 429;
|
Width := 429;
|
||||||
Height := 341;
|
Height := 341;
|
||||||
Position:= poScreenCenter;
|
Position:= poScreenCenter;
|
||||||
BorderStyle := bsToolWindow;
|
BorderStyle := bsNone;
|
||||||
|
|
||||||
FPixmap := TPixmap.Create;
|
FPixmap := TPixmap.Create;
|
||||||
FPixmap.LoadFromLazarusResource('splash_logo');
|
FPixmap.LoadFromLazarusResource('splash_logo');
|
||||||
@ -141,6 +141,69 @@ end.
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.16 2002/09/27 20:52:18 lazarus
|
||||||
|
MWE: Applied patch from "Andrew Johnson" <aj_genius@hotmail.com>
|
||||||
|
|
||||||
|
Here is the run down of what it includes -
|
||||||
|
|
||||||
|
-Vasily Volchenko's Updated Russian Localizations
|
||||||
|
|
||||||
|
-improvements to GTK Styles/SysColors
|
||||||
|
-initial GTK Palette code - (untested, and for now useless)
|
||||||
|
|
||||||
|
-Hint Windows and Modal dialogs now try to stay transient to
|
||||||
|
the main program form, aka they stay on top of the main form
|
||||||
|
and usually minimize/maximize with it.
|
||||||
|
|
||||||
|
-fixes to Form BorderStyle code(tool windows needed a border)
|
||||||
|
|
||||||
|
-fixes DrawFrameControl DFCS_BUTTONPUSH to match Win32 better
|
||||||
|
when flat
|
||||||
|
|
||||||
|
-fixes DrawFrameControl DFCS_BUTTONCHECK to match Win32 better
|
||||||
|
and to match GTK theme better. It works most of the time now,
|
||||||
|
but some themes, noteably Default, don't work.
|
||||||
|
|
||||||
|
-fixes bug in Bitmap code which broke compiling in NoGDKPixbuf
|
||||||
|
mode.
|
||||||
|
|
||||||
|
-misc other cleanups/ fixes in gtk interface
|
||||||
|
|
||||||
|
-speedbutton's should now draw correctly when flat in Win32
|
||||||
|
|
||||||
|
-I have included an experimental new CheckBox(disabled by
|
||||||
|
default) which has initial support for cbGrayed(Tri-State),
|
||||||
|
and WordWrap, and misc other improvements. It is not done, it
|
||||||
|
is mostly a quick hack to test DrawFrameControl
|
||||||
|
DFCS_BUTTONCHECK, however it offers many improvements which
|
||||||
|
can be seen in cbsCheck/cbsCrissCross (aka non-themed) state.
|
||||||
|
|
||||||
|
-fixes Message Dialogs to more accurately determine
|
||||||
|
button Spacing/Size, and Label Spacing/Size based on current
|
||||||
|
System font.
|
||||||
|
-fixes MessageDlgPos, & ShowMessagePos in Dialogs
|
||||||
|
-adds InputQuery & InputBox to Dialogs
|
||||||
|
|
||||||
|
-re-arranges & somewhat re-designs Control Tabbing, it now
|
||||||
|
partially works - wrapping around doesn't work, and
|
||||||
|
subcontrols(Panels & Children, etc) don't work. TabOrder now
|
||||||
|
works to an extent. I am not sure what is wrong with my code,
|
||||||
|
based on my other tests at least wrapping and TabOrder SHOULD
|
||||||
|
work properly, but.. Anyone want to try and fix?
|
||||||
|
|
||||||
|
-SynEdit(Code Editor) now changes mouse cursor to match
|
||||||
|
position(aka over scrollbar/gutter vs over text edit)
|
||||||
|
|
||||||
|
-adds a TRegion property to Graphics.pp, and Canvas. Once I
|
||||||
|
figure out how to handle complex regions(aka polygons) data
|
||||||
|
properly I will add Region functions to the canvas itself
|
||||||
|
(SetClipRect, intersectClipRect etc.)
|
||||||
|
|
||||||
|
-BitBtn now has a Stored flag on Glyph so it doesn't store to
|
||||||
|
lfm/lrs if Glyph is Empty, or if Glyph is not bkCustom(aka
|
||||||
|
bkOk, bkCancel, etc.) This should fix most crashes with older
|
||||||
|
GDKPixbuf libs.
|
||||||
|
|
||||||
Revision 1.15 2002/05/10 06:57:45 lazarus
|
Revision 1.15 2002/05/10 06:57:45 lazarus
|
||||||
MG: updated licenses
|
MG: updated licenses
|
||||||
|
|
||||||
|
|||||||
@ -243,6 +243,8 @@ type
|
|||||||
procedure ShowMessageFmt(const aMsg: string; Params: array of const);
|
procedure ShowMessageFmt(const aMsg: string; Params: array of const);
|
||||||
procedure ShowMessagePos(const aMsg: string; X, Y: Integer);
|
procedure ShowMessagePos(const aMsg: string; X, Y: Integer);
|
||||||
|
|
||||||
|
Function InputQuery(const ACaption, APrompt : String; var Value : String) : Boolean;
|
||||||
|
Function InputBox(const ACaption, APrompt, ADefault : String) : String;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
@ -313,6 +315,69 @@ end.
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.18 2002/09/27 20:52:21 lazarus
|
||||||
|
MWE: Applied patch from "Andrew Johnson" <aj_genius@hotmail.com>
|
||||||
|
|
||||||
|
Here is the run down of what it includes -
|
||||||
|
|
||||||
|
-Vasily Volchenko's Updated Russian Localizations
|
||||||
|
|
||||||
|
-improvements to GTK Styles/SysColors
|
||||||
|
-initial GTK Palette code - (untested, and for now useless)
|
||||||
|
|
||||||
|
-Hint Windows and Modal dialogs now try to stay transient to
|
||||||
|
the main program form, aka they stay on top of the main form
|
||||||
|
and usually minimize/maximize with it.
|
||||||
|
|
||||||
|
-fixes to Form BorderStyle code(tool windows needed a border)
|
||||||
|
|
||||||
|
-fixes DrawFrameControl DFCS_BUTTONPUSH to match Win32 better
|
||||||
|
when flat
|
||||||
|
|
||||||
|
-fixes DrawFrameControl DFCS_BUTTONCHECK to match Win32 better
|
||||||
|
and to match GTK theme better. It works most of the time now,
|
||||||
|
but some themes, noteably Default, don't work.
|
||||||
|
|
||||||
|
-fixes bug in Bitmap code which broke compiling in NoGDKPixbuf
|
||||||
|
mode.
|
||||||
|
|
||||||
|
-misc other cleanups/ fixes in gtk interface
|
||||||
|
|
||||||
|
-speedbutton's should now draw correctly when flat in Win32
|
||||||
|
|
||||||
|
-I have included an experimental new CheckBox(disabled by
|
||||||
|
default) which has initial support for cbGrayed(Tri-State),
|
||||||
|
and WordWrap, and misc other improvements. It is not done, it
|
||||||
|
is mostly a quick hack to test DrawFrameControl
|
||||||
|
DFCS_BUTTONCHECK, however it offers many improvements which
|
||||||
|
can be seen in cbsCheck/cbsCrissCross (aka non-themed) state.
|
||||||
|
|
||||||
|
-fixes Message Dialogs to more accurately determine
|
||||||
|
button Spacing/Size, and Label Spacing/Size based on current
|
||||||
|
System font.
|
||||||
|
-fixes MessageDlgPos, & ShowMessagePos in Dialogs
|
||||||
|
-adds InputQuery & InputBox to Dialogs
|
||||||
|
|
||||||
|
-re-arranges & somewhat re-designs Control Tabbing, it now
|
||||||
|
partially works - wrapping around doesn't work, and
|
||||||
|
subcontrols(Panels & Children, etc) don't work. TabOrder now
|
||||||
|
works to an extent. I am not sure what is wrong with my code,
|
||||||
|
based on my other tests at least wrapping and TabOrder SHOULD
|
||||||
|
work properly, but.. Anyone want to try and fix?
|
||||||
|
|
||||||
|
-SynEdit(Code Editor) now changes mouse cursor to match
|
||||||
|
position(aka over scrollbar/gutter vs over text edit)
|
||||||
|
|
||||||
|
-adds a TRegion property to Graphics.pp, and Canvas. Once I
|
||||||
|
figure out how to handle complex regions(aka polygons) data
|
||||||
|
properly I will add Region functions to the canvas itself
|
||||||
|
(SetClipRect, intersectClipRect etc.)
|
||||||
|
|
||||||
|
-BitBtn now has a Stored flag on Glyph so it doesn't store to
|
||||||
|
lfm/lrs if Glyph is Empty, or if Glyph is not bkCustom(aka
|
||||||
|
bkOk, bkCancel, etc.) This should fix most crashes with older
|
||||||
|
GDKPixbuf libs.
|
||||||
|
|
||||||
Revision 1.17 2002/08/06 09:32:48 lazarus
|
Revision 1.17 2002/08/06 09:32:48 lazarus
|
||||||
MG: moved TColor definition to graphtype.pp and registered TColor names
|
MG: moved TColor definition to graphtype.pp and registered TColor names
|
||||||
|
|
||||||
|
|||||||
@ -32,7 +32,7 @@ begin
|
|||||||
parent := nil;
|
parent := nil;
|
||||||
Canvas.Font := Screen.HintFont;
|
Canvas.Font := Screen.HintFont;
|
||||||
color := clInfoBk;
|
color := clInfoBk;
|
||||||
Caption := 'THintWIndow';
|
Caption := 'THintWindow';
|
||||||
SetBounds(1,1,25,25);
|
SetBounds(1,1,25,25);
|
||||||
FHideInterval := 3000;
|
FHideInterval := 3000;
|
||||||
TheTimer := TTimer.Create(self);
|
TheTimer := TTimer.Create(self);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user