Valient's IT Notes

Christmas tree on Python on Turtle

# Christmas tree on Python
import turtle

def line(x1, y1, x2, y2):
    turtle.penup()
    turtle.goto(x1, y1)
    turtle.pendown()
    turtle.goto(x2, y2)
    
screen = turtle.Screen()
screen.title("Christmas Fir tree")
screen.setup(500, 500)
# To turn the drawing upside down
screen.setworldcoordinates(0, screen.window_height(), screen.window_width(), 0)

turtle.pencolor('green')

line(200,210,220,230)
line(220,230,180,230) 
line(180,230,200,210)
line(200,230,230,250)
line(230,250,170,250)
line(170,250,200,230)
line(200,250,250,270)
line(250,270,150,270)
line(150,270,200,250)
line(200,270,270,290)
line(270,290,130,290) 
line(130,290,200,270)
line(200,290,290,310)
line(290,310,110,310) 
line(110,310,200,290)

turtle.hideturtle()
turtle.exitonclick()

This simple code example was intentionally made similar to Christmas tree on Pascal on Android

The Christmas tree on Python on Turtle is available in My Github Repository

Christmas tree on Pascal on Android

Fir Tree on Pascal N-IDE on Android

Realized on Pascal N-IDE - Editor Compiler.

Pascal N-IDE - Editor Compiler, Nguyễn Mậu Hiếu, mauhieudev on Google Play

The Christmas tree on Pascal on Android is available in My Github Repository

Fir Tree Code on Pascal N-IDE on Android

program Firtree; 
uses graph, crt; 

var g,h: integer; 

begin 

g := detect; 
initgraph(g,h,'EGAVGA.BGI'); 
setcolor(2); 

line(200,210,220,230); ,
line(220,230,180,230); 
line(180,230,200,210);
line(200,230,230,250);
line(230,250,170,250);
line(170,250,200,230);
line(200,250,250,270);
line(250,270,150,270);
line(150,270,200,250);
line(200,270,270,290);
line(270,290,130,290); 
line(130,290,200,270);
line(200,290,290,310);
line(290,310,110,310); 
line(110,310,200,290);

readln; 
end.

Once upon a time there were Delphi Haters and their list of vendors who stopped supporting Delphi

Cemetery of Delphi Vendors who stopped supporting

I found Delphi Haters' Blog. Vendors who stopped supporting Delphi with date: Saturday, July 24, 2010
The fact is that Delphi/Object Pascal is in 8th position on tiobe.com TOP10 list of programming languages for November 2025 and the fact is encouraging.
There is fresh, the almost exact copy of origin list of vendors who stopped supporting Delphi I made a copy of these lists for myself and deleted the duplicates in them.
As for me, this is not a Delphi Vendors Cemetery, but an expanded window of opportunity and an experience that can be borrowed.

I look for information about them in search engines.

Vendors who went out of business

athrasoft.com – Vendor of Athrasoft Plugins
cgiexpert.com – Vendor of CGIExpert
odbc98.com – Vendor of ODBC98 – reason cited as poor or non-existent sales
classicsw.com – Vendor of Classic Component
PIMFlashfesoft.com – Vendor of PIMFlash
turbopower.com – Vendor of TurboPower Components
maxcomponents.net – Vendor of Max Help and Max Components
buypin.com – Vendor of B.S. components
vistadb.com – Vendor of Apollo database
asp-express.com – Vendor of classic ASP components
classicworks.com.au – Vendor of Classworks Development VCL
defined.net – Vendor of Defined Forms
dream-com.com – Vendor of Dream Company
crynesoft.com – Vendor of Genesis Component Pack
teletech-systems.com – HelpWriter application
volgadb.com – Vendor of Volga Database
DFS (Delphi Free Stuff)
animatedmenus.com – Vendor of Animated Menus – cited Poor sales
acctsync.com – Vendor of QuickBooks Components
DuckReports – Vendor of Duck Reporting Components
BalticSolutions – Vendor of ColorMemo
Helping Hands Software – n/a
UDC Corp – Vendor of MemoWriter, PowerSpreadsheet
IBrightSolutions – Vendor of Simulation Software
Unley Software – KeyDB
DictaSoft.com, Layout Components
CrystalVCL.net, Crystal VCL and other components
Cando Framework
RHITech.com, Excel Add-in component
DScriptVCL.com, Delphi Scripting VCL components
CSS-Software.com, CSS Component Suite
JB Components/ JB Component Suite
CytonResearch.com, VCL Component Packs
Codecellerate.com, Drawing Engine,
EZCad Soft, EZSoft Engineering
ValdSoft, VSLib component package
AriseSoft, AriseSoft Shell Component Pack (and others)
CoolPaint.com, HTML tokenizer, HTML mini-viewer, Cool Chart
ksv.hypermart.net, Handmade VCL Components
alphadomino.ru, Gantt Chart components
ta4delphi.com, Technical Analysis Charting components
praktical.com, Praktical Organic button components
maverick.co.uk, Aqua Mac-looking components
FlatStyle.de, Flat Style Components
SlickTools.com, InfoMatters office components
MediaPilot.com, Installation components
Intag.de, DxComponent Collection

Vendors who stopped supporting Delphi

Softel VDM – Vendor of SftTree, SftBox, SftButton – reason cited as “massive software piracy”
AHM Tritron Tools – Vendor of AHM Components
adrock.com – Adrock Calendar Components (GPL)
tekhnologos.com – Their VCL library is no longer for licensing
SweetControls.com – Sweet Controls
degisy.com – Degisy Controls

Vendors who stopped supporting one of their Delphi components/ or all of their products

MicroOlap.com, Packet Sniffer for Delphi, end of life
SciBit.com MySQL Components, end of life
KsDev.com, Block Engine, Office VCL (disappeared from their site)
lphaAsp.com Alpha Corporation, Alpha Units, Alpha Interceptor (disappeared from their site)
Djordje Peric, PDJ Packs (their website is no longer available)
CodeBot.com, CodeBot library (no longer available for download)
SuiPack.com, KeyDB (formerly from SUIPack)
Syntetix.com, Theme Control
CoolDev.com (All their Delphi products are now freeware)
9spice.net RapidSolutions, RapidTree, 9Rays Treeview
Willmark.ru, WillMark Tree Wizard
GeoCities/Stephan Marais – Open Sybase CT-Library Library
TekhneLogos.com, PowerCad, supposedly given a non-existent 10% discount on Torry’s
Baltsoft.com, ProjectPlus components
Tops.com.pl, SMSC Delphi components (cited as “no demand” or “very low response”)
Timelesstech.com, all their Delphi components (Lock & Key, Fax components)

DFS EllipsisPanel is Delphi component that can shorten the caption text, replacing it with '...'

Delphi code modernization trend
Changes in TdfsEllipsisPanel have been made by Valient Newman to make the component meet the requirements of Delphi 2, 2009 and higher.
Checked in 2009
Updated 22 dec 2025

TdfsEllipsisPanel v1.20

DFS EllipsisPanel is Delphi component that can shorten the caption text, replacing it with '...' when it does not fit the available space. Also a generic function that "ellipsifies" a string is provided.

The components TdfsEllipsisPanel v1.20 is available in My Github Repository

This component can be freely used and distributed in commercial and private environments. All DFS source code is provided free of charge. The software is provided to you "AS-IS". As such, there is no guarantee of any support whatsoever. The component throws an Access violation error and its source code can be used as an example for study.

DFS GrabBar - Delphi component, grab bar, or splitter, to allow two windows to be resized simultaneously

Delphi code modernization trend
Changes in TdfsGrabBar have been made by Valient Newman to make the component meet the requirements of Delphi 2, 2009 and higher.
Checked in 2009
Updated 22 dec 2025

TdfsGrabBar v1.17

DFS GrabBar is a bar that allows two TWinControl components to be resized by dragging it.

The components TdfsGrabBar v1.17 is available in My Github Repository