Ĺadny brzuch
jak zmienić kolor czcionki w richedit za pomocą komponentu colorbox1
proszę o wmiarę prosty i zrozumiały przykład...
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Zaznaczasz text, którego kolor chcesz zmienić, i musisz pod buttona jakiegoś dać colorbox1.execute. A potem RichEdit1.SelAttributes.color := ColorBox1.color
Mniej więcej tak (piszę z pamięci, więc gdzieś może być literówka albo coś :))
http://www.cinek.glt.pl
(potrzebni betatesterzy :) więcej info na maila)
Ludzie korzystajcie ze słownika!!!
Jak calej czcionki to :
ListBox1 onclick:
Richedit1.Font.Color:=StringToColor(ListBox1.Items.Strings[list]);
a jak zaznaczonego to:
RichEdit1.SelAttributes. blablabla
Nie wiem czy wszystko jest dobrze (raczej nie:P) ale pisze z glowy prosze mnie poprawic jak cos
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
Ach sorx ja przeczytalem zle :P
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
cytat:cinekcool napisał:
Zaznaczasz text, którego kolor chcesz zmienić, i musisz pod buttona jakiegoś dać colorbox1.execute. A potem RichEdit1.SelAttributes.color := ColorBox1.color
Mniej więcej tak (piszę z pamięci, więc gdzieś może być literówka albo coś :))
było by dobrze gdy by zamiast, że txt sie robi nie widzialny, zamisat zmiany koloru :(
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Bo zamiast ColorBox1.Color ma być ColorBox1.Selected :cheesy:
RichEdit1.SelAttributes.color := ColorBox1.Selected;
dzięki działa
jeszcze jesdno pytanie znacie jakis tego typu komponent tylko do zmiany czcionki ??
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Może zaraz kodzikiem sypne:
procedure TForm1.Button1Click(Sender: TObject); begin if FontDialog1.Execute then RichEdit1.Font := FontDialog1.Font; end;
Jak nietrudno się domyślić FontDialog znjduje się na zakładce Dialogs - miłego kodowania :)
cytat:LewB ar napisał:
Jak nietrudno się domyślić FontDialog znjduje się na zakładce Dialogs - miłego kodowania :)
to akurat wiem ale mi chodzi o coś podobnego do kolorów wyżej czyli.
tak jak w wordzie jest liść wysuwany z wyborem fontów
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
cytat:Asdef napisał:
...
chodzi CI o ColorBox (aditional)
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
cytat:Bełdzio napisał:
chodzi CI o ColorBox (aditional)
ale ja nie wiem o co tobie chodzi :P
przecież colorbox, użyłem wcześniej do zmiany koplorów a do czcionki, to co użyć ?
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
my bug ;D jako że muszę się poprawić :
ComboBox1.Items := Screen.Fonts; <= zainstalowane czcionki
W on Create: Screen.Fonts := ListBox.Items; W DrawItem list box'a: with ListBox1.Canvas do begin FillRect(Rect); Font.Name := ListBox1.Items[Index]; Font.Size := 0;Â TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]); end;W MeasureItem list box'a: with ListBox1.Canvas do begin Font.Name := Listbox1.Items[Index]; Font.Size := 0;Â Height := TextHeight('!!');Â Â end;
 Teraz w Inspektorze Obiektów musisz zmienić właściwość "Style" komponentu "ListBox" na "lbOwnerDrawVariable".Â
<= czcionki w swoim kroju
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
cytat:Bełdzio napisał:
[...]
dobra znalazłem troszkę dzisiaj czasu więc kontynłuje temat
procedure Tedytor.FormCreate(Sender: TObject); begin ComboBox1.Items := Screen.Fonts; end; procedure Tedytor.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with comboBox1.Canvas do begin FillRect(Rect); Font.Name := comboBox1.Items[Index]; Font.Size := 0; TextOut(Rect.Left, Rect.Top, comboBox1.Items[Index]); end; end; procedure Tedytor.ComboBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); begin with comboBox1.Canvas do begin Font.Name := combobox1.Items[Index]; Font.Size := 0; Height := TextHeight('!!'); end;
teraz niech ktoś mi uświadomi co mam zrobić aby to zadziałało bo jak narazie tylko się rozwija menu z fontami i po wybraniu nic się nie dzieję :roll:
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
procedure TEdytor.ComboBox1Change(Sender: TObject); begin RichEdit1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex]; end;
cytat:LewB ar napisał:
procedure TEdytor.ComboBox1Change(Sender: TObject); begin RichEdit1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex]; end;
działa dięki wielkie na was zawsze można polegać Eksperci ;)
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Bez przesady Asdef :P
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
proszę o wmiarę prosty i zrozumiały przykład...
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Zaznaczasz text, którego kolor chcesz zmienić, i musisz pod buttona jakiegoś dać colorbox1.execute. A potem RichEdit1.SelAttributes.color := ColorBox1.color
Mniej więcej tak (piszę z pamięci, więc gdzieś może być literówka albo coś :))
http://www.cinek.glt.pl
(potrzebni betatesterzy :) więcej info na maila)
Ludzie korzystajcie ze słownika!!!
Jak calej czcionki to :
ListBox1 onclick:
Richedit1.Font.Color:=StringToColor(ListBox1.Items.Strings[list]);
a jak zaznaczonego to:
RichEdit1.SelAttributes. blablabla
Nie wiem czy wszystko jest dobrze (raczej nie:P) ale pisze z glowy prosze mnie poprawic jak cos
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
Ach sorx ja przeczytalem zle :P
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
cytat:cinekcool napisał:
Zaznaczasz text, którego kolor chcesz zmienić, i musisz pod buttona jakiegoś dać colorbox1.execute. A potem RichEdit1.SelAttributes.color := ColorBox1.color
Mniej więcej tak (piszę z pamięci, więc gdzieś może być literówka albo coś :))
było by dobrze gdy by zamiast, że txt sie robi nie widzialny, zamisat zmiany koloru :(
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Bo zamiast ColorBox1.Color ma być ColorBox1.Selected :cheesy:
RichEdit1.SelAttributes.color := ColorBox1.Selected;
dzięki działa
jeszcze jesdno pytanie znacie jakis tego typu komponent tylko do zmiany czcionki ??
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Może zaraz kodzikiem sypne:
procedure TForm1.Button1Click(Sender: TObject); begin if FontDialog1.Execute then RichEdit1.Font := FontDialog1.Font; end;
Jak nietrudno się domyślić FontDialog znjduje się na zakładce Dialogs - miłego kodowania :)
cytat:LewB ar napisał:
Jak nietrudno się domyślić FontDialog znjduje się na zakładce Dialogs - miłego kodowania :)
to akurat wiem ale mi chodzi o coś podobnego do kolorów wyżej czyli.
tak jak w wordzie jest liść wysuwany z wyborem fontów
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
cytat:Asdef napisał:
...
chodzi CI o ColorBox (aditional)
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
cytat:Bełdzio napisał:
chodzi CI o ColorBox (aditional)
ale ja nie wiem o co tobie chodzi :P
przecież colorbox, użyłem wcześniej do zmiany koplorów a do czcionki, to co użyć ?
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
my bug ;D jako że muszę się poprawić :
ComboBox1.Items := Screen.Fonts; <= zainstalowane czcionki
W on Create: Screen.Fonts := ListBox.Items; W DrawItem list box'a: with ListBox1.Canvas do begin FillRect(Rect); Font.Name := ListBox1.Items[Index]; Font.Size := 0;Â TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]); end;W MeasureItem list box'a: with ListBox1.Canvas do begin Font.Name := Listbox1.Items[Index]; Font.Size := 0;Â Height := TextHeight('!!');Â Â end;
 Teraz w Inspektorze Obiektów musisz zmienić właściwość "Style" komponentu "ListBox" na "lbOwnerDrawVariable".Â
<= czcionki w swoim kroju
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
cytat:Bełdzio napisał:
[...]
dobra znalazłem troszkę dzisiaj czasu więc kontynłuje temat
procedure Tedytor.FormCreate(Sender: TObject); begin ComboBox1.Items := Screen.Fonts; end; procedure Tedytor.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with comboBox1.Canvas do begin FillRect(Rect); Font.Name := comboBox1.Items[Index]; Font.Size := 0; TextOut(Rect.Left, Rect.Top, comboBox1.Items[Index]); end; end; procedure Tedytor.ComboBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); begin with comboBox1.Canvas do begin Font.Name := combobox1.Items[Index]; Font.Size := 0; Height := TextHeight('!!'); end;
teraz niech ktoś mi uświadomi co mam zrobić aby to zadziałało bo jak narazie tylko się rozwija menu z fontami i po wybraniu nic się nie dzieję :roll:
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
procedure TEdytor.ComboBox1Change(Sender: TObject); begin RichEdit1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex]; end;
cytat:LewB ar napisał:
procedure TEdytor.ComboBox1Change(Sender: TObject); begin RichEdit1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex]; end;
działa dięki wielkie na was zawsze można polegać Eksperci ;)
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Bez przesady Asdef :P