Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Изменение гаммы рисунка
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Изменение гаммы рисунка
Зависимости: Graphics
Автор: Fenik, chook_nu@uraltc.ru, Новоуральск
Copyright: Автор Федоровских Николай
Дата: 5 июня 2002 г.
***************************************************** }
procedure Gamma(Bitmap: TBitmap; L: Double);
{0.0 < L < 7.0}
function
Power(Base, Exponent: Extended): Extended;
begin
Result := Exp(Exponent * Ln(Base));
end
;
type
TRGB = record
B, G, R: Byte;
end
;
pRGB = ^TRGB;
var
Dest: pRGB;
X, Y: Word;
GT: array
[0..255] of
Byte;
begin
Bitmap.PixelFormat := pf24Bit;
GT[0] := 0;
if
L = 0 then
L := 0.01;
for
X := 1 to
255 do
GT[X] := Round(255 * Power(X / 255, 1 / L));
for
Y := 0 to
Bitmap.Height - 1 do
begin
Dest := Bitmap.ScanLine[y];
for
X := 0 to
Bitmap.Width - 1 do
begin
with
Dest^ do
begin
R := GT[R];
G := GT[G];
B := GT[B];
end
;
Inc(Dest);
end
;
end
;
end
;