🚀 go-pugleaf

W dniu 2016-06-05 o 19:58, jh pisze:
> Chcę zmienić rozmiar RichEdit (np. TRichEdit, TcxRichEdit), żeby
> wyświetlał zawartość tak, jaką dostanę na wydruku. Innymi słowy, ma
> wyświetlać tekst w trybie PrintLayout.

Czyżbym trafił? ;)

var
   X: Integer;
begin
// dla TRichEdit reEditor.Handle
// dla TcxRichEdit reEditor.InnerControl.Handle
   X := Trunc(GetDeviceCaps(Printer.Handle, HorzSize) * 1440 / 25.4);
   SendMessage(reEditor.InnerControl.Handle, EM_SETTARGETDEVICE, 
Printer.Handle, X);


jh

>   X := Trunc(GetDeviceCaps(Printer.Handle, HorzSize) * 1440 / 25.4);
>   SendMessage(reEditor.InnerControl.Handle, EM_SETTARGETDEVICE,
> Printer.Handle, X);

Z ciekawości, skąd wziąłeś magiczne 1440 i 25.4?

-- 
Pozdrawiam,
Stregor

W dniu 2016-06-07 o 06:52, Stregor pisze:
>>   X := Trunc(GetDeviceCaps(Printer.Handle, HorzSize) * 1440 / 25.4);
>>   SendMessage(reEditor.InnerControl.Handle, EM_SETTARGETDEVICE,
>> Printer.Handle, X);
>
> Z ciekawości, skąd wziąłeś magiczne 1440 i 25.4?
>

Pewnie Epson z głowica piezo i cale.

miab

W dniu 2016-06-07 o 06:52, Stregor pisze:
>>   X := Trunc(GetDeviceCaps(Printer.Handle, HorzSize) * 1440 / 25.4);
>>   SendMessage(reEditor.InnerControl.Handle, EM_SETTARGETDEVICE,
>> Printer.Handle, X);
>
> Z ciekawości, skąd wziąłeś magiczne 1440 i 25.4?
>

1 twip = 1/1440 cala
TwipsPerPixel = 1440/PixelsPerInch
25.4 - cale w mm

jh

W dniu niedziela, 5 czerwca 2016 19:58:52 UTC+2 użytkownik jh napisał:
> Chcę zmienić rozmiar RichEdit (np. TRichEdit, TcxRichEdit), żeby 
> wyświetlał zawartość tak, jaką dostanę na wydruku. Innymi słowy, ma 
> wyświetlać tekst w trybie PrintLayout.
> 
> Generalnie są działające lepiej lub gorzej przykłady ze zrobieniem 
> PrintPreview, czy drukowaniem, ale jakoś nie mogę wyczaić, jak to zrobić 
> wprost na kontrolce RichEdit. Mam tego RichEdita na TScrollBox, rozmiar 
> mogę zmieniać, tylko co przeliczyć? Oczywiście zakładam, że odnoszę się 
> do aktualnie wybranej drukarki oraz ustalonych rozmiarów strony.
> 
> jh


Poszukaj "Print Preview Components by Kambiz R. Khojasteh", zaoszczędzisz dużo czasu.

Romek

W dniu 2016-06-09 o 02:58, Romek pisze:
> W dniu niedziela, 5 czerwca 2016 19:58:52 UTC+2 użytkownik jh napisał:
>> Chcę zmienić rozmiar RichEdit (np. TRichEdit, TcxRichEdit), żeby
>> wyświetlał zawartość tak, jaką dostanę na wydruku. Innymi słowy, ma
>> wyświetlać tekst w trybie PrintLayout.
>>
>> Generalnie są działające lepiej lub gorzej przykłady ze zrobieniem
>> PrintPreview, czy drukowaniem, ale jakoś nie mogę wyczaić, jak to zrobić
>> wprost na kontrolce RichEdit. Mam tego RichEdita na TScrollBox, rozmiar
>> mogę zmieniać, tylko co przeliczyć? Oczywiście zakładam, że odnoszę się
>> do aktualnie wybranej drukarki oraz ustalonych rozmiarów strony.

> Poszukaj "Print Preview Components by Kambiz R. Khojasteh", zaoszczędzisz dużo czasu.

Nie o to chodzi. Zrobić podgląd to nie problem. Użytkownik potrzebuje 
pisać w RichEdit i mieć zawijanie wierszy/przenoszenie wyrazów dokładnie 
tak, jak to będzie wydrukowane, czyli szerokość w kontrolce, w ktorej 
jest pisany tekst musi być taka, jak na wydruku. System drukowania i 
podglądu mam (DevExpress Printing System).


jh

W dniu czwartek, 9 czerwca 2016 12:04:22 UTC+2 użytkownik jh napisał:
> W dniu 2016-06-09 o 02:58, Romek pisze:
> > W dniu niedziela, 5 czerwca 2016 19:58:52 UTC+2 użytkownik jh napisał:
> >> Chcę zmienić rozmiar RichEdit (np. TRichEdit, TcxRichEdit), żeby
> >> wyświetlał zawartość tak, jaką dostanę na wydruku. Innymi słowy, ma
> >> wyświetlać tekst w trybie PrintLayout.
> >>
> >> Generalnie są działające lepiej lub gorzej przykłady ze zrobieniem
> >> PrintPreview, czy drukowaniem, ale jakoś nie mogę wyczaić, jak to zrobić
> >> wprost na kontrolce RichEdit. Mam tego RichEdita na TScrollBox, rozmiar
> >> mogę zmieniać, tylko co przeliczyć? Oczywiście zakładam, że odnoszę się
> >> do aktualnie wybranej drukarki oraz ustalonych rozmiarów strony.
> 
> > Poszukaj "Print Preview Components by Kambiz R. Khojasteh", zaoszczędzisz dużo czasu.
> 
> Nie o to chodzi. Zrobić podgląd to nie problem. Użytkownik potrzebuje 
> pisać w RichEdit i mieć zawijanie wierszy/przenoszenie wyrazów dokładnie 
> tak, jak to będzie wydrukowane, czyli szerokość w kontrolce, w ktorej 
> jest pisany tekst musi być taka, jak na wydruku. System drukowania i 
> podglądu mam (DevExpress Printing System).
> 
> 
> jh

Z postów wywnioskowałem (może błędnie), że możesz mieć problem przeliczeniem wymiarów wydruku na rozmiar kontrolki. W projekcie, który podałem, są utworzone funkcje, które umożliwiają przeliczanie różnych jednostek przy zadanej rozdzielczości.

Romek