paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 13:57:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed TextStyle in dialogs

Browse Source 
git-svn-id: trunk@5273 -
This commit is contained in:
mattias 2004-03-06 16:11:27 +00:00
parent 13a127f522
commit ddf927f576
3 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/gtk/gtkglarea/gtkglareacontrol.pas
View File

@ -187,7 +187,7 @@ begin
else begin else begin
NewWidget:=gtk_gl_area_new(Plongint(@InitAttrList)); NewWidget:=gtk_gl_area_new(Plongint(@InitAttrList));
Result:=longint(NewWidget); Result:=longint(NewWidget);
TGtkObject(InterfaceObject).FinishComponentCreate(Self,NewWidget,true); TGTKWidgetSet(InterfaceObject).FinishComponentCreate(Self,NewWidget,true);
end; end;
end; end;

17
lcl/include/customsplitter.inc
View File

@ -61,9 +61,14 @@ end;
procedure TCustomSplitter.MouseDown(Button: TMouseButton; Shift: TShiftState; X, procedure TCustomSplitter.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer); Y: Integer);
var
MousePos: TPoint;
begin begin
inherited MouseDown(Button, Shift, X, Y); inherited MouseDown(Button, Shift, X, Y);
StartSplitterMove(true,Point(X,Y)); // While resizing X, Y are not valid. Use absolute mouse position.
GetCursorPos(MousePos);
MousePos:=ScreenToClient(MousePos);
StartSplitterMove(true,MousePos);
end; end;
procedure TCustomSplitter.MouseMove(Shift: TShiftState; X, Y: Integer); procedure TCustomSplitter.MouseMove(Shift: TShiftState; X, Y: Integer);
@ -76,12 +81,16 @@ var
MinTop: Integer; MinTop: Integer;
MaxTop: Integer; MaxTop: Integer;
NewTop: Integer; NewTop: Integer;
MousePos: TPoint;
begin begin
inherited MouseMove(Shift, X, Y); inherited MouseMove(Shift, X, Y);
if (ssLeft in Shift) and (Parent<>nil) then begin if (ssLeft in Shift) and (Parent<>nil) then begin
StartSplitterMove(false,Point(X,Y)); // While resizing X, Y are not valid. Use absolute mouse position.
GetCursorPos(MousePos);
MousePos:=ScreenToClient(MousePos);
StartSplitterMove(false,MousePos);
if Align in [alLeft,alRight] then begin if Align in [alLeft,alRight] then begin
Offset:=X-fSplitterStartXY.X; Offset:=MousePos.X-fSplitterStartXY.X;
if Offset=0 then exit; if Offset=0 then exit;
MinLeft:=0; MinLeft:=0;
MaxLeft:=Parent.ClientWidth-Width; MaxLeft:=Parent.ClientWidth-Width;
@ -104,7 +113,7 @@ begin
end else end else
Left:=NewLeft; Left:=NewLeft;
end else begin end else begin
Offset:=Y-fSplitterStartXY.Y; Offset:=MousePos.Y-fSplitterStartXY.Y;
if Offset=0 then exit; if Offset=0 then exit;
MinTop:=0; MinTop:=0;
MaxTop:=Parent.ClientHeight-Height; MaxTop:=Parent.ClientHeight-Height;

5
lcl/include/promptdialog.inc
View File

@ -236,7 +236,7 @@ begin
Clipping := True; Clipping := True;
Wordbreak := True; Wordbreak := True;
SystemFont := True; SystemFont := True;
Opaque := True; Opaque := False;
end; end;
// calculate the width & height we need to display the Message // calculate the width & height we need to display the Message
@ -377,6 +377,9 @@ end;
{ {
$Log$ $Log$
Revision 1.12 2004/03/06 16:11:27 mattias
fixed TextStyle in dialogs
Revision 1.11 2004/02/17 00:32:25 mattias Revision 1.11 2004/02/17 00:32:25 mattias
fixed TCustomImage.DoAutoSize fixing uninitialized vars fixed TCustomImage.DoAutoSize fixing uninitialized vars