Как сделать так, чтобы выполнялась определённая процедура при изменении значения Edit.Text, но только в том случае если значение отличается от бывшего там ранее текста?

(читать всё…)

Не могу разобраться, почему нет прозрачности при отрисовке на канве.

Загружаю тайлсет tileset.png, в котором есть прозрачность в PNGImage с именем Tileset. Далее рисую на канве компонента PNGImage с именем Surface этой процедурой:

procedure TForm1.DrawTile(const X, Y, Index: Integer);
begin
  Surface.Canvas.CopyRect(Bounds(X * TileSize, Y * TileSize, TileSize,
    TileSize), Tileset.Canvas, Bounds((Index mod TilesetWidth) * TileSize,
    (Index div TilesetWidth) * TileSize, TileSize, TileSize));
end;

…вот так:

procedure TForm1.FormPaint(Sender: TObject);
var
  X, Y: Integer;
begin
  for Y := 0 to MapHeight - 1 do
    for X := 0 to MapWidth - 1 do
    begin
      DrawTile(X, Y, Map[lrGround][X][Y]);
      DrawTile(X, Y, Map[lrObject][X][Y]);
    end;
  Canvas.Draw(0, 0, Surface);
end;

Ожидается правильная отрисовка с альфа-каналом, но не тут то было. Вобщем не могу понять, что провтыкал

(читать всё…)

Допустим я создал ID2D1Bitmap *bitmap, и иконку.
А вот как нарисовать ту же линию или фигуру?

(читать всё…)

Как убрать мерцание при движении Image в Delphi 7 CLX
Именно CLX а не VCL

(читать всё…)

Как вывести размер файла не в байтах, а в Кб или Мб?

(читать всё…)

Можно ли как то, из программы на Делфи, определить установлен или нет Microsoft Office на локальном компьютере?

(читать всё…)

Как писать в консоли русскими буквами? Кроме как слова в DOS кодировку перегонять?

(читать всё…)

Иногда так бывает, что надо скопировать текст/код, содержащий кириллические буквы, из редактора кода или текстовых полей разработанного приложения.

Проблема состоит в том, что, когда такой текст вставляется в другие текстовые редакторы, кириллические символы вставляются в неверной кодировке. Например, такой код:

// комментарии
procedure TForm1.FormCreate(Sender: TObject);
begin
 showMessage('Всё хорошо')
end;

end.

Может быть вставлен в таком виде:

(читать всё…)

На форме есть несколько компонентов TImage1, TImage2, TImage3 и т.д. Как реализовать открытие изображения в компонентах путем перетаскивания самой картинки с рабочего стола в программу. Причем каждая картинка должна открываться в том компоненте TImage, на который ее собственно перетащили. Могу реализовать подобную задачу с помощью DragandDrop, но чтоб именно картинка открывалась в том компоненте, на который ее перетащили, не получается.

(читать всё…)

Alex11223

Свершилось, джва двадцать лет ждали и наконец дождались.

Появились Community издания Delphi и C++Builder.
Бесплатный аналог Professional с ограничением на коммерческое применение (оборот менее 5000$ в год и менее 5 разработчиков в компании).
Еще нельзя одновременно Delphi и C++Builder, и раз в год надо обновлять лицензию на сайте (видимо скачивая последнюю версию).

(читать всё…)