paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 03:46:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: designer mediator: fixed example invalidaterect

Browse Source 
git-svn-id: trunk@21645 -
This commit is contained in:
mattias 2009-09-10 11:25:19 +00:00
parent de3d5fa347
commit 4b39cfdce1
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/designnonlcl/mywidgetdesigner.pas
View File

@ -90,9 +90,13 @@ end;
class function TMyWidgetMediator.CreateMediator(TheOwner, aForm: TComponent class function TMyWidgetMediator.CreateMediator(TheOwner, aForm: TComponent
): TDesignerMediator; ): TDesignerMediator;
var
Mediator: TMyWidgetMediator;
begin begin
Result:=inherited CreateMediator(TheOwner,aForm); Result:=inherited CreateMediator(TheOwner,aForm);
TMyWidgetMediator(Result).FMyForm:=aForm as TMyForm; Mediator:=TMyWidgetMediator(Result);
Mediator.FMyForm:=aForm as TMyForm;
Mediator.FMyForm.Designer:=Mediator;
end; end;
class function TMyWidgetMediator.FormClass: TComponentClass; class function TMyWidgetMediator.FormClass: TComponentClass;
@ -165,9 +169,9 @@ procedure TMyWidgetMediator.Paint;
// inner frame // inner frame
if AWidget.AcceptChildsAtDesignTime then begin if AWidget.AcceptChildsAtDesignTime then begin
Pen.Color:=clMaroon; Pen.Color:=clMaroon;
Rectangle(AWidget.BorderLeft,AWidget.BorderTop, Rectangle(AWidget.BorderLeft-1,AWidget.BorderTop-1,
AWidget.Width-AWidget.BorderRight, AWidget.Width-AWidget.BorderRight+1,
AWidget.Height-AWidget.BorderBottom); AWidget.Height-AWidget.BorderBottom+1);
end; end;
// caption // caption
TextOut(5,2,AWidget.Caption); TextOut(5,2,AWidget.Caption);

1
examples/designnonlcl/mywidgetset.pas
View File

@ -292,6 +292,7 @@ end;
procedure TMyWidget.InvalidateRect(ARect: TRect; Erase: boolean); procedure TMyWidget.InvalidateRect(ARect: TRect; Erase: boolean);
begin begin
//writeln('TMyWidget.InvalidateRect ',Name,' ',ARect.Left,',',ARect.Top);
ARect.Left:=Max(0,ARect.Left); ARect.Left:=Max(0,ARect.Left);
ARect.Top:=Max(0,ARect.Top); ARect.Top:=Max(0,ARect.Top);
ARect.Right:=Min(Width,ARect.Right); ARect.Right:=Min(Width,ARect.Right);