diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index c88f006383..f1b6e05c6c 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -1868,6 +1868,18 @@ begin {$IFDEF SYN_LAZARUS} LastMouseCaret:=PixelsToRowColumn(Point(X,Y)); {$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 (Abs(fMouseDownX - X) >= GetSystemMetrics(SM_CXDRAG)) or (Abs(fMouseDownY - Y) >= GetSystemMetrics(SM_CYDRAG)) diff --git a/ide/splash.pp b/ide/splash.pp index 9aeee23fa5..740d73b410 100644 --- a/ide/splash.pp +++ b/ide/splash.pp @@ -68,7 +68,7 @@ begin Width := 429; Height := 341; Position:= poScreenCenter; - BorderStyle := bsToolWindow; + BorderStyle := bsNone; FPixmap := TPixmap.Create; FPixmap.LoadFromLazarusResource('splash_logo'); @@ -141,6 +141,69 @@ end. { ============================================================================= $Log$ + Revision 1.16 2002/09/27 20:52:18 lazarus + MWE: Applied patch from "Andrew Johnson" + + 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 MG: updated licenses diff --git a/lcl/dialogs.pp b/lcl/dialogs.pp index fe88940438..8822cb684a 100644 --- a/lcl/dialogs.pp +++ b/lcl/dialogs.pp @@ -243,6 +243,8 @@ type procedure ShowMessageFmt(const aMsg: string; Params: array of const); 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 @@ -313,6 +315,69 @@ end. { ============================================================================= $Log$ + Revision 1.18 2002/09/27 20:52:21 lazarus + MWE: Applied patch from "Andrew Johnson" + + 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 MG: moved TColor definition to graphtype.pp and registered TColor names diff --git a/lcl/include/hintwindow.inc b/lcl/include/hintwindow.inc index c8c7008fb3..aa4abf3335 100644 --- a/lcl/include/hintwindow.inc +++ b/lcl/include/hintwindow.inc @@ -32,7 +32,7 @@ begin parent := nil; Canvas.Font := Screen.HintFont; color := clInfoBk; - Caption := 'THintWIndow'; + Caption := 'THintWindow'; SetBounds(1,1,25,25); FHideInterval := 3000; TheTimer := TTimer.Create(self);