2 pytanka, delphi...

0

Witam! {hello} {hello}
Mam dwa pytania:

  1. Jak zamienić kolor biały na #FFFFFF...
    A więc mam button, klikam na niego otwiera mi się okno ColorDialog.
    Jak zrobić aby po wybraniu koloru (np. biały) i kliknieciu OK, na formie w komponencie Edit1 wyswietlił się tekst: #FFFFFF i np. gdy będzie wybrany kolor czarny, to tekst w edicie=#000000.

  2. W którym komponencie mogę wyświetlić zawartość np. katalogu: C:\WINDOWS\
    i jak mam to zrobić...
    P.s Chodzi mi o to aby pliki były wyświetlone tak jak w Exploratorze (widok-&gtDuże Ikony)

Z góry dziękuję za odpowiedź:)--Pozdrawiam!
Michał Lipski
E-mail: [email protected]
http://www.delphi.programowanie.prv.pl
GG#: 3742497

0

co do pytania pierwszego to wystarczy poczytac FAQ :)
var
TheRgbValue : TColorRef;
begin
if ColorDialog1.Execute then
begin
Pobieramy kolor z TColorDialog
TheRgbValue := ColorToRGB(ColorDialog1.Color);
Funkcja ColorToRGB konwertuje wartość z postaci TColor do postaci RGB.
Edit1.Text := '#' + Format('%.2x%.2x%.2x',
[GetRValue(TheRGBValue),
GetGValue(TheRGBValue),
GetBValue(TheRGBValue)]);
end;
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

co do drugiego to w TWebBrowser (Zakładka chyba - &gt Internet)

wpisz w np. button1
webbrowser1.navigate('C:\Windows'); - masz idealnego IE :]

0

ZIOMBER napisał:
co do drugiego to w TWebBrowser (Zakładka chyba - &gt Internet)
&gt
&gtwpisz w np. button1
&gtwebbrowser1.navigate('C:\Windows'); - masz idealnego IE :]

można jeszcze przy użyciu TListView, DirectoryListView etc.--- - -
Roszi

0

Co do drugiego pytanka...
W Delphi 6
jest na palecie SAMPLES komponent
o nazwie TShellListView
to powinno zadziałać

Jezeli masz żródła jakiegoś UNACE dla Delphi 6
TO MAILME

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0