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

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

Нужно написать программу , которая открывает 2 файла, считывает из них числа , находит разность, и записывает в другой файл. (читать всё…)

Чтобы можно было мышкой зацепить запись и переместить ее выше/ниже, при этом чтобы текущая позиция вставки как-то идентифицировалась, например как в AIMP, когда меняется позиция выранного трека — подсвечивается жирной линией. Может кто встречал, я что-то на вскидку не могу ничего подобрать. Можно конечно запрограммировать штатную гриду или ListView через BeginDrag, но там не будет подстветки позиции вставки. (читать всё…)

Как найти количество строк начинающихся со знака «!» в TStringList? (читать всё…)

Есть функция удаления подстроки типа <gg hhh>jjjj</gg> из строки. функция работает достаточно быстро (файл 3 мб за 30 мС обрабатывает)
но есть подозрение, что использование COPY (DefineTeg:=Copy(Data, I,10) увеличивает время обработки
Внимание!! Вопрос:
1. действительно ли COPY не самое лучшее решение по быстродействию
2. чем можно заменить COPY? может вставка на ASM? (читать всё…)

Marsel737

Подскажите как сделать чтоб можно было во время выполнения программы включать или выключать возможность редактирования StringGrid’а.
П.С.: Как делать это через инспект объектов я знаю

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

Как сделать что бы программа запускала выполнение макроса в открытом на данный момент документе Word? Каждый раз название файлов Word разное. Надо сначала определить что документ открыт, а потом в нем запустить макрос. (читать всё…)

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

Есть компонент PaintBox, на котором размещена картинка. Нужно сделать, чтобы при передвижении указателя мышки по PaintBox’у вместе с ним и двигался прямоугольник, например, зеленый 40х40. Как реализовать?

Stilet

unit Unit1;

{$mode objfpc}{$H+}
interface
uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)

PaintBox1: TPaintBox;

procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure PaintBox1Paint(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;
var  ax,ay:integer;

Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.Brush.Color:=clGreen;

PaintBox1.Canvas.Rectangle(ax-10,ay-10,ax+10,ay+10);

end;
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

ax:=x; ay:=y;  PaintBox1.Repaint;

end;
end.

тема на форуме