Forum: Lazarus (IDE)
by matashen,
19. Feb 2019
und evtl mal in die canvas.inc gucken, evtl hilft im Draw ein Changing und Changed wie im DrawFocusrect
Procedure TCanvas.Draw(X, Y: Integer; SrcGraphic: TGraphic);
var
ARect: TRect;
begin
if not Assigned(SrcGraphic) then exit;
ARect:=Bounds(X,Y,SrcGraphic.Width,SrcGraphic.Height);
StretchDraw(ARect,SrcGraphic);
end;
Forum: Lazarus (IDE)
by matashen,
18. Feb 2019
Hi,
schonmal im lcl\include graphic.inc geguckt ob die changed(self) alle sauber drin sind wo es bei dir hakt.
Bin mir nicht sicher ob in dem Code das repaint / refresh sitzt, aber einfach mal durch die includes durchhangeln