Niestandartowy znak

[Witold]

Dzięki To jest właśnie to o co mi chodziło. Ale czy mógłbyś mi jeszcze wytłumaczyć(bo przecież nie chodzi o to żeby tylko bezmyślnie przepisywać z forum) co oznaczają poszczególne wyrazy w:

char opor20[] = "{\\rtf1\\ansi\\ansicpg1250\\deff0\\deflang1045{\\fonttbl"
"{\\f0\\fswiss\\fprq2\\fcharset238{\\*\\fname Arial;}Arial CE;}}\n"
"\\viewkind4\\uc1\\pard\\f0\\fs20 Op\\'f3r: 20 \\u937?\n\\par }";

?

Te kod jest na podstawie tego co zapisał WordPad. Słabo znam temat, kiedyś przeglądałem specyfikacje i zapamiętałem że RTF obsługuje unicode w swoich tagach.
http://msdn.microsoft.com/en-us/library/aa140277.aspx

[Cyfrowy Baron]

Przerabiając kod podany przez Witold'a można z powodzeniem wstawiać znaki unicode do Label. Trzeba tylko z góry ustalić wymiary komponentu Label, gdyż w tym konkretnym przypadku właściwość AutoSize nie zadziała, poza tym komponent nie może zawierać żadnego tekstu we właściwości Caption, gdyż nie będzie ona wykorzystywana i wprowadzony tekst z poziomu kodu może się nakładać na już tam będący:

Kod: Zaznacz cały

#include <stdio.h>

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int liczba = 90;
  int znak = 0x03A9; // numer znaku można odczytać z programu Tablica znaków

  wchar_t bufor[256];
  int dl = swprintf(bufor, (WideString)"Opór: %d %c", liczba,  znak);


  TextOutW(Label1->Canvas->Handle, 2, 2, bufor, dl);
}
//---------------------------------------------------------------------------


Tak wstawiony tekst wymaga jednak odświeżania, gdyż jest to w zasadzie rysunek, wiec jeżeli Label zostanie przesłonięty jakimś oknem to tekst zostanie wymazany. Rozwiązaniem może być umieszczenie całego kodu w zdarzeniu OnPaint formularza. Pojawia się problem z wprowadzanymi wartościami bo mogą się zmieniać, w takiej sytuacji można zmienne liczba i znak zadeklarować jako globalne, raz ustawione wartości takich zmiennych nie zmienią się bez ingerencji użytkownika:

Kod: Zaznacz cały

int liczba = 0;
int znak = 0;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  liczba = 90;
  znak = 0x03A9;

  this->Invalidate(); // odÅ›wieżenie Canvas formularza
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
  Label1->Canvas->Brush->Style = bsClear;
  Label1->Canvas->Font->Size = 12;
  Label1->Canvas->Font->Name = "Tahoma";

  if(znak != 0)
  {
   wchar_t bufor[256];
   int dl = swprintf(bufor, (WideString)"Opór: %d %c", liczba,  znak);


   TextOutW(Label1->Canvas->Handle, 2, 2, bufor, dl);
  }
}
//---------------------------------------------------------------------------


[kinio]

Cześć!

Chciałbym się z wami podzielić tym malutkim komponentem, który właśnie napisałem przy okazji tego tematu. Mam nadzieje że się wam przyda
Jest to udoskonalony komponent TLabel, który może wyświetlać formatowany tekst (nie Unicode). Formatowanie jest możliwe dzięki specjalnemu znacznikowi, który posiada kilka parametrów.

W archiwum przesyłam pliki komponentu. Od razu mówię że nigdy nie wysyłałem tworzonych przeze mnie komponentów i nie wiem jak będzie z instalacją, czy to wystarczy co zamieściłem, w razie braku plików proszę Cię CB byś podał mi dokładnie co mam jeszcze zamieścić. Dodatkowo w archiwum dołączyłem programik przykładowy, pokazujący składnię i możliwości komponentu.

Jeszcze teraz pokrótce omówię podstawowe kwestie:
Jak już pisałem jest to udoskonalony komponent TLabel. Posiada on kilka nowych własności:
- RTFCaption - (to samo co Caption) jedno i drugie mogą być używane naprzemiennie do przypisania tekstu (wraz ze znacznikami formatowania) który ma zostać wyświetlony na komponencie.
- DefaultLeftMargin - definiuje odstęp pomiędzy sąsiadującymi formatowaniami z lewej strony.
- DefaultRightMargin - definiuje odstęp pomiędzy sąsiadującymi formatowaniami z prawej strony.
- PlainText - właściwość tylko do odczytu zwracająca czysty tekst bez tagów formatujących.

Do formatowania tekstu używamy pary tagów: <f></f>:
Tag <f> może przyjąć następujące parametry:
- n - nazwa czcionki np. <f n="Arial">
- s - rozmiar czcionki np. <f s="12">
- c - kolor czcionki podany jako liczba dziesiętna lub szesnastkowa np. <f c="255">, <f c="0xFF0000">
- b - włącza (true)/wyłącza (false) czcionkę pogrugioną np. <f b="true">, <f b="false">. Inne wartości niż "true" i "false" nie są parsowane, dotyczy to również innych parametrów.
- i - włącza (true)/wyłącza (false) czcionkę pochyłą np. <f i="true">, <f i="false">.
- u - włącza (true)/wyłącza (false) podkreślenie czcionki np. <f u="true">, <f u="false">.
- o - włącza (true)/wyłącza (false) przekreślenie czcionki np. <f u="true">, <f u="false">.
- lm - definiuje odstęp od formatowania na lewo od bieżącego np. <f lm="10">.
- lm - definiuje odstęp od formatowania na prawo od bieżącego np. <f rm="10">.

- Oczywiście parametry można łączyć ze sobą: <f n="Arial" c="255" b="true">
- Tag zamykający </f> nie jest obowiązkowy - formatowanie będzie zastosowane do końca tekstu.
- Tag otwierający, oraz zamykający mogą się znajdować tylko na tym samym poziomie zagnieżdżenia (to chyba oczywiste).
- Formatowanie kaskadowe:

Kod: Zaznacz cały

Zapis: Tekst normalny<f b="true"> i pogrubiony<f b="false"> i znowu normalny </f>i znowu pogrubiony.

będzie przedstawiony jako: Tekst normalny i pogrubiony i znowu normalny i znowu pogrubiony.

Resztę proponuję protestować. Jestem otwarty na pytania, sugestię no i oczywiście jeżeli zauważycie jakieś niedociągnięcia. W miarę możliwości postaram się odpowiedzieć/poprawić.

Pozdr!

[Michal-S2]

Nie mogę zainstalować tego komponentu.

[wargo]

Dlaczego?

[kinio]

Cześć!

Nie mogę zainstalować tego komponentu.

A możesz podać więcej szczegółów?

Na wszelki wypadek przedstawiÄ™ jak ja go instalujÄ™ na BCB 6.0 Enterprise Edition:

1. Po uruchomieniu BCB File->Close All.
2. Następnie wybieramy polecenie: Component->Install Packages. Pojawia się dialog z zakładką Packages.
3. W tym okienku klikamy przycisk Add i znajdujemy plik bpl, który wypakowujemy z archiwum.
4. Po rejestracji komponentu powinien się on pojawić na zakładce Additional pewnie na końcu. Ikonę ma taką samą jak komponent TLabel.
5. Teraz kiedy jeszcze wszystko jest zamknięte wybieramy: Project->Options i przechodzimy na zakładkę Directories/Conditionals i do Library Path dodajemy lokalizację w której znajduje się drugi plik wypakowany z archiwum: lib.

Uwaga!
Ścieżkę lepiej jest dodać dla default.bpr tak aby przy każdorazowym tworzeniu nowego projektu który będzie wykorzystywał ten komponent nie trzeba było dodawać lokalizacji lib na nowo.

Mam nadzieje że to wystarczy, jeżeli dalej się nie da to podaj więcej szczegółów.

Pozdr!

[Witold]

Kinio: BCB6 chce "RTFLabel.h" oraz "kinio.bpi". Źródeł nie zdradzisz ?


Cyfrowy Baronie: czemu użyłeś:

Kod: Zaznacz cały

int dl = swprintf(bufor, (WideString)"Opór: %d %c", liczba,  znak);

// zamiat:

int dl = swprintf(bufor, L"Opór: %d %c", liczba,  znak);

// dla

int swprintf(wchar_t *buffer, const wchar_t *format[, argument, ...]);



[Cyfrowy Baron]

Pytasz dlaczego użyłem WideString zamiast L? Dlatego, że tak można. WideString jest zmienną 16 bitową zdolną do przechowywania znaków Uniode. Użyłem polimorfizmu, gdyż często tak robię i jest to dla mnie bardziej czytelne.

do kinio:

Sam plik *.BPL to za mało żeby zainstalować komponent. Poza tym jeżeli stworzyłeś swój komponent w BCB 6, to w nowszych wersjach BCB można go zainstalować tylko poprzez utworzenie nowej paczki.

[kinio]

Witam!!!

BCB6 chce "RTFLabel.h" oraz "kinio.bpi". Źródeł nie zdradzisz ?

A więc dołączam nowe archiwum ze wszystkimi plikami.
Źródełka nie podam, po pierwsze ze względu na plagiaty a po drugie że zawsze znajdzie się jakiś specjalista któremu coś nie będzie pasowało i będzie poprawiał i chwalił się czego to on nie zaprogramował - szczególnie że ta kontrolka jest napisana na szybko i pewnie ma trochę bug-ów a poprawki mimo udostępnionego kodu spadły by tak czy tak na mnie.
Wolę sobie tego zaoszczędzić przede wszystkim ze względu na brak czasu (praca).

Takiego komponentu jeszcze nie widziałem, być może gdzieś tam jest, ale jako że owego nie posiadam napisałem jakiś prototyp który być może do czegoś, komuś się przyda!!

Dla tych co używają nowszych wersji BCB postaram się w najbliższym czasie, bliżej nie określonym, stworzyć dll-a z którego będzie można sobie zaimportować klasę.

Pozdr!

[Cyfrowy Baron]

Takiego komponentu jeszcze nie widziałem, być może gdzieś tam jest, ale jako że owego nie posiadam napisałem jakiś prototyp który być może do czegoś, komuś się przyda!!

Podobny komponent (Label obsługujący tagi HTML) z większymi możliwościami, dla Delphi i BCB w wersji od 3 do BDS 2007 plus kilkadziesiąt innych można znaleźć w darmowej paczce LMD 2007.

Do pobrania stÄ…d: http://www.lmd.de/download/