Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
procedure Tdsmainform.mytreeAfterCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; CellRect: TRect); var X, Y, i: Integer; xx : trect; ResName : string; Png : Tpngimage; Res: TResourceStream; data : pertreedata; fnumber : string; begin data:=mytree.GetNodeData(node); fnumber:=TTreeDataClass(data.FObject).flag; xx:= mytree.Header.Columns.GetRect ; X := xx.Left + TVirtualStringTree(Sender).Margin; Y := xx.Top + ((xx.bottom-xx.top) div 2) + 2; ResName := 'FLAGS' + fnumber; Png := tpngimage.create; Res := TResourceStream.Create(hInstance,ResName,RT_RCDATA); Png.LoadFromStream(Res); TargetCanvas.draw(X, Y, png); freeAndNil(res); FreeAndNil(png); end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.