Grafika - Strona 2 z 2 - Unit1.pl - Programowanie

Jak zamienić TColor na zapis heksadecymalny?

Skorzystaj z poniższej funkcji

function ColorToHtml(DColor:TColor):string; 

var 

    tmpRGB : TColorRef; 

begin 

    tmpRGB := ColorToRGB(DColor) ; 

    Result:=Format('#%.2x%.2x%.2x', 

                   [GetRValue(tmpRGB), 

                    GetGValue(tmpRGB), 

                    GetBValue(tmpRGB)]) ; 

end;

function ColorToHtml(DColor:TColor):string;

var

tmpRGB : TColorRef;

begin

tmpRGB := ColorToRGB(DColor) ;

Result:=Format('#%.2x%.2x%.2x',

[GetRValue(tmpRGB),

GetGValue(tmpRGB),

GetBValue(tmpRGB)]) ;

end;

Autor: Nakiel

Czytaj więcej →

Jak rysować po pulpicie (pod uruchomionymi programami)?

Możesz posłużyć się tym kodem :

function GetDesktopListViewHandle: THandle; 

var S: String; 

begin 

      Result := FindWindow('ProgMan', nil); 

      Result := GetWindow(Result, GW_CHILD); 

      Result := GetWindow(Result, GW_CHILD); 

      SetLength(S, 40); 

      GetClassName(Result, PChar(S), 39); 

      if PChar(S) <> 'SysListView32' then 

      Result := 0; 

end; 


procedure TForm1.Button1Click(Sender: TObject); 

var 

  uchwyt: HWND; 

  dc: HDC; 

  c: TCanvas; 


begin 

  uchwyt := GetDesktopListViewHandle; 

  dc     := GetWindowDC(uchwyt); 

  c := TCanvas.Create; 

  c.Handle := dc; 


c.brush.color := clwhite; 

c.Rectangle(0,0,200,200); 

end;

function GetDesktopListViewHandle: THandle;

var S: String;

begin

Result := FindWindow('ProgMan', nil);

Result := GetWindow(Result, GW_CHILD);

SetLength(S, 40);

GetClassName(Result, PChar(S), 39);

if PChar(S) <> 'SysListView32' then

Result := 0;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

uchwyt: HWND;

dc: HDC;

c: TCanvas;

begin

uchwyt := GetDesktopListViewHandle;

dc := GetWindowDC(uchwyt);

c := TCanvas.Create;

c.Handle := dc;

c.brush.color := clwhite;

c.Rectangle(0,0,200,200);

end;

Autor: Nakiel

Czytaj więcej →

Jak otrzymać składowe RGB danego koloru?

Użyj funkcji GetRValue, GetGValue oraz GetBValue, które zwracają kolejno natężenie barwy czerwonej, zielonej oraz niebieskiej:

var 
r , g , b : Byte ; 
begin 
r := GetRValue(jakis_kolor) ; 
g := GetGValue(jakis_kolor) ; 
b := GetBValue(jakis_kolor) ;

var

r , g , b : Byte ;

begin

r := GetRValue(jakis_kolor) ;

g := GetGValue(jakis_kolor) ;

b := GetBValue(jakis_kolor) ;

Autor: Iskar

Czytaj więcej →

Jak odczytać kolor piksela na ekranie?

Użyj tego kodu:

function GetDesktopListViewHandle: THandle; 

var S: String; 

begin 

      Result := FindWindow('ProgMan', nil); 

      Result := GetWindow(Result, GW_CHILD); 

      Result := GetWindow(Result, GW_CHILD); 

      SetLength(S, 40); 

      GetClassName(Result, PChar(S), 39); 

      if PChar(S) <> 'SysListView32' then 

      Result := 0; 

end; 


procedure TForm1.Timer1Timer(Sender: TObject); 

var 

  uchwyt: HWND; 

  dc: HDC; 

  c: TCanvas; 

  x,y,i:integer; 

begin 

  uchwyt := GetDesktopListViewHandle; 

  dc     := GetWindowDC(uchwyt); 

  c := TCanvas.Create; 

  c.Handle := dc; 

    ColorBox1.Color:=c.Pixels[Mouse.CursorPos.X,Mouse.CursorPos.Y]; 

end;

function GetDesktopListViewHandle: THandle;

var S: String;

begin

Result := FindWindow('ProgMan', nil);

Result := GetWindow(Result, GW_CHILD);

SetLength(S, 40);

GetClassName(Result, PChar(S), 39);

if PChar(S) <> 'SysListView32' then

Result := 0;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

uchwyt: HWND;

dc: HDC;

c: TCanvas;

x,y,i:integer;

begin

uchwyt := GetDesktopListViewHandle;

dc := GetWindowDC(uchwyt);

c := TCanvas.Create;

c.Handle := dc;

ColorBox1.Color:=c.Pixels[Mouse.CursorPos.X,Mouse.CursorPos.Y];

end;

Autor: Drazek

Czytaj więcej →

Jak obliczyć odległość dwóch punktów od siebie?

// funkcja zwraca *całkowitą* odleglosc 2 punktow od siebie

function PointsDist(P1, P2: TPoint): Integer;

begin

  Result := Round(Sqrt(Sqr(P1.X - P2.X) + Sqr(P1.Y - P2.Y)));

end;

// funkcja zwraca *całkowitą* odleglosc 2 punktow od siebie

function PointsDist(P1, P2: TPoint): Integer;

begin

Result := Round(Sqrt(Sqr(P1.X - P2.X) + Sqr(P1.Y - P2.Y)));

end;

Autor: Kkkas

Czytaj więcej →

Jak narysować wykres funkcji y=x?

Utwórz TImage, ustaw wielkość i nazwę (width 300,height=300, rys) i TButton, na który kliknij dwa razy. Wpisz poniższy kod:

procedure TForm1.Button1Click(Sender: TObject); 

var x,y,srx,sry,a,b :integer;

begin 

  srx :=150; 

  sry:= 150; 

  //rysowanie układu 

  Rys.Canvas.MoveTo(150,0); 

  Rys.Canvas.LineTo(150,300); 

  Rys.Canvas.MoveTo(0,150); 

  Rys.Canvas.LineTo(300,150); 


  //rysowanie lini 

  for x:=-150 to 150 do begin 

    a:=1; 

    b:=0; 

    y:=srx-(a*x+b); 

    Rys.Canvas.MoveTo(x+srx,y); 

    y:=srx-(a*(x+1)+b); 

    Rys.Canvas.LineTo(x+srx,y); 

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var x,y,srx,sry,a,b :integer;

begin

srx :=150;

sry:= 150;

//rysowanie układu

Rys.Canvas.MoveTo(150,0);

Rys.Canvas.LineTo(150,300);

Rys.Canvas.MoveTo(0,150);

Rys.Canvas.LineTo(300,150);

//rysowanie lini

for x:=-150 to 150 do begin

a:=1;

b:=0;

y:=srx-(a*x+b);

Rys.Canvas.MoveTo(x+srx,y);

y:=srx-(a*(x+1)+b);

Rys.Canvas.LineTo(x+srx,y);

end;

Autor: Spider100

Czytaj więcej →

Co zrobić, abym mógł używać w programie plików w formacie jpg?

Rozwiązanie jest bardzo proste – wystarczy dodać do uses Jpeg. Gotowe. Autor: Iskar

Czytaj więcej →

Animowany kursor myszy

Nowy kursor myszy dla tworzonego przez nas programu możemy wczytać w bardzo prosty sposób posługując się funkcją LoadImage oraz zwróconym w wyniku jej wywołania uchwytem. Oto kod całej procedury:

procedure TForm1.Button1Click(Sender: TObject);
var h : THandle;
begin
  h := LoadImage(0,'C:\program\Magic.ani', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);
  if h = 0 then 
     ShowMessage('Nie można wyświetlić kursora')
  else begin
     Screen.Cursors[1] := h;
     Form1.Cursor := 1;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);

var h : THandle;

begin

h := LoadImage(0,'C:\program\Magic.ani', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);

if h = 0 then

ShowMessage('Nie można wyświetlić kursora')

else begin

Screen.Cursors[1] := h;

Form1.Cursor := 1;

end;

Czytaj więcej →