Разжирели или грустно, товарищи.

[Alex Cones]

вспомни еще одну вещь, что в VCL были заложены элементы кроссплатформенности.(это тоже дает вес)

И где они теперь? Что-то не видно. Опять же - ни у кого в Embar не доходят руки оптимизировать и вырезать Kylix. Зато стекляшки - да, поставили.

[Пепел Феникса]

а кому хочется тратить время и деньги на зарплаты?
народ хавает то что есть, платит, им этого достаточно.

[GunSmoker]

Всё ещё болеете детскими болезнями минимальных размеров? Ну-ну.

[Alex Cones]

Всё ещё болеете детскими болезнями минимальных размеров? Ну-ну.

Согласно Вашим словам - чем взрослее программист, тем более "толстый" код он пишет. Прям фаллометрия какая-то - у кого ехе толще получится.

[GunSmoker]

Нет, как взрослый программист он направляет свои усилия на то, что важно.

[Alex Cones]

Значит оптимизация не важна? Пущай работает как работает и пофиг, что оно может работать в 10 раз быстрее?

[Utkin]

Сообщение от GunSmoker

Нет, как взрослый программист он направляет свои усилия на то, что важно.

Да, на распил бабла. Примеров монструозности полно . Главное не лопнуть от важности того, что направляешь усилия на то что важно .

[Vikenty]

Сообщение от Alex Cones

Значит оптимизация не важна? Пущай работает как работает и пофиг, что оно может работать в 10 раз быстрее?

VCL будет медленнее API только на 2мс а экономия времени и трудов огромная

[Alex Cones]

VCL будет медленнее API только на 2мс а экономия времени и трудов огромная

Вы в этом уверены? А теперь попробуйте сказать то же самое:

For Y := 0 To 9999 Do
 For X := 0 To 9999 Do
  Image1.Canvas.Pixels[X,Y] := $FF00FF;

Procedure FillAll(Var T : TTexture; Color : Integer);
 Var
  BI  : BitMapInfo;
  A   : Array of RGBQuad;
  I   : Integer;
  Loc : HDC;
  R,G,B : Byte;
 Begin
  Loc := CreateCompatibleDC(Warehouse.Buffer.DC);
  SelectObject(Loc, T.Bitmap);
  ZeroMemory(@BI, SizeOf(BI));
  BI.bmiHeader.biWidth := T.Width;
  BI.bmiHeader.biHeight := T.Height;
  BI.bmiHeader.biSize := SizeOf(BitMapInfoHeader);
  BI.bmiHeader.biCompression := BI_RGB;
  BI.bmiHeader.biBitCount := 32;
  BI.bmiHeader.biPlanes := 1;
  SetLength(A, T.Height * T.Width * 4);
  GetDIBits(Loc, T.Bitmap, 0, T.Height, @A[0], @BI, DIB_RGB_COLORS);
  R := (Color And $0000FF);
  G := (Color And $00FF00) Shr 8;
  B := (Color And $FF0000) Shr 16;
  For I := 0 to Length(A) - 1 Do
   Begin
      A[I].rgbRed   := R;
      A[I].rgbGreen := G;
      A[I].rgbBlue  := B;
   End;
  SetDIBits(Loc, T.Bitmap, 0, T.Height, @A[0], @BI, DIB_RGB_COLORS);
  DeleteDC(Loc);
 End;

[Пепел Феникса]

Алекс, а ты делай так же как в примере через SetPixel.
а то ты сравнил разные механизмы.
их можно и к VCL пристроить.