I am using text out to print text on ImageEn.
ProjectDetails := '';
ProjectDetails := ProjectDetails + 'Project Name: ' + txtProjectName.Text;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Project Comments: ' + txtComments.Text;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Project Type: ' + ProjectTypeName;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Project Settings: ' + ProjectSettingsName;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Project Options: ' +
ProjectSettingsSubOptionsName;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Other Settings:';
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Size:' + ProjectSizeName;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Paper:' + ProjectPaperName;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Cover:' + ProjectCoverName;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Binding:' + ProjectBindingName;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Coating:' + ProjectCoatingName;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Sub Product: ' + ProjectSubProductName;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + 'Starts From: ' + ProjectStartsFromName;
ProjectDetails := ProjectDetails + #13;
ProjectDetails := ProjectDetails + '--------------------------'
I am using the following code to print the text in ImageEn
ieMain.Proc.TextOut(10,10,ProjectDetails,'Arial',16,clBlack,[],0,True,True);
The text is printing in one straight line instead of multiple lines.
Again this TextOut is not wrapping the text to fit withing the image from right side.
If I set last parameter to False then the text that falls out side of image width gets truncated.
My question is how can I get the Text to wrap around?
TIA
Yogi Yang
Search
How to get TextOut to wrap text to fit it on Image
Posted - Nov 18 2015 : 04:03:31
