
Sorun yazı fontunun renginin değişmemesi...


Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var ACanvas: TCanvas;
intLeftShift, intTopShift: Integer;
begin
inherited;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(DateTimePicker1.Handle);
with ACanvas do
begin
Font.Color := ClRed;
intLeftShift := 3;
intTopShift := 2;
TextOut(intLeftShift, intTopShift, TEdit(DateTimePicker1).Text)
end;
finally
ReleaseDC(DateTimePicker1.Handle, ACanvas.Handle);
ACanvas.Free
end;
end;