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

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

Utkin

Суть: Имеется самонарисованный календарь (уже сам не знаю зачем, но наверно так звезды на седня расположились). Надо красным кружком отмечать число. Однако загуглив окружность я с прискорбием узнал, что Ellipse на самом деле рисует круг (то есть затирает фон и число соответственно). Вопрос — как?

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

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

есть 4-ре точки (прямоугольник) в котором надо нарисовать эллиптическую дугу
и в конце этой дуги нарисовать стрелку (наконечник)
подскажите как это сделать правильно? (читать всё…)

А не подскажете как можно сделать такие квадратики вокруг компонента? (читать всё…)

Игра от Deamonig  v 0.5

Скачать

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

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

Есть компонент 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.

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