Zitat von
Sharky:
Hai n0b0dy,
wie rufst Du das denn auf? Wenn ich es so mache kann ich den Font angeben:
Delphi-Quellcode:
procedure TForm1.btn_ShowDialogClick(Sender: TObject);
var
myDialog : TForm;
begin
myDialog := CreateMessageDialog('blubb',mtInformation,[mbYes,mbNo]);
try
myDialog.Font.Name := 'Script';
myDialog.ShowModal;
finally
myDialog.Free;
end;
end;
Änderst so ja genau die stelle, welche ich markiert hatte
Noch ein Tip:
Im grunde mußt du den Font vor
Delphi-Quellcode:
//...
Windows.DrawText( canvas.handle,
PChar(LoadResString(ButtonCaptions[B])), -1,
TextRect, DT_CALCRECT or DT_LEFT or DT_SINGLELINE or
DrawTextBiDiModeFlagsReadingOnly);
//...
ändern, da der da ja schon gezeichnet wird, Informationen die er braucht sind ja im Canvas, sprich Font & Co, also oben mal schaun was ich geschrieben hatte und beachten, was Sharky gemacht hatte, dann liegt die lösung auf der Hand!
Die Lösung ist ganz ganz einfach
Bye