mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-07 03:18:32 +02:00
MUI: custom class Drawroutine to own eventhandler for easier debugging
git-svn-id: trunk@54455 -
This commit is contained in:
marcus
parent
f3a6a4e47b
commit
e3c7e8abc3
@ -1580,15 +1580,146 @@ begin
|
|||||||
//writeln('ShiftState AROS: ', HexStr(Pointer(State)), ' and ', HexStr(Pointer(IEQUALIFIER_LALT)),' -> ', HexStr(Pointer(Result)));
|
//writeln('ShiftState AROS: ', HexStr(Pointer(State)), ' and ', HexStr(Pointer(IEQUALIFIER_LALT)),' -> ', HexStr(Pointer(Result)));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function Dispatcher(cl: PIClass; Obj: PObject_; Msg: intuition.PMsg): longword;
|
|
||||||
|
{ ######################################################################
|
||||||
|
DRAW Event for Dispatcher}
|
||||||
|
function DrawEvent(cl: PIClass; Obj: PObject_; Msg: intuition.PMsg): longword;
|
||||||
var
|
var
|
||||||
|
MUIB: TMUIObject;
|
||||||
|
Buffered: Boolean;
|
||||||
ri: PMUI_RenderInfo;
|
ri: PMUI_RenderInfo;
|
||||||
rp: PRastPort;
|
rp: PRastPort;
|
||||||
|
li: pLayer_Info;
|
||||||
clip: Pointer;
|
clip: Pointer;
|
||||||
|
WithScrollbars: Boolean;
|
||||||
|
PaintX, PaintY: Integer;
|
||||||
|
PaintH, PaintW: Integer;
|
||||||
|
begin
|
||||||
|
MUIB := TMUIObject(INST_DATA(cl, Pointer(obj))^);
|
||||||
|
//sysdebugln('->>DRAW');
|
||||||
|
//if (PMUIP_Draw(msg)^.Flags and MADF_DRAWOBJECT = 0) then
|
||||||
|
// Exit;
|
||||||
|
Buffered := True;
|
||||||
|
rp := nil;
|
||||||
|
ri := MUIRenderInfo(Obj);
|
||||||
|
if Assigned(ri) then
|
||||||
|
rp := ri^.mri_RastPort;
|
||||||
|
if Assigned(rp) then
|
||||||
|
begin
|
||||||
|
MUIB := TMUIObject(INST_DATA(cl, Pointer(obj))^);
|
||||||
|
clip := MUI_AddClipping(ri, Obj_Left(obj), Obj_top(Obj),
|
||||||
|
Obj_Width(Obj), Obj_Height(Obj));
|
||||||
|
try
|
||||||
|
if Assigned(MUIB) then
|
||||||
|
begin
|
||||||
|
if MUIB.FirstPaint and (MUIB is TMUIGroupBox) then
|
||||||
|
begin
|
||||||
|
MUIB.FirstPaint := False;
|
||||||
|
TWinControl(MUIB.pasobject).InvalidateClientRectCache(True);
|
||||||
|
end;
|
||||||
|
//writeln('-->Draw ', muib.classname, ' ', HexStr(MUIB.FMUICanvas));
|
||||||
|
//if MUIB.MUIDrawing then
|
||||||
|
WithScrollbars := Assigned(MUIB.VScroll) and Assigned(MUIB.HScroll);
|
||||||
|
//
|
||||||
|
if (MUIB.FChilds.Count = 0) or ((MUIB.FChilds.Count = 2) and WithScrollbars) then
|
||||||
|
begin
|
||||||
|
//PMUIP_Draw(msg)^.Flags := MADF_DRAWOBJECT;
|
||||||
|
//Result := DoSuperMethodA(cl, obj, msg);
|
||||||
|
if MUIB.MUIDrawing then
|
||||||
|
Result := DoSuperMethodA(cl, obj, msg);
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
{.$ifndef MorphOS} // makes strong flicker on MorphOS
|
||||||
|
if MUIB is TMuiGroup then
|
||||||
|
Result := DoSuperMethodA(cl, obj, msg);
|
||||||
|
{.$endif}
|
||||||
|
end;
|
||||||
|
//Result := DoSuperMethodA(cl, obj, msg);
|
||||||
|
Buffered := True; //not MUIB.MUIDrawing;//(MUIB.FChilds.Count = 0) or ((MUIB.FChilds.Count = 2) and WithScrollbars);
|
||||||
|
if MUIB is TMUIWindow then
|
||||||
|
begin
|
||||||
|
PaintX := Obj_Left(Obj);
|
||||||
|
PaintY := Obj_Top(Obj);
|
||||||
|
PaintW := Obj_Width(Obj);
|
||||||
|
PaintH := Obj_Height(Obj);
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
PaintX := Obj_MLeft(Obj);
|
||||||
|
PaintY := Obj_MTop(Obj);
|
||||||
|
PaintW := Obj_MWidth(Obj);
|
||||||
|
PaintH := Obj_MHeight(Obj);
|
||||||
|
end;
|
||||||
|
// make sure we stay inside the window (MOS/Amiga need this)
|
||||||
|
PaintW := Min(PaintW, (ri^.mri_Window^.Width - PaintX) - ri^.mri_Window^.BorderRight);
|
||||||
|
PaintH := Min(PaintH, (ri^.mri_Window^.Height - PaintY) - ri^.mri_Window^.BorderBottom);
|
||||||
|
//
|
||||||
|
if WithScrollbars then
|
||||||
|
begin
|
||||||
|
if MUIB.VScroll.Visible then
|
||||||
|
PaintW := PaintW - MUIB.VScroll.Width;
|
||||||
|
If MUIB.HScroll.Visible then
|
||||||
|
PaintH := PaintH - MUIB.HScroll.Height;
|
||||||
|
//writeln('-->Draw ', muib.classname, ' ', HexStr(MUIB.FMUICanvas));
|
||||||
|
end;
|
||||||
|
if Buffered then
|
||||||
|
begin
|
||||||
|
MUIB.FMUICanvas.DrawRect := Rect(0, 0, PaintW, PaintH);
|
||||||
|
MUIB.FMUICanvas.RastPort := CreateRastPortA;
|
||||||
|
li := NewLayerInfo();
|
||||||
|
MUIB.FMUICanvas.RastPort^.Bitmap := AllocBitMap(PaintW, PaintH, rp^.Bitmap^.Depth, BMF_MINPLANES or BMF_DISPLAYABLE, rp^.Bitmap);
|
||||||
|
MUIB.FMUICanvas.RastPort^.Layer := CreateUpFrontHookLayer(li, MUIB.FMUICanvas.RastPort^.Bitmap, 0, 0, PaintW - 1, PaintH - 1, LAYERSIMPLE, nil, nil);
|
||||||
|
ClipBlit(rp, PaintX, PaintY, MUIB.FMUICanvas.RastPort, 0, 0, PaintW, PaintH, $00C0);
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
MUIB.FMUICanvas.RastPort := rp;
|
||||||
|
MUIB.FMUICanvas.DrawRect :=
|
||||||
|
Rect(PaintX, PaintY, PaintW, PaintH);
|
||||||
|
end;
|
||||||
|
MUIB.FMUICanvas.Offset.X := 0;
|
||||||
|
MUIB.FMUICanvas.Offset.Y := 0;
|
||||||
|
MUIB.FMUICanvas.Position.X := 0;
|
||||||
|
MUIB.FMUICanvas.Position.Y := 0;
|
||||||
|
MUIB.FMUICanvas.RenderInfo := ri;
|
||||||
|
MUIB.FMUICanvas.DeInitCanvas;
|
||||||
|
MUIB.FMUICanvas.InitCanvas;
|
||||||
|
//writeln('-->Draw ', MUIB.FMUICanvas.DrawRect.Top, ', ', MUIB.FMUICanvas.DrawRect.Bottom);
|
||||||
|
MUIB.DoRedraw;
|
||||||
|
if Assigned(MUIB.FOnDraw) then
|
||||||
|
begin
|
||||||
|
MUIB.FOnDraw(MUIB);
|
||||||
|
end;
|
||||||
|
MUIB.FMUICanvas.DeInitCanvas;
|
||||||
|
if Buffered and Assigned(MUIB.FMUICanvas.RastPort) then
|
||||||
|
begin
|
||||||
|
ClipBlit(MUIB.FMUICanvas.RastPort, 0,0, rp, PaintX, PaintY, PaintW, PaintH, $00C0);
|
||||||
|
DeleteLayer(0, MUIB.FMUICanvas.RastPort^.layer);
|
||||||
|
DisposeLayerInfo(li);
|
||||||
|
MUIB.FMUICanvas.RastPort^.layer := nil;
|
||||||
|
FreeBitmap(MUIB.FMUICanvas.RastPort^.Bitmap);
|
||||||
|
FreeRastPortA(MUIB.FMUICanvas.RastPort);
|
||||||
|
MUIB.FMUICanvas.RastPort := nil;
|
||||||
|
end;
|
||||||
|
//writeln('<--Draw ', muib.classname);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
MUI_RemoveClipRegion(ri, clip);
|
||||||
|
MUIB.FMUICanvas.RastPort := nil;
|
||||||
|
end;
|
||||||
|
MUIB.DoChildRedraw();
|
||||||
|
end;
|
||||||
|
Result := 0;
|
||||||
|
end;
|
||||||
|
{END Draw event
|
||||||
|
########################################################################}
|
||||||
|
|
||||||
|
|
||||||
|
function Dispatcher(cl: PIClass; Obj: PObject_; Msg: intuition.PMsg): longword;
|
||||||
|
var
|
||||||
MUIB: TMUIObject;
|
MUIB: TMUIObject;
|
||||||
MUIParent: TMUIObject;
|
MUIParent: TMUIObject;
|
||||||
p: TMUIObject;
|
p: TMUIObject;
|
||||||
HEMsg: PMUIP_HandleEvent;
|
HEMsg: PMUIP_HandleEvent;
|
||||||
|
ri: PMUI_RenderInfo;
|
||||||
iMsg: PIntuiMessage;
|
iMsg: PIntuiMessage;
|
||||||
winObj: PObject_;
|
winObj: PObject_;
|
||||||
relX, relY: Integer;
|
relX, relY: Integer;
|
||||||
@ -1601,15 +1732,10 @@ var
|
|||||||
Win: PWindow;
|
Win: PWindow;
|
||||||
CurTime: Int64;
|
CurTime: Int64;
|
||||||
MUIWin: TMUIWindow;
|
MUIWin: TMUIWindow;
|
||||||
Buffered: Boolean;
|
|
||||||
WithScrollbars: Boolean;
|
|
||||||
PaintX, PaintY: Integer;
|
|
||||||
PaintH, PaintW: Integer;
|
|
||||||
IsSysKey: Boolean;
|
IsSysKey: Boolean;
|
||||||
EatEvent: Boolean;
|
EatEvent: Boolean;
|
||||||
Key: Char;
|
Key: Char;
|
||||||
i: Integer;
|
i: Integer;
|
||||||
li: pLayer_Info;
|
|
||||||
{$ifdef AmigaOS4}
|
{$ifdef AmigaOS4}
|
||||||
data: PIntuiWheelData;
|
data: PIntuiWheelData;
|
||||||
{$endif}
|
{$endif}
|
||||||
@ -1667,117 +1793,7 @@ begin
|
|||||||
// ################# DRAW EVENT ########################################
|
// ################# DRAW EVENT ########################################
|
||||||
MUIM_Draw:
|
MUIM_Draw:
|
||||||
begin
|
begin
|
||||||
//sysdebugln('->>DRAW');
|
Result := DrawEvent(cl, obj, Msg);
|
||||||
//if (PMUIP_Draw(msg)^.Flags and MADF_DRAWOBJECT <> 0) then
|
|
||||||
// Exit;
|
|
||||||
rp := nil;
|
|
||||||
ri := MUIRenderInfo(Obj);
|
|
||||||
if Assigned(ri) then
|
|
||||||
rp := ri^.mri_RastPort;
|
|
||||||
if Assigned(rp) then
|
|
||||||
begin
|
|
||||||
MUIB := TMUIObject(INST_DATA(cl, Pointer(obj))^);
|
|
||||||
clip := MUI_AddClipping(ri, Obj_Left(obj), Obj_top(Obj),
|
|
||||||
Obj_Width(Obj), Obj_Height(Obj));
|
|
||||||
try
|
|
||||||
if Assigned(MUIB) then
|
|
||||||
begin
|
|
||||||
if MUIB.FirstPaint and (MUIB is TMUIGroupBox) then
|
|
||||||
begin
|
|
||||||
MUIB.FirstPaint := False;
|
|
||||||
TWinControl(MUIB.pasobject).InvalidateClientRectCache(True);
|
|
||||||
end;
|
|
||||||
//writeln('-->Draw ', muib.classname, ' ', HexStr(MUIB.FMUICanvas));
|
|
||||||
//if MUIB.MUIDrawing then
|
|
||||||
WithScrollbars := Assigned(MUIB.VScroll) and Assigned(MUIB.HScroll);
|
|
||||||
//
|
|
||||||
if (MUIB.FChilds.Count = 0) or ((MUIB.FChilds.Count = 2) and WithScrollbars) then
|
|
||||||
begin
|
|
||||||
//PMUIP_Draw(msg)^.Flags := MADF_DRAWOBJECT;
|
|
||||||
//Result := DoSuperMethodA(cl, obj, msg);
|
|
||||||
if MUIB.MUIDrawing then
|
|
||||||
Result := DoSuperMethodA(cl, obj, msg);
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
{.$ifndef MorphOS} // makes strong flicker on MorphOS
|
|
||||||
if MUIB is TMuiGroup then
|
|
||||||
Result := DoSuperMethodA(cl, obj, msg);
|
|
||||||
{.$endif}
|
|
||||||
end;
|
|
||||||
//Result := DoSuperMethodA(cl, obj, msg);
|
|
||||||
Buffered := True; //not MUIB.MUIDrawing;//(MUIB.FChilds.Count = 0) or ((MUIB.FChilds.Count = 2) and WithScrollbars);
|
|
||||||
if MUIB is TMUIWindow then
|
|
||||||
begin
|
|
||||||
PaintX := Obj_Left(Obj);
|
|
||||||
PaintY := Obj_Top(Obj);
|
|
||||||
PaintW := Obj_Width(Obj);
|
|
||||||
PaintH := Obj_Height(Obj);
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
PaintX := Obj_MLeft(Obj);
|
|
||||||
PaintY := Obj_MTop(Obj);
|
|
||||||
PaintW := Obj_MWidth(Obj);
|
|
||||||
PaintH := Obj_MHeight(Obj);
|
|
||||||
end;
|
|
||||||
// make sure we stay inside the window (MOS/Amiga need this)
|
|
||||||
PaintW := Min(PaintW, (ri^.mri_Window^.Width - PaintX) - ri^.mri_Window^.BorderRight);
|
|
||||||
PaintH := Min(PaintH, (ri^.mri_Window^.Height - PaintY) - ri^.mri_Window^.BorderBottom);
|
|
||||||
//
|
|
||||||
if WithScrollbars then
|
|
||||||
begin
|
|
||||||
if MUIB.VScroll.Visible then
|
|
||||||
PaintW := PaintW - MUIB.VScroll.Width;
|
|
||||||
If MUIB.HScroll.Visible then
|
|
||||||
PaintH := PaintH - MUIB.HScroll.Height;
|
|
||||||
//writeln('-->Draw ', muib.classname, ' ', HexStr(MUIB.FMUICanvas));
|
|
||||||
end;
|
|
||||||
if Buffered then
|
|
||||||
begin
|
|
||||||
MUIB.FMUICanvas.DrawRect := Rect(0, 0, PaintW, PaintH);
|
|
||||||
MUIB.FMUICanvas.RastPort := CreateRastPortA;
|
|
||||||
li := NewLayerInfo();
|
|
||||||
MUIB.FMUICanvas.RastPort^.Bitmap := AllocBitMap(PaintW, PaintH, rp^.Bitmap^.Depth, BMF_MINPLANES or BMF_DISPLAYABLE, rp^.Bitmap);
|
|
||||||
MUIB.FMUICanvas.RastPort^.Layer := CreateUpFrontHookLayer(li, MUIB.FMUICanvas.RastPort^.Bitmap, 0, 0, PaintW - 1, PaintH - 1, LAYERSIMPLE, nil, nil);
|
|
||||||
ClipBlit(rp, PaintX, PaintY, MUIB.FMUICanvas.RastPort, 0, 0, PaintW, PaintH, $00C0);
|
|
||||||
end else
|
|
||||||
begin
|
|
||||||
MUIB.FMUICanvas.RastPort := rp;
|
|
||||||
MUIB.FMUICanvas.DrawRect :=
|
|
||||||
Rect(PaintX, PaintY, PaintW, PaintH);
|
|
||||||
end;
|
|
||||||
MUIB.FMUICanvas.Offset.X := 0;
|
|
||||||
MUIB.FMUICanvas.Offset.Y := 0;
|
|
||||||
MUIB.FMUICanvas.Position.X := 0;
|
|
||||||
MUIB.FMUICanvas.Position.Y := 0;
|
|
||||||
MUIB.FMUICanvas.RenderInfo := ri;
|
|
||||||
MUIB.FMUICanvas.DeInitCanvas;
|
|
||||||
MUIB.FMUICanvas.InitCanvas;
|
|
||||||
//writeln('-->Draw ', MUIB.FMUICanvas.DrawRect.Top, ', ', MUIB.FMUICanvas.DrawRect.Bottom);
|
|
||||||
MUIB.DoRedraw;
|
|
||||||
if Assigned(MUIB.FOnDraw) then
|
|
||||||
begin
|
|
||||||
MUIB.FOnDraw(MUIB);
|
|
||||||
end;
|
|
||||||
MUIB.FMUICanvas.DeInitCanvas;
|
|
||||||
if Buffered and Assigned(MUIB.FMUICanvas.RastPort) then
|
|
||||||
begin
|
|
||||||
ClipBlit(MUIB.FMUICanvas.RastPort, 0,0, rp, PaintX, PaintY, PaintW, PaintH, $00C0);
|
|
||||||
DeleteLayer(0, MUIB.FMUICanvas.RastPort^.layer);
|
|
||||||
DisposeLayerInfo(li);
|
|
||||||
MUIB.FMUICanvas.RastPort^.layer := nil;
|
|
||||||
FreeBitmap(MUIB.FMUICanvas.RastPort^.Bitmap);
|
|
||||||
FreeRastPortA(MUIB.FMUICanvas.RastPort);
|
|
||||||
MUIB.FMUICanvas.RastPort := nil;
|
|
||||||
end;
|
|
||||||
//writeln('<--Draw ', muib.classname);
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
MUI_RemoveClipRegion(ri, clip);
|
|
||||||
MUIB.FMUICanvas.RastPort := nil;
|
|
||||||
end;
|
|
||||||
MUIB.DoChildRedraw();
|
|
||||||
end;
|
|
||||||
Result := 0;
|
|
||||||
end;
|
end;
|
||||||
// ################# Handle EVENT ######################################
|
// ################# Handle EVENT ######################################
|
||||||
MUIM_HANDLEEVENT: begin
|
MUIM_HANDLEEVENT: begin
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user