Note: You must be registered in order to post a reply. To register, click here. Registration is FREE!
T O P I C R E V I E W
Flashcqxg
Posted - Jan 18 2024 : 03:05:59 Hello: My Code show the error message:Error creating GDI+ object (#21001) Proc: TImageEnProc;
Bitmap.Create(3000, 2000, clWhite);
Proc := TImageEnProc.CreateFromBitmap(Bitmap);
try
J := 0;
K := 0;
for I := 1 to 80 do
begin
X := 80 + J * 1000;
Y := 300 + K * 50;
Proc.TextOut(X, Y, I.ToString, '#23435;#20307;', 25, clRed, []);
if (I mod 30) = 0 then
begin
Inc(J);
K := 0;
end
else
Inc(K);
end;
finally
Proc.Free;
end;
1 L A T E S T R E P L I E S (Newest First)
xequte
Posted - Jan 18 2024 : 19:00:49 Hi
Your object creation code is not correct. It should read:
Search
