PDA

Visualizza la versione completa : [DELPHI 7] domanda su QuickReport


slyfer89
28-03-2013, 10:15
Salve a tutti
Sto impostando un report ma mi servirebbe poter decidere lo style del testo da codice,in rete non ho trovato nulla cercando "style font QReport" oppure "text style QReport".
Sono io che sbaglio a cercare o non si pu fare da codice? :bh:

Grazie in anticipo.. :popcorn:

slyfer89
28-03-2013, 10:26
Problema risolto :unz:
Cercando meglio ho ovviato alla soluzione preparando il precedenza un foglio .doc con lo stile che mi serve e poi da codice faccio un cerca/incolla dove voglio inserire il mio testo usando questa funzione
in chiamata gli passate la dir dove si trova il .doc base,la parola da cercare e la parola o frase da incollarvi sopra

function TForm1.Word_StringReplace(ADocument: TFileName; SearchString, ReplaceString: string; Flags: TWordReplaceFlags): Boolean;
const
wdFindContinue = 1;
wdReplaceOne = 1;
wdReplaceAll = 2;
wdDoNotSaveChanges = 0;
var
WordApp: OLEVariant;
begin
Result := False;

{ Check if file exists }
if not FileExists(ADocument) then
begin
ShowMessage('File base di word non trovato.');
Exit;
end;

{ Create the OLE Object }
try
WordApp := CreateOLEObject('Word.Application');
except
on E: Exception do
begin
E.Message := 'Word non avviabile.';
raise;
end;
end;

try
{ Hide Word }
WordApp.Visible := False;
{ Open the document }
WordApp.Documents.Open(ADocument);
{ Initialize parameters}
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := SearchString;
WordApp.Selection.Find.Replacement.Text := ReplaceString;
WordApp.Selection.Find.Forward := True;
WordApp.Selection.Find.Wrap := wdFindContinue;
WordApp.Selection.Find.Format := False;
WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
WordApp.Selection.Find.MatchWholeWord := False;
WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchAllWordForms := False;
{ Perform the search}
if wrfReplaceAll in Flags then
WordApp.Selection.Find.Execute(Replace := wdReplaceAll)
else
WordApp.Selection.Find.Execute(Replace := wdReplaceOne);
{ Save word }
WordApp.ActiveDocument.SaveAs(ADocument);
{ Assume that successful }
Result := True;
{ Close the document }
WordApp.ActiveDocument.Close(wdDoNotSaveChanges);
finally
{ Quit Word }
WordApp.Quit;
WordApp := Unassigned;
end;
end;

in questo modo posso comporre il mio testo
grz comunque a tutti

Loading