[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

05.02.2008, 01:59

A2GIL

Познающий

Регистрация: 31.08.2007

Сообщений: 94

Провел на форуме:
422909

Репутация: 200

Отправить сообщение для A2GIL с помощью ICQ

Цитата:

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

как в делфе сделать чтобы форму поделить на поле с прямоугольниками 15*15 и чтобы каждому мона было задавать цвет %)
зачем надо неспрашивайте :d

Довольно легко, вот сделал так, чтобы сразу задавался рендомный цвет

Код:

var
  Form1: TForm1;
  h,w,dh,dw:integer;
  i,j:byte;
  r,g,b:byte;
  flox,floy:integer;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
with form1 do
  begin
    h:=ClientHeight;
    w:=ClientWidth;
    dh:=round(h/15);
    dw:=round(w/15);
    flox:=dw-3;
    floy:=dh-3;
   for i:=1 to 15 do
    for j:=1 to 15 do
     begin
      Canvas.Rectangle((j-1)*dw,(i-1)*dh,j*dw,i*dh);
      randomize();
      r:=random(255);
      g:=random(255);
      b:=random(255);
      Canvas.Brush.Color:=rgb(r,g,b);
      Canvas.FloodFill((j)*flox,(i)*floy,canvas.Pixels[(j)*flox,(i)*floy],fsSurface);
   end;
 end;
end;

//Работа с Canvas' ом идет не с первой космической скоростью