Axolot Data

Hi Lars, It works, but not exactly as I imagined it X.Sheets [0].Name := 'test sheet'; X.CmdFormat.BeginEdit (X [0]); X.CmdFormat.Mode := xcfmReplace; X.CmdFormat.Font.Name := 'Times New Roman CYR'; X.CmdFormat.Font.Size := 12; X.CmdFormat.Alignment.Vertical := cvaCenter; X.CmdFormat.ApplyCols (0, X...

Hi, 1) I wonder how can be set a default font name/size and cell alignment in entire sheet with XLS.CmdFormat do begin Mode := xcfmReplace; BeginEdit (XLS [0]); Font.Name := 'MS Sans Serif'; Font.Size := 10; Alignment.Vertical := cvaCenter; Apply (0, 0, 255, 65535); end; this code almost cause 100% ...

Hi again, no problem. Here is the whole code. You can make an empty project without forms program Project_Border_Test; uses XLSReadWriteII5, Xc12Utils5, XLSCmdFormat5, Xc12DataStyleSheet5, SysUtils; var X : TXLSReadWriteII5; R, C : integer; begin X := TXLSReadWriteII5.Create (nil); try X.Clear; X.Ve...

Hi again, I still receive message from Excel 2003 SP3 "Office File Validation detected a problem while trying to open this file. Opening it may be dangerous." and I wonder is this sequnce of code in that way X.CmdFormat.Mode := xcfmReplace; ........ X.CmdFormat.Border.Style := cbsThin; X.C...

Hi again, I've found it. The analog code for ver5 vs ver4 ver 4 HorizAlignment := chaCenter; VertAlignment := cvaCenter; FormatOptions := [foWrapText]; ver 5 Alignment.Horizontal := chaCenter; Alignment.Vertical := cvaCenter; Alignment.WrapText := true; since you don't have an example for it :)

Thanks. Seems to work correctly, the only problem that I cannot solve is how to set migrate this bold line ver 4 with X.Sheets [0].Range [0, 0, W, H] do begin BorderTopColor := xcAutomatic; BorderTopStyle := cbsThin; BorderLeftColor := xcAutomatic; BorderLeftStyle := cbsThin; BorderRightColor := xcA...

Hello, I've downloaded the current 5.10.18a and have two problems: 1. is it correct such code migration? 1.1. ver 4.00.65 - function Get_Styles (FS : TFontStyles) : TXFontStyles; ver 5.10.18a - function Get_Styles (FS : TFontStyles) : TXc12FontStyles; 1.2. ver 4.00.65 - with X.Sheets [0].Range [0, 0...

Don't know why but renaming of all *.pas files from "PNGImage" folder to *.pas.org and everything is OK seems you've put somewhere in your package to search files from folder PNGImage there, because one of my tries was to put all *.dcu files and OBJ folder to be part of Package\D7 anyway i...

Hi, The problem exists even after I remove all older versions Hint: no problems with 4.00.05a and strange but when I remove sources from PNGImage folder the compiler still wants access to .PAS files also I've tried to copy PNGImage\*.dcu and subfolder OBJ to folder Package\D7 i.e. trying the compile...

I've downloaded the test package and I've tried to use it and got this C:\1\>dcc32 q.dpr /u<install_path>\package\d7;<install_path>\pngimage my test file: q.dpr --------------------------------------------------------- {$A1} {$APPTYPE CONSOLE} program q; uses XLSReadWriteII4; var X : TXLSReadWriteII...

thanks, works fine when I set Border????Color in pair with Border????Style, it's a good idea to be set as default color: xcAutomatic or you mean the same ?

with X do begin Sheets [0].Name := 'test sheet'; for I := 0 to 7 do for J := 0 to 12 do Sheets [0].AsFloat [I, J] := Random (10000); (* with Sheets [0].Range [3, 3, 5, 5] do begin // NumberFormat := '# ##0.00'; BorderTopStyle := cbsThin; BorderBottomStyle := cbsThin; BorderRightStyle := cbsThin; Bor...

strange problem produced with this source : with X do begin Sheets [0].Name := 'test sheet'; for I := 0 to 7 do for J := 0 to 12 do Sheets [0].AsFloat [I, J] := Random (10000); with Sheets [0].Range [3, 3, 5, 5] do begin BorderTopStyle := cbsThin; BorderBottomStyle := cbsThin; BorderRightStyle := cb...