paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 18:19:34 +02: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
NewWidget:=gtk_gl_area_new(Plongint(@InitAttrList));
Result:=longint(NewWidget);
TGtkObject(InterfaceObject).FinishComponentCreate(Self,NewWidget,true);
TGTKWidgetSet(InterfaceObject).FinishComponentCreate(Self,NewWidget,true);
end;
end;

17
lcl/include/customsplitter.inc
View File

@ -61,9 +61,14 @@ end;
procedure TCustomSplitter.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
var
MousePos: TPoint;
begin
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;
procedure TCustomSplitter.MouseMove(Shift: TShiftState; X, Y: Integer);
@ -76,12 +81,16 @@ var
MinTop: Integer;
MaxTop: Integer;
NewTop: Integer;
MousePos: TPoint;
begin
inherited MouseMove(Shift, X, Y);
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
Offset:=X-fSplitterStartXY.X;
Offset:=MousePos.X-fSplitterStartXY.X;
if Offset=0 then exit;
MinLeft:=0;
MaxLeft:=Parent.ClientWidth-Width;
@ -104,7 +113,7 @@ begin
end else
Left:=NewLeft;
end else begin
Offset:=Y-fSplitterStartXY.Y;
Offset:=MousePos.Y-fSplitterStartXY.Y;
if Offset=0 then exit;
MinTop:=0;
MaxTop:=Parent.ClientHeight-Height;

5
lcl/include/promptdialog.inc
View File

@ -236,7 +236,7 @@ begin
Clipping := True;
Wordbreak := True;
SystemFont := True;
Opaque := True;
Opaque := False;
end;
// calculate the width & height we need to display the Message
@ -377,6 +377,9 @@ end;
{
$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
fixed TCustomImage.DoAutoSize fixing uninitialized vars