Delphi RichEdit 작업

1.정렬 설정 선택

RichEdit1.SelectAll;
RichEdit1.Paragraph.Alignment:=taLeftJustify; // switch for other alignments
RichEdit1.SelLength:=0;

2.       

redt1.Clear;
redt1.Lines.Add('XXX 분석 보고서'+ #13#10);strMsg: = '인쇄 시간:' + FormatDateTime ('yyyy 년 hh 월 dd 일 hh 시 MM 분 ss 초 ', Now);redt1.Lines.Add(strMsg); strMsg: = '인쇄 시간:' + FormatDateTime ('yyyy 년 hh 월 dd 일 hh 시 MM 분 ss 초 ', Now);redt1.Lines.Add(strMsg); strMsg:='샘플링 시간:'+ FormatDateTime('yyyyy년 hhh월 dd일 hhh시 MM분 ss초', Now);redt1.Lines.Add(strMsg); strMsg: ='품질 검사(E)자 제()호',redt1.Lines.Add(strMsg); strMsg:='샘플링 단위:'+'XXX회사'+'기기 모델:'+'SC-1001-09A';redt1.Lines.Add(strMsg); strMsg: ='샘플링 날짜: '+ FormatDateTime('yyyy 년 hh 월 dd 일', Now) +'샘플링 날짜:' +'FormatDateTime'('yyy 년 hh 월 dd 일', Now);redt1.Lines.Add(strMsg); strMsg: ='샘플 번호:'+'+'샘플 이름: '+'고액';redt1.Lines.Add(strMsg); strMsg:='샘플 탱크 번호:'+'A-1-2';redt1.Lines.Add(strMsg); strMsg: ='기기 파일 제어 매개 변수: '+'#1111',redt1.Lines.Add(strMsg); strMsg := ''; redt1.Lines.Add(strMsg); strMsg := 'C:\AAAAAAA\111.bmp'; redt1.Lines.Add(strMsg); redt1.SelStart := 4; redt1.Paragraph.Alignment := taCenter;
3. 글꼴 크기 변경
//두 번째 줄의 글꼴 크기를 15RichEdit 1로 변경합니다.SelStart := Length(RichEdit1.Lines[0]);RichEdit1.SelLength := Length(RichEdit1.Lines[1]) + 2;richedit1.SelAttributes.Size := 15;