Печать richedit с цветом фона

Я выводя текст из управления trichedit delphi на принтер. Существует фоновое изображение, поэтому я использую EM_FORMATRANGE с этой логикой ...Печать richedit с цветом фона

myrichedit.Perform(EM_FORMATRANGE, 1, Longint(@Range));

... и это работает отлично, за исключением того, когда текст визуализируется всегда имеет белый фон, независимо от цвета рихедита. Любая идея почему?

EDIT: От коментарий:

Range является RANGEFORMAT, и присваиваются значения, как это:

Range.hdc := aCanvas.Handle; 
Range.hdcTarget := aCanvas.Handle; 
LogX := GetDeviceCaps(Range.hdc, LOGPIXELSX); 
LogY := GetDeviceCaps(Range.hdc, LOGPIXELSY); 
Range.rc.Left := x * 1440 div LogX; 
Range.rc.Right := (x+re.ClientWidth) * 1440 div LogX; // (1440=twips/inch) 
Range.rc.Top := y * 1440 div LogY; 
Range.rc.Bottom := 5000 * 1440 div LogY; // Some bigish number 
Range.rcPage := Range.rc; 
Range.chrg.cpMin := 0; 
Range.chrg.cpMax := -1;

источник

2012-02-28 Terry

Что такое «Диапазон»? Согласно [MSDN] (http://msdn.microsoft.com/en-us/library/windows/desktop/bb788020%28v=vs.85%29.aspx) это «FORMATRANGE», но вы дали нам нет информации о том, что вы на самом деле передаете в качестве этого параметра. Трудно сказать, что может быть неправильно, если вы не говорите нам, что делаете. :) –

@KenWhite Да, это FORMATRANGE, и все работает так, как вы ожидали, за исключением того, что цвет фона RichEdit не проходит. В любом случае диапазон задает только ручки и информацию о местоположении. Одно из возможных решений - использовать 0 как второй параметр, чтобы он только измерял, затем нарисовал заполненный прямоугольник такого размера, а затем прозрачно нарисовал текст сверху, но это похоже на растрескивание гайки кувалдой ... – Terry

Опять же, вы предоставили нам ** ** ** информацию о том, что вы предоставляете в качестве содержимого «Диапазона». «Пожалуйста, помогите мне. Я не буду говорить вам, что я делаю, но это не работает». очень помогает в предоставлении помощи. Так что «я передаю что-то в« FORMATRANGE »(но я не скажу вам, что вы можете увидеть, если это правильно), но это не работает. Что случилось?». –

То, что я нашел, что решение этой проблемы является то, что вы можете установить фон из отдельных символов с кодом (до добавления текста в RichEdit) ...

var 
    Format: CHARFORMAT2; 
begin 
... 
myrichedit.SelStart:=myrichedit.GetTextLen; 
FillChar(Format, SizeOf(Format), 0); 
with Format do begin 
    cbSize := SizeOf(Format); 
    dwMask := CFM_BACKCOLOR; 
    crBackColor := charbackgroundcolor; 
    myrichedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format)); 
end; 
myrichedit.SetText:='Hello';

... но, чтобы получить цвет фона для всей блок текста затем сделайте это, чтобы нарисовать текст ...

var 
    size : Tsize; 
    Range: TFormatRange; 
    Rect: TRect; 
    LogX, LogY : Integer; 
    bm : tbitmap; 
    aCanvas : TCanvas; 
    ExStyle: DWord; 
begin 
    aCanvas:=Printer.Canvas; 

    Range.hdc := aCanvas.Handle; 
    Range.hdcTarget := aCanvas.Handle; 

    LogX := GetDeviceCaps(Range.hdc, LOGPIXELSX); 
    LogY := GetDeviceCaps(Range.hdc, LOGPIXELSY); 

    Range.rc.Left := x * 1440 div LogX; 
    Range.rc.Right := (x+myrichedit.ClientWidth) * 1440 div LogX; // (1440=twips/inch) 
    Range.rc.Top := y * 1440 div LogY; 
    Range.rc.Bottom := 5000 * 1440 div LogY; // Some bigish number 
    Range.rcPage := Range.rc; 
    Range.chrg.cpMin := 0; 
    Range.chrg.cpMax := -1; 
    myrichedit.Perform(EM_FORMATRANGE, 0, Longint(@Range)); // Measure the formatted text 
    rect:=Range.rc; 
    rect.Left:=Range.rc.Left * LogX div 1440; 
    rect.Top:=Range.rc.Top * LogY div 1440; 
    rect.Right:=Range.rc.Right * LogX div 1440; 
    rect.Bottom:=Range.rc.Bottom * LogY div 1440; 
    acanvas.Brush.Color:=myblockcolor; 
    acanvas.FillRect(rect); // Fill the background rectangle 

    ExStyle := GetWindowLong(re.Handle, GWL_EXSTYLE); // Draw richedit transparently over coloured area 
    ExStyle := ExStyle or WS_EX_TRANSPARENT; 
    SetWindowLong(re.Handle, GWL_EXSTYLE, ExStyle); 
    myrichedit.Perform(EM_FORMATRANGE, 1, Longint(@Range)); 
end;

источник

2012-02-29 22:20:35 Terry

Печать richedit с цветом фона

ответ

Смежные вопросы